Dobrý den, mám toto fungujíci makro na pěti různých listech. Potřeboval bych sepsat tyto makra do jednoho makra, aby se mi zpustili postupně a proběhly .
Private Sub CommandButtonElysse_Click()
Dim a As Integer, i As Integer
Dim wsh As Worksheet
Application.ScreenUpdating = False
a = Worksheets(3).Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("vysledek").Select
For i = 2 To a
If Cells(i, 2) = "" Then
' skryje prázdné řádky
Rows(i & ":" & i).EntireRow.Hidden = True
ElseIf Cells(i, 2) <> "" Then
'zobrazí řádky
Rows(i & ":" & i).EntireRow.Hidden = False
End If
Next
Worksheets("list3").Select
For i = 2 To a
If Cells(i, 2) <> "" Then
'zobrazí řádky
Rows(i & ":" & i).EntireRow.Hidden = False
ElseIf Cells(i, 2) = "" Then
'skryje prázdné řádky
Rows(i & ":" & i).EntireRow.Hidden = True
End If
Next
Worksheets(3).Select
Application.ScreenUpdating = True
End Sub
Děkuji mockrát za každou radu.
Sločení několik maker do jednoho Vyřešeno
Re: Sločení několik maker do jednoho
Vlož makra do tohoto kodu:
Kód: Vybrat vše
Sub vsechny_listy()
For i = 1 To 5
Worksheets(i).Select
'zde vlož svoje makra
Next i
End Sub
Re: Sločení několik maker do jednoho Vyřešeno
Děkuji vyzkouším.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 10
- 2083
-
od inripuff
Zobrazit poslední příspěvek
27 úno 2024 14:18
-
-
Nastavení zabezpečení internetu zabránilo v otevření jednoho nebo více souborů Příloha(y)
od magnator » 06 čer 2023 10:23 » v Windows 11, 10, 8... - 3
- 1950
-
od mmmartin
Zobrazit poslední příspěvek
06 čer 2023 21:22
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů