Help with VB

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

http://www.vbforums.com/attachment.p...id=47243&stc=1
Are you coding in VB6 (or before), or are you working with VBA in Excel?

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

My version says 6.3

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

VBA in Excel

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

VB Code:

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