Response to Userform Problems?

  • Thread starter Thread starter Incidental
  • Start date Start date
I

Incidental

Hi Sue

The code below will take the value of each of the 24 textboxes and
pass it to the next empty row on the sheet 8 controls at a time. I
hope this is of some help to you

Option Explicit
Dim Ctrl As Control
Dim i As Integer
Dim NewRec As Range
Private Sub CommandButton1_Click()

Set NewRec = [D65535].End(xlUp).Offset(1, 0)

For i = 1 To 24

Set Ctrl = UserForm1.Controls("TextBox" & i)

If i = 9 Or i = 17 Then

Set NewRec = NewRec.Offset(1, -8)

End If

NewRec.Value = Ctrl.Value

Set NewRec = NewRec.Offset(0, 1)

Next i

End Sub

Steve
 
Could you keep your responses in the same thread as the question? Separate
responses do not benefit anyone who has read the initial thread.

- Jon
 
Hi Jon

i agree fully the only reason i posted a new reply is because the
original post was giving me an error when i tried to access it. i
prob should have noted that in my post to prevent confusion...

Steve
 
Back
Top