Spring fra synlig række til synlig i Excel via Makro

Du kan undersøge om en række er skjult med:

If Rows(i & ":" & i).Hidden = True Then ...

Jeg har prøvet med koden
Sub prove()
If Rows(i & ":" & i).Hidden = True Then
MsgBox "ikke skjult"
End If
End Sub
men det virker ikke

Sub prove()
Dim i as long

For i = 1 to 10000
  If Rows(i & ":" & i).Hidden = True Then
    MsgBox "SKJULT"
  End If
Next i
End Sub

Skriv istedet:

    MsgBox "Række " & i & " er SKJULT"

så får du at vide hvilken række det er.

Tusind tak jeg tro jeg kan bruge det her.
Hvis du ligger et svar får du dine point

Hvis du kun har skjult enkelte rækker, fx som du selv skriver og ikke rækkerne 5,6 og 7 kan du bruge denne til at gå til den efterfølgende synlige celle:

Sub Prøve2()
Dim i As Long

For i = 1 To 10000
  If Rows(i & ":" & i).Hidden = True Then
    Cells(i + 1, 1).Select
    Exit For
  End If
Next i
End Sub

Har du imiddlertid flere rækker efter hinanden der er skjulte, må du tage højde for at skulle passere disse før du selecter.

Jeg har en fornemmelse af, at der findes en enklere metode, men har ikke kunnet finde den, endnu da!

Tusind tak jeg prøver at arbejde med det.

Prøv at lege lidt videre med denne:

Dim i As Long

For i = ActiveCell.Row To 10000
  If Rows(i & ":" & i).Hidden = True Then
    Do Until Rows(i & ":" & i).Hidden = False
        i = i + 1
    Loop
    Cells(i, 1).Select
    Exit For
  End If
Next i

Det var lige det jeg har brug for, men kan man også springe baglæns?

Så'n sku' det ku' gøres:

For i = ActiveCell.Row To 1 Step -1
  If Rows(i & ":" & i).Hidden = True Then
    Do Until Rows(i & ":" & i).Hidden = False
        i = i - 1
    Loop
    Cells(i, 1).Select
    Exit For
  End If
Next i

Tusind tak det virker fint

Og sådan:

Dim Rng As Range
Set Rng = ActiveCell
Do
Set Rng = Rng(2, 1)
Rng.Select
Loop Until Rng.EntireRow.Hidden = False

og baglæns:

Dim Rng As Range
Set Rng = ActiveCell
Do
Set Rng = Rng(0, 1)
Rng.Select
Loop Until Rng.EntireRow.Hidden = False

Tak for point :))