Question

Hi Im trying to implement code to click next. Most of the examples I have seen seem to just increment to the next row. I have contiguous cells in Column A but some of the cells are empty and i would like it to skip to the next row with data instead of just the next.

I am working with this sample code but for the life of me can seem to get it to increment and skip blanks

Private Sub cmdNext_Click()
    ' Increment row number:
    lCurrentRow = lCurrentRow + 1

    ' Show contents of new row in the form:
    txtName.Text = Cells(lCurrentRow, 1).Value
    txtPhone.Text = Cells(lCurrentRow, 2).Value
End Sub

Answer 1

Try this:

Private Sub cmdNext_Click()
    Dim rFound As Range

    Set rFound = Columns(1).Find(What:="*", After:=Cells(lCurrentRow, 1))

    If Not rFound Is Nothing Then
        If rFound.Row > lCurrentRow Then
            lCurrentRow = rFound.Row
            txtName.Text = Cells(lCurrentRow, 1).Value
            txtPhone.Text = Cells(lCurrentRow, 2).Value
        End If
    End If

    Set rFound = Nothing

End Sub