Selecting Cell in a Filtered Spreadsheet

[LDale]

How can I select in column A the first visible cell in thecolumn in a filtered table. Need someVBA code that will take me to the cell of the first visible row. If the first visible row is row 5 I want toselect A5. If first visible row is row12 I want to select A12. If first visible row is…

 

[JLGWhiz]

How can I select in column A the first visible cell in thecolumn in a filtered table. Need someVBA code that will take me to the cell of the first visible row. If the first visible row is row 5 I want toselect A5. If first visible row is row12 I want to select A12. If first visible row is…

The first visible cell in column A of the filetered range will be the cell in column A of the first row of the range. i.e. If you filter range Z40:AN300 then cell A40 would be your first visible cell, assuming you have data across columns A:AN. If you want the first visible cell on the worksheet in column A, then That would be the row where your headers or data begin. If you try to use the SpecialCells method in VBA to locate the first cell, it will probably give you the firts visble cell on the sheet in column A, unless you specify the Range that was filtered.

 

[LDale]

Thank you. But I'm still not getting the results I need.

 

[JLGWhiz]

I will re-phrase my comments. For me to know how to write the code to assist you, I need to know something about how your data is distributed on the worksheet, with respect to the filtered range. e.g. Data may be A1:ZZZ15000, but the filtered table is in BB20:BL200. Then the part of the table that is filtered is BC20:BL100. So The code would need to point to Range("BC20") because that will be the first visible cell of the filtered range.

 

[LDale]

My goal is to get to the first visible cell under A1 no matter how many filters are applied and no matter how many columns there are in the spreadsheet.

 

[JLGWhiz]

My goal is to get to the first visible cell under A1 no matter how many filters are applied and no matter how many columns there are in the spreadsheet.

]
In that case.

Sub vixCell()
Dim c As Range
For Each c In ActiveSheet.Range("A1", Cells(Rows.Count, 1).End(xlUp))
    If c.EntireRow.Hidden = False Then
        MsgBox "First Visible Cells Is " & c.Address
        Exit Sub
    End If
Next
End Sub

 

[LDale]

Thank you so very much. I just changed the A1 to A2 and it worked perfect. Thanks again.

 

[LDale]

How can I tell VBA to select this cell that it just found?