Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Response to Userform Problems?
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I transform a word response to a numeric response? | Excel Discussion (Misc queries) | |||
How do I set up a daily call out response response register? | Excel Worksheet Functions | |||
show userform when response = yes | Excel Programming | |||
show userform when response = yes | Excel Programming | |||
userform problems | Excel Programming |