MS Excel

Téma: Zkopírování listu pod jinými názvy

Zaslal/a Pavel4 18.3.2020 10:24

Zdravím,
můžete mi prosím poradit? Mám jeden list, který potřebuji vícekrát zkopírovat, dále mám seznam listů, za které ho chci zkopírovat, název nového listu by byl vždycky složen z názvu listu, za který ho kopíruji a k tomu přidaná přípona "_check".
Předem moc děkuji! Pavel

Příloha: xlsx

46219_sesit1.xlsx (11kB, staženo 11x)

Zaslat odpověď >

Janku(18.3.2020 14:52)#046221

Třeba takto:
Sub kopirujListy()
Dim jmSeznam As String
Dim jmVzor As String
jmSeznam = "SeznamListů"
jmVzor = "ListKeKopírování"
Dim jmenaListu As Range
Dim list As Worksheet
Dim bunka As Range

Application.ScreenUpdating = False
Sheets(jmSeznam).Activate
Set jmenaListu = Range("A2").CurrentRegion
For Each bunka In jmenaListu
On Error Resume Next
Set list = Worksheets(bunka.Value)
If Err.Number = 0 Then
Sheets(jmVzor).Copy after:=Sheets(bunka.Value)
ActiveSheet.Name = bunka.Value & "_check"
End If
Next bunka
Application.ScreenUpdating = True
End Subcitovat

Pavel4(18.3.2020 17:35)#046224

Bezva, moc děkuji!citovat

Uživatelské menu

Nejste přihlášen(a)

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.