Logical Loop

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

hello all,
I'm trying to write a loop that would do the following

ws.Cells(1, 2).Value = frm_Activity.TB1.Value

until it reaches the 50th row. But it also needs to change the textbox
number as it loops.

could someone help me with the syntax?
 
for i = 1 to 50
ws.Cells(i, 2).Value = frm_Activity.Controls("TB" & i).Value
Next

would be one posibility assuming you have 50 textboxes with names like TB1,
TB2, etc
 
Actually here is the code so far, I just cant get the value for the textbox
TB to change, my syntax is wrong:

Private Sub BTNActivityDone_Click()

Dim ws As Worksheet
Dim intRow As Integer

Set ws = Worksheets("vlookup")

intRow = 0

Do
intRow = intRow + 1
ws.Cells(intRow, 2).Value = frm_Activity.TB&intRow.Value
Loop Until intRow = 50

frm_Activity.Hide



End Sub
 
Brilliant Tom,
Thank you!

Tom Ogilvy said:
for i = 1 to 50
ws.Cells(i, 2).Value = frm_Activity.Controls("TB" & i).Value
Next

would be one posibility assuming you have 50 textboxes with names like TB1,
TB2, etc
Click to expand...
 
Do
intRow = intRow + 1
ws.Cells(intRow, 2).Value = frm_Activity _
.Controls("TB" & intRow).Value
Loop Until intRow = 50
 
Back
Top