Logical Loop
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
"TimT" wrote:
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?
|