Checking For Empty Cells

[Drip_Drip]

I've setup a userform for inputting data which to my amazement works.

The problem is that the data is entered in the rows based on the first empty cell in column B.

How can I setup a loop to check for empty cells when the userform is opening and place an 'X' in the empty ones? This should then mean that all new records are automatically placed after the last record entered.

I've tried using bits of code from the forum (without any success) but don't understand how they work.

Thanks

 

[Justinlabenne]

Call this code from your Userform_Initilaize code, I think this is what you wanted: It will need to be changed if you want more that 20 rows, it looks through rows 1-20 in Column B, if you need more rows, change the 20 to the number of rows you need:

Sub Loop1()
'1-20 refers to rows
    For i = 1 To 20
    'the 2 is the column looping through (B)or: 2
    'If cells are empty,  ("")
        If Cells(i, 2).Value = "" Then
       'then place an (x) in the empty cells
            Cells(i, 2).Value = "X"
        End If
    Next i
End Sub

 

[Drip_Drip]

Thanks, that's given me an idea. The number of rows will vary day by day but have got around that.