ActiveCell two rows below last word in a column

[mlarson]

Hi all, hoping you can help me with this.

I would like a code to make the active cell 2 rows below the final word in a column. (Or, if it's less rigorous on Excel, the final word in my spreadsheets will always be "next" - so please use that if it doesn't take as much power/processing to accomplish the same thing).

So, for example, if there are words in cells A5, A8, A12, and A17 (and no words after that), I would like the active cell to be A19.

Note: there may be numbers in cells in the column, but I want this to ignore those and only find the cell that is 2 spots beneath the final word.

Thanks in advance for your help!

 

[snjpverma]

Sub ActivateCellsBelowLastTextValueInColumnA()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    Dim i As Long
    For i = lastRow To 1 Step -1
        If Not IsNumeric(Cells(i, "A").Value) And Cells(i, "A").Value <> "" Then
            Cells(i + 2, "A").Activate
            Exit For
        End If
    Next i
End Sub

 

[mlarson]

It works, thank you!!!

 

[snjpverma]

Glad to know it worked for you. Thank you for the feedback.

 

[mlarson]

Also, if I wanted the active cell to be in column C instead of column A, how would I edit that code?

So, the active cell would be, in reference to the last word in column A, still two rows down but now also two columns to the right.

If this follow-up question should be posted in an entirely new thread, please let me know.

Thanks!

 

[snjpverma]

Try changing this

Cells(i + 2, "A").Activate

To this

Cells(i + 2, "C").Activate

 

[mlarson]

Thank you, that works, too! Appreciate your help.