Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Advancing outer Loop Based on criteria of inner loop | Excel Programming | |||
Loop Function unable to loop | Excel Programming | |||
Problem adding charts using Do-Loop Until loop | Excel Programming | |||
How do I create a For loop within a For loop? | Excel Programming | |||
HELP!!!! Can't stop a loop (NOT an infinite loop) | Excel Programming |