VBA cursor naar beneden

[vrouw]

Ik wil in een ducument dmv de code

ActiveCell.Offset(1, 0).Select

de cursor een plaats naar benden verplaatsen.
Echter als de cursor in A1 staat en A2 is een verborgen regel dan gaat die daarheen terwijl ik wil dat hij dan naar A# gaat.
Is dat mogelijk dat de verborgen regels worden overgeslagen?

 

[HSV]

Het is geen snelle code, maar het werkt.

Sub tst()
  For rij = 1 To Cells(ActiveCell.Row, 1).End(xlDown).Row
   If ActiveCell.Offset(1).EntireRow.Hidden = True Then
      Application.Goto ActiveCell.Offset(1)
    End If
   Next
 Application.Goto ActiveCell.Offset(1)
End Sub

 

[vrouw]

He thanks, werkt prima hoor.(excuus voor de late reactie)

Kan je `m nu ook nog de gele regel(ColorIndex = 6) laten overslaan als hij die tegenkomt met de weg naar beneden?

 

[HSV]

Zeker.

Sub tst()
  For rij = 1 To Cells(ActiveCell.Row, 1).End(xlDown).Row
   With ActiveCell.Offset(1)
    If .EntireRow.Hidden = True Or .Interior.ColorIndex = 6 Then
      Application.Goto ActiveCell.Offset(1)
     End If
    End With
   Next
 Application.Goto ActiveCell.Offset(1)
End Sub

 

[vrouw]

Hé, Thanks.
Dit werkt super:thumb: