< návrat zpět

MS Excel


Téma: Kopírování listů pomocí VBA rss

Zaslal/a 5.4.2017 12:40

Zdravím všechny, poradí mi prosím někdo, jak upravit makro tak taky zkopírovalo každý list v souboru, ale ne na konec všech stávajících listů, ale kopii každého listu vloží za jeho originál.
Děkuji moc za radu.

Sub Nakopíruj_listy()
Dim x As Integer
For x = 1 To ActiveWorkbook.Sheets.Count
'Loop through each of the sheets in the workbook
'by using x as the sheet index number.
ActiveWorkbook.Sheets(x).Copy _
After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
'Puts all copies after the last existing sheet.
ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Tab.ColorIndex = 3

Next
End Sub

Zaslat odpověď >

#035938
avatar
For x = ActiveWorkbook.Sheets.Count to 1 step -1

'Loop through each of the sheets in the workbook

'by using x as the sheet index number.

ActiveWorkbook.Sheets(x).Copy _

After:=ActiveWorkbook.Sheets(x)
citovat
#035939
avatar
Děkuji, ještě jak s obarvením ouška nového listu? Takto mi to obarví jen ten poslední nakopírovaný. Kam vložit parametr .Tab.ColorIndex = 3 aby obarvoval každý nakopírovaný?
Mockrát děkuji.citovat
#035940
avatar

Pavel-szdr napsal/a:

Děkuji, ještě jak s obarvením ouška nového listu? Takto mi to obarví jen ten poslední nakopírovaný. Kam vložit parametr .Tab.ColorIndex = 3 aby obarvoval každý nakopírovaný?
Mockrát děkuji.

To si sa nepýtal 4
skús
ActiveWorkbook.Sheets(x+1).Tab.ColorIndex = 3citovat
#035941
avatar
Super, to je přesně ono. To jsem zapomněl dopsat, obarvování mi fungovalo, tak jsem myslel, že to bude fungovat i potom :)
Díky moc.citovat
#035942
avatar
Veď ti to fungovalo
Sheets.Count
znamená posledný list.citovat
#035944
avatar
Obarvování fungovalo na všechny nové listy, pak jak jsi mi napsal poprvé, tak to správně nakopírovalo za listy, ale obarvilo jen poslední. Po druhé radě je to přesně to co jsem chtěl. Ještě jednou dík.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09