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.