Question

Column A has values in some rows, blank in others.

I’m in some other column. In the row I am in, column A is blank.

I would like a macro which will move my cursor down – remaining in the current column – until it is on a row where column A is not blank.

This seems easy, but I know no VBA. Any help?

Answer 1

Sub MoveDownBasedOnColumnA()

  Dim CurCell As Range
  Set CurCell = ActiveCell

  Dim CurCellInA As Range
  Set CurCellInA = Me.Columns("A").Cells(CurCell.Row)

  If IsEmpty(CurCellInA.Offset(1, 0).Value) Then
    CurCell.EntireColumn.Cells(CurCellInA.End(xlDown).Row).Select
  Else
    CurCell.EntireColumn.Cells(CurCellInA.Row + 1).Select
  End If

End Sub