Sločení několik maker do jednoho Vyřešeno

[Snekment]

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.

[Reklama]

[atari]

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


[Snekment]

Děkuji vyzkouším.