< návrat zpět

MS Excel

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

Zaslal/a Pavel-szdr 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ěď >
marjankaj(5.4.2017 14:00)#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
Pavel-szdr(5.4.2017 14:08)#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
marjankaj(5.4.2017 14:11)#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
Pavel-szdr(5.4.2017 14:16)#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
marjankaj(5.4.2017 14:20)#035942
avatar
Veď ti to fungovalo
Sheets.Count
znamená posledný list.citovat
Pavel-szdr(5.4.2017 14:42)#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

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje