Excel VBA

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Dawyck
nováček
Příspěvky: 3
Registrován: prosinec 17
Pohlaví: Nespecifikováno

Excel VBA

Příspěvekod Dawyck » 06 led 2018 21:35

Zdravím,
mám prosbu. Mám v souboru makra na vytvoření listu a smazání listu. Vše funguje tak, že na začátku se ze vzoru udelá list Poptávka. Po uložení do PDF a XLSX se daný list smaže. No a jak to mám nastavené na jméno listu, tak jsem zjistil, že někdy potřebuji mít těch listů s Poptávkou více. Jak mám upravit tyhle dvě makrat tak, abych mohl nasekat těch listů více?
Díky moc
David

Sub VytvorNovyListPoptavka()
'
' vytvoří kopii listu Vzor na list Poptavka
'
'
Sheets("Vzor").Select
Sheets("Vzor").Copy Before:=Sheets(1)
ActiveSheet.Name = "Poptávka"
End Sub



Sub SmazListPoptavka()
' smaže list Faktura
Application.DisplayAlerts = False
Sheets("Poptávka").Delete
Application.DisplayAlerts = True


End Sub



Reklama
xlnc
Level 3.5
Level 3.5
Příspěvky: 849
Registrován: červenec 11
Pohlaví: Muž

Re: Excel VBA

Příspěvekod xlnc » 07 led 2018 14:17

No přeci v cyklu...

For i = 1 To PocetListu
... váš kód (používající proměnnou i třeba pro pojmenování listu
Next i
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel- VBA
    od Nelouš » 22 bře 2018 00:14 » v Programování a tvorba webu
    4
    822
    od Nelouš
    22 bře 2018 17:43
  • Excel VBA Vyhledávání podle datumu
    od hoty21993 » 19 úno 2018 17:46 » v Kancelářské balíky
    3
    556
    od elninoslov
    20 úno 2018 12:19
  • excel vba - tisk jen nekterych listu
    od zutano » 12 dub 2018 19:16 » v Kancelářské balíky
    9
    910
    od Grimm
    29 dub 2018 13:34
  • excel vba automaticka vyska radku sloucenych bunek
    od zutano » 20 bře 2018 10:51 » v Kancelářské balíky
    7
    727
    od atari
    22 bře 2018 10:20
  • Excel VBA: Vyhledání položky dle ID a změna hodnoty ve vedlejší buňce
    od Goo » 23 led 2018 18:32 » v Kancelářské balíky
    3
    571
    od Goo
    27 led 2018 18:32

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti