PC-HELP.CZ

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.

Vlož makra do tohoto kodu:

Děkuji vyzkouším.