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.

Hi Bob

You are going to have to give us a bit more to work with here.

For example - which row do you want to start the loop? What data do you
allready have in your sheet? As it stands it looks like you want to place the
value of textbox1 in every cell in column A and the value of textbox2 in
every cell in column B.

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.