|
Jūlijs 3., 2009
Comments:
Sheets("šīta nosaukums").Select ActiveWindow.SelectedSheets.Delete
Cells.Replace What:="sameklējam", Replacement:= _ "aizvietojam", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _ :=False
Windows("dokuments no kura kopē").Activate Sheets("vajadzīgais šīts").Select Cells.Select Selection.Copy Windows("dokuments, kur jākopē iekšā").Activate Sheets("sīts kur jāiekopē").Select ActiveSheet.Paste
Sheets("Šīts, kur ir virsraksts jāmaina").Select Range("šūna, kur ir vecais virstaksts").Select ActiveCell.FormulaR1C1 = "jaunais virsraksts"
un ko lai es ar šito iesāku??
uj, nu tad labāk uzskati, ka neko neesmu teicis. vēl ilgāk sanāks čakarēties. |
|
|
Sviesta Ciba |