|
Jūlijs 3., 2009
lodzinjsh | 11:41
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"
|
Reply
|
|
|
Sviesta Ciba |