View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
michaelberrier[_2_] michaelberrier[_2_] is offline
external usenet poster
 
Posts: 15
Default Userform data to the next available row

I use this code to enter the data from a Userform into the next empty row on
a sheet:

iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

I would like to be able to use two columns to maintain two seperate
databases on the same sheet and would like to find the next empty "row" in
each column based on a conditional value. The code now looks like this:
If Me.HITCHBOX.Value = "A" Then
ws.Cells(iRow, 1).Value = Me.LASTNAME.Value
ws.Cells(iRow, 2).Value = Me.FIRSTNAME.Value
ws.Cells(iRow, 3).Value = Me.RANKBOX.Value
End If

I would like to enter the same values in Columns D-F if the value in
HITCHBOX is "B", even if Columns A-C on the same row are full.

thanks to all.