Get value from autofiltered sheet using VBA

[sipron]

Hi
I have 4 columns which are all filtered through a macro. When filtered there will only be one row left except for the header. I would like to get the value of cell(2,4) when the filters are active. My problem is that i get the value from cell(2,4) when it's unfiltered.

Does anyone know a solution to this?

/John

 

[DauntingGecko]

Sub myExample()
Dim i As Double

    i = 2
    Do While Rows(i).Hidden = True
        i = i + 1
    Loop
    
    MsgBox Cells(i, 4)

End Sub

 

[sipron]

Thank you, it worked just fine