loop controls through multipage & frame on userform

[MKLAQ]

hello
I have this form as in picture and it doesn't copy the values from controls to ranges in sheet
so what suggest to do that ?

Private Sub CommandButton1_Click()
Dim lr As Integer
Dim ctrl As Control
With sheet1
lr = .Range("c" & Rows.Count).End(xlUp).Row + 1

r = UserForm1.MultiPage1.Value
For Each ctrl In UserForm1.MultiPage1.Pages(r).Controls
If TypeName(ctrl) = "textbox" & "combobox" Then

.Range("a" & lr) = Me.TextBox1
.Range("B" & lr) = Me.TextBox2

.Range("c" & lr) = Me.ComboBox1
End If
Next ctrl
End With
End Sub

thanks

 

[Saurabhj]

Hi,

Use below code:

Private Sub CommandButton1_Click()
    Dim lr As Integer
    Dim ctrl As Control
    With Sheets("Sheet1")
        lr = .Cells(Rows.Count, "C").End(xlUp).Row + 1
        
        r = UserForm1.MultiPage1.Value
        For Each ctrl In UserForm1.MultiPage1.Pages(r).Controls
            If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then
                .Range("a" & lr) = Me.TextBox1
                .Range("B" & lr) = Me.TextBox2
                .Range("c" & lr) = Me.ComboBox1
            End If
        Next ctrl
    End With

End Sub

 

[MKLAQ]

great updating ! many thanks buddy

 

[Saurabhj]

My Pleasure. Thanks for the feedback.