• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Díky :) Funguje super :) Sice bych raději přišla na to, co mám špatně ve svém kódu ale na to přijdu později. Teď spěchám. Dík moc :)

Zdravím, jsem začátečník a potřebuju vytvořit makro, které má vytvořit nový list a zkopírovat do něj tabulku z prvního listu, a pod něj tabulky z ostatních listů (už bez hlavičky), aby to bylo celé jako jedna tabulka, počet řádku se v jednotlivých tabulkách liší a sloupců to vybírá z ostatních tabulek jen tolik kolik jich je v první tabulce, ostatní případné sloupce vynechá, počet listů může být variabilní a počet sloupců v první tabulce také. Napsala jsem toto a překvapivě to nefunguje :) ani nevím, jestli to není úplně nějaký nesmysl a nemám to řešit úplně nějak jinak :(
V příloze je sešit s mým makrem.

Sub makro()
Dim ws As Worksheet
Worksheets(1).Copy Before:=Sheets(1)
Set ws = ActiveSheet
ws.Name = "tabulka"
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim e As Long
a = Worksheets.Count
Worksheets(1).Select
c = Columns.Count
d = Rows.Count
For list = 3 To a
For b = 1 To c
For e = 2 To 100
If Len(Text) = 0 Then
Exit For
End If
Worksheets(list).Select
Text = Cells(e, 1)
Worksheets(1).Select
Cells(d + 1, b) = Text
d = d + 1
Next e
Next b
Next list
End Sub

To jsem nevěděla, tak jsem si je řádně deklarovala, pořád nevím proč long, tak jsem si tak preventivně deklarovala všechny, hlavně potřebuju, aby to fungovalo, na tu chybu v cyklu jsem už přišla. Celé makro má vytvořit nový list a zkopírovat do něj tabulku z prvního listu, a pod něj tabulky z ostatních listů (už bez hlavičky), aby to bylo celé jako jedna tabulka, počet řádku se v jednotlivých tabulkách liší a sloupců to vybírá z ostatních tabulek jen tolik kolik jich je v první tabulce, ostatní případné sloupce vynechá, počet listů může být variabilní a počet sloupců v první tabulce také. Napsala jsem toto a samozřejmě to nefunguje :) ani nevím, jestli to není úplně nějaký nesmysl a nemám to řešit úplně nějak jinak :(

Sub makro()
Dim ws As Worksheet
Worksheets(1).Copy Before:=Sheets(1)
Set ws = ActiveSheet
ws.Name = "tabulka"
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim e As Long
a = Worksheets.Count
Worksheets(1).Select
c = Columns.Count
d = Rows.Count
For list = 3 To a
For b = 1 To c
For e = 2 To 100
If Len(Text) = 0 Then
Exit For
End If
Worksheets(list).Select
Text = Cells(e, 1)
Worksheets(1).Select
Cells(d + 1, b) = Text
d = d + 1
Next e
Next b
Next list
End Sub

Díky:) Já jsem to teď přepsala takto a zase to nefunguje, pouze jeden cyklus (který kopíruje pod tabulku jeden řádek tabulky) je ok:

Sub makro()
Dim a, b, c, d As Integer
Worksheets(1).Select
b = Cells(1, Columns.Count).End(xlToLeft).Column
c = Cells(Rows.Count, "A").End(xlUp).Row
For a = 1 To b
For d = 1 To c
Text = Cells(d, a)
If Len(Text) = O Then
Exit For
End If
Cells(c + 1, a) = Text
Next d
Next a
End Sub

Zdravím, nevěděl by někdo co je na tomto začátečnickém :) kódu špatně? Píše to overflow v šestém řádku (For d = 1 To c). Má to kopírovat tabulku pod sebe. Vážně netuším :(

Sub makro()
Dim a, b, c, d As Integer
Worksheets(1).Select
b = Columns.Count
c = Rows.Count
For a = 1 To b
For d = 1 To c
Text = cells(d, a)
If Len(Text) = O Then
Exit For
End If
cells(c + 1, a) = Text
Next d
Next a
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse