Help with VB

[jeff5240]

I am trying to loop the code to find the first empty cell in an already determined column. Then to remember the row number so I can use this row number to paste information into multiple columns of the same row number.

I can not remember the looping code to get it to work.

Can anyone help?

Thanks

[MartinLiss]

Are you coding in VB6 (or before), or are you working with VBA in Excel?

[jeff5240]

I am coding in VB in Excel through the sheets and modules

[jeff5240]

My version says 6.3

[jeff5240]

VBA in Excel

[MartinLiss]

I moved this thread. You are using VBA which is a subset of VB designed for Office products.

[DKenny]

Here's a function that will give you the row number, I have also included a proc that shows how to call the function.

Function FirstEmptyRow(ByRef SearchSheet As Worksheet, ByRef SearchCol As Long) As Long
Dim rngCell As Range
 
    Set rngCell = SearchSheet.Cells(1, SearchCol)
    Do While rngCell.Value <> ""
        Set rngCell = rngCell.Offset(1, 0)
    Loop
    
    FirstEmptyRow = rngCell.Row
End Function
 
'Here's a sample showing the function in action
Sub testempty()
Dim x As Long
    
    For x = 1 To 4
        Debug.Print FirstEmptyRow(ThisWorkbook.Worksheets(1), x)
    Next x
End Sub