Gennemløb af ark i projektmappe - Skjul rækker
Jeg har lavet nedenfor viste makro. Skjul funktionen virker fint - men den går ikke igennem alle ark. Hvilket var meningen.Ved gennemløbet af ark, skal makroen vælge de ark, som er markeret med SV i celle B1. Det vil den imidlertid ikke.
Kan nogen hjælpe mig med at løse denne?
Supp.spørgsmål: Kan man kode sig til, at man vender tilbage til den celle man stod i, da man aktiverede makroen.
Sub SkjulRækkerAlleArk()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For Each Worksheet In ActiveWorkbook.Worksheets
If Range("B1") = "SV" Then
Cells.EntireRow.Hidden = False
For Each c In ActiveSheet.Range("A3:A250").Cells
If c.Value = Falsk Then
Application.GoTo Reference:=c
Selection.EntireRow.Hidden = True
End If
Next
End If
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
