Do Loop
 

I need help with the following VB Excel Do Loop Statement:
In lame men terms

Private Sub CommandButton1_Click()
Range = Row
Do while €˜the cell in row 1 is empty

If €˜the cell is empty then
Select the cell and drop Text Box1 information (From A User form) in to the
empty cell
(Like €œA10€� ) and Text Box2 Information into the cell next to it. (Like
€œB10€�).
Else

Row +1

Loop

End if
End if

End Sub

Thank you very much for any Feedback. Please Also include, If okay, a E-Mail
Address for possible further Questions.

Do Loop
 

Bob

You had two replies to this question on the 19th.
From Tom Ogilvy:
Private Sub CommandButton1_Click()
dim r as Long
r = 1
Do while Not isempty(cells(r,1))
r = r + 1
Loop
Cells(r,1) = Textbox1.Text
Cells(r,2) = Textbox2.Text
End Sub

And from Charlie:
Dim EmptyCell As Range
For Each EmptyCell In Range("1:1").Cells
If IsEmpty(EmptyCell) Then
Cells(EmptyCell.Row, EmptyCell.Column) = Textbox1.Text
Cells(EmptyCell.Row + 1, EmptyCell.Column) = Textbox2.Text
End If
Next EmptyCell

If neither of these is doing what you want you need to rephrase your
question and give us more detail, eg what data do you already have in Column
A and what do you expect to see once this loop has run.

Regards
Rowan

"BobBarker" wrote:

I need help with the following VB Excel Do Loop Statement:
In lame men terms

Private Sub CommandButton1_Click()
Range = Row
Do while €˜the cell in row 1 is empty

If €˜the cell is empty then
Select the cell and drop Text Box1 information (From A User form) in to the
empty cell
(Like €œA10€� ) and Text Box2 Information into the cell next to it. (Like
€œB10€�).
Else

Row +1

Loop

End if
End if

End Sub

Thank you very much for any Feedback. Please Also include, If okay, a E-Mail
Address for possible further Questions.