Need a Code to Select the 10th Visible row of the filtered data

[chand1230]

Thanks in advance,

Need a Code to Select the 10th Visible row of the filtered data

 

[vletm]

chand1230
Something like this ...

 

[Chihiro]

Similar concept, using different property to loop.

Sub Demo()
Dim vRow As Range
Dim i As Long: i = 0
With Worksheets("Sheet1")
    For Each vRow In .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
        If i = 10 Then
            vRow.Select
            Exit Sub
        End If
        i = i + 1
    Next
    If i < 10 Then
        MsgBox "There is less than 10 visible rows in range"
    End If
End With
End Sub

 

[chand1230]

chand1230
Something like this ...

Thanks Vletm,

Great Job exactly what I wanted.

 

[chand1230]

Similar concept, using different property to loop.

Sub Demo()
Dim vRow As Range
Dim i As Long: i = 0
With Worksheets("Sheet1")
    For Each vRow In .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
        If i = 10 Then
            vRow.Select
            Exit Sub
        End If
        i = i + 1
    Next
    If i < 10 Then
        MsgBox "There is less than 10 visible rows in range"
    End If
End With
End Sub

Thanks a lot Chihiro

It works like a charm.