Solved: find first item in column

[av8tordude]

Cells(Range("A10009").End(xlUp).Row, 1).Activate


The above code finds the last record in column A. How can I edit this code to find the first record in the same column

[austenr]

Cells(Range("A10009").End(xlDown).Row, 1).Activate

[Bob Phillips]

I think Austen meant



Cells(Range("A1").End(xlDown).Row, 1).Activate

[av8tordude]

I tried to modified the code because I should have included that it should look for the first record starting from Row 9. I tried the code below, but it goes to the last recored in the column.

Cells(Range("A9").End(xlDown).Row, 1).Activate

[Bob Phillips]

If A9 is populated, it will. Start from A8.

[YasserKhalil]

Try

Cells(Range("A8").End(xlDown).Row, 1).Activate

[av8tordude]

I tried that, but it does not give me the results I'm after. I have various data starting from A1-A8, but from A9-A10009 I only have dates. When I filter the sheet to display only certian information, I want the cursor to goto the first record displayed in column A. After filtering, if the first record displayed happens to be on row 259, then the cursor should goto the first record displayed.

[Bob Phillips]

Then maybe



If Range("A9").Value <> "" Then

Range("A9").Activate
Else

Range("A9").End(xlDown).Activate
End If

[av8tordude]

Then maybe



If Range("A9").Value <> "" Then

Range("A9").Activate
Else

Range("A9").End(xlDown).Activate
End If



Its close, when the sheet is unfiltered, it goes to A9, but it if after filtering the sheet and the first record after Row 8 is (i.e. Row 159), the cursor should go to Row 159.

[vzachin]

while this is not the best of coding, see if this works for you

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("A2").Resize(iLastRow - 1).SpecialCells(xlCellTypeVisible)

For Each cell In rng
cell.Activate
Exit For
Next cell

[av8tordude]

while this is not the best of coding, see if this works for you

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("A2").Resize(iLastRow - 1).SpecialCells(xlCellTypeVisible)

For Each cell In rng
cell.Activate
Exit For
Next cell


PERFECT!!!!!! :friends:

Thank you vzachin and everyone else who contributed!