Diskuze: Excel VBA

Naučíme tě pracovat na home-office.

Zjistit více...

Aktivity

Jakub Sobinovsky

Člen

Jakub Sobinovsky:29.12.2016 17:14

Zdravím potreboval by som poradiť.
Čo chcem aby to robilo:
Mám tu kód po ktorom chcem aby mi skopiroval tabulku a vytvoril ju na nový hárok, bolo by fajn keby hárky mali očíslovanie 1,2,3 atd
Čo mi to zatial robí:
Robí mi to to že mi vytvorí nový hárok s označením 2 a skopíruje tabulku, ale dalej sa nestane nič nevytvorí to nový hárok a ani to neskopiruje tabulku.
Do predu ďakujem za všetky rady.
Tu je kód:

Sub Tlačidlo1_Kliknúť()
Dim i As Integer
Dim e As Integer
Dim pocetListu As Integer
ThisWorkbook.Sheets("zoznam").Activate
pocetListu = Sheets.Count
For e = 1 To 4
i = 1
i = i + 1
Sheets.Add.Name = i
ThisWorkbook.Sheets("Hárok1").Activate
Range("A1:Q18").Select
Selection.Copy
ThisWorkbook.Sheets(i).Activate
Range("A1:Q18").Select
Selection.PasteSpecial
Next
End Sub

Odpovědět

29.12.2016 17:14

zitekv

Člen

zitekv:29.12.2016 23:45

Ahoj,
Koukni na následující kód pozorně:

For e = 1 To 4
 i = 1
i = i + 1
Sheets.Add.Name = i

Tady je zakopán pes.
Pak budeš mít pravděpodobně ještě problém při výběru nového listu. Navrhoval bych si uložit jméno listu do proměnné ihned po vytvoření asi takto:

Sheets.Add.Name=i
pridanyList=ThisWorkbook.ActiveSheet.Name
.
.
.
ThisWorkbook.Sheets(pridanyList).Activate

Hodně zdaru.

Editováno 29.12.2016 23:47

Nahoru Odpovědět

29.12.2016 23:45

Libor Šimo (libcosenior)

Tvůrce

Libor Šimo (libcosenior):30.12.2016 9:37

Ahoj, pred rokmi som to použil.
Vytvoril som si nový zošit excel, v ňom som nechal len prvý list a nazval som ho vzor. Do neho som dal tabuľku, ktorú som chcel namnožiť.
makro:

Sub VlozenieTabuliek()
'
' VlozenieTabuliek Makro
'

'
    Dim i As Integer  ' deklarácia premennej typu int

    Application.ScreenUpdating = False ' pracuje na pozadí
    Cells.Select ' označenie celého listu v ktorom sa nachádzaš
    Selection.Copy ' skopírovanie do schránky
    For i = 1 To 3  ' cyklus 1 až 3
        Worksheets.Add After:=Worksheets(Worksheets.Count)  ' vytvor nový pracovný hárok
        Worksheets(Worksheets.Count).Name = i  ' s názvom i, teda 1 až 3
        Range("A1").Select ' aktivácia bunky A1 v novom liste
        ActiveSheet.Paste ' vloženie zo schránky
        Range("A1").Select ' aktivácia bunky A1 v novom liste, aby neostal označený (tmavý)
    Next i ' koniec cyklu
    Sheets("vzor").Select ' návrat na list vzor
    Application.CutCopyMode = False ' zrušenie oblasti kopírovania
    Range("A1").Select ' aktivácia bunky A1, aby neostal označený (tmavý)
    Application.ScreenUpdating = True ' koniec práce na pozadí

End Sub

Akceptované řešení
+20 Zkušeností
+2,50 Kč

Nahoru Odpovědět

30.12.2016 9:37

Aj tisícmíľová cesta musí začať jednoduchým krokom.

Jakub Sobinovsky

Člen

Jakub Sobinovsky:30.12.2016 19:46

Super ide to Dakujem za všetky rady !

Nahoru Odpovědět

30.12.2016 19:46

Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 4 zpráv z 4.

Nejčastěji vyhledáváné

Diskuze: Excel VBA