Copy multiple activex control values to new ws

[Chickenmanc]

I am learning vba on my own and I found get helpful info from this forum so I joined. Thanks. I am trying to take 4 different combobox values, and 2 textbox values from one sheet and paste them in first empty row of another worksheet.

 

[DanteAmor]

Welcome to the forum

Try this:

Sub Copy_multiple_activex()
    Dim sh1 As Object, sh2 As Worksheet
    Set sh1 = Sheets("[COLOR=#ff0000]Sheet1[/COLOR]")  'Source
    Set sh2 = Sheets("[COLOR=#ff0000]Sheet2[/COLOR]")  'Destination
    
    If sh1.ComboBox1.Value = "" Then
        MsgBox "Fill combo 1"
        Exit Sub
    End If
    lr = sh2.Range("A" & Rows.Count).End(xlUp).Offset(1).Row
    sh2.Cells(lr, "A").Value = sh1.ComboBox1.Value
    sh2.Cells(lr, "B").Value = sh1.ComboBox2.Value
    sh2.Cells(lr, "C").Value = sh1.ComboBox3.Value
    sh2.Cells(lr, "D").Value = sh1.ComboBox4.Value
    sh2.Cells(lr, "E").Value = sh1.TextBox1.Value
    sh2.Cells(lr, "F").Value = sh1.TextBox2.Value
End Sub

 

[Chickenmanc]

Thanks! Now to get deeper I am trying to get this to work on the “active sheet”.

 

[DanteAmor]

change this

Set sh1 = Sheets("Sheet1")  'Source

For this

Set sh1 = Activesheet  'Source

 

[Chickenmanc]

Thanks. I appreciate it. I feel like I am learning things but when you see different ways to perform the same code it gets confusing.

 

[DanteAmor]

You're welcome, thanks for the feedback.

 

[Chickenmanc]

I added a label as well. I used your code

ub Copy_multiple_activex()
    Dim sh1 As Object, sh2 As Worksheet
    Set sh1 = Sheets("Sheet1")  'Source
    Set sh2 = Sheets("Sheet2")  'Destination
    
    If sh1.ComboBox1.Value = "" Then
        MsgBox "Fill combo 1"
        Exit Sub
    End If
    lr = sh2.Range("A" & Rows.Count).End(xlUp).Offset(1).Row
    sh2.Cells(lr, "A").Value = sh1.ComboBox1.Value
    sh2.Cells(lr, "B").Value = sh1.ComboBox2.Value
    sh2.Cells(lr, "C").Value = sh1.ComboBox3.Value
    sh2.Cells(lr, "D").Value = sh1.ComboBox4.Value
    sh2.Cells(lr, "E").Value = sh1.TextBox1.Value
    sh2.Cells(lr, "F").Value = sh1.TextBox2.Value
End Sub
[code]

I tried:
sh2.cells(lr, ”G”).value = sh1.cartnum.caption

 

[DanteAmor]

Do you have a problem with that?

 

[Chickenmanc]

Yes,
Run-time error 438
Object doesn’t support this property or method

 

[Chickenmanc]

I got it rookie mistake. I had a typo in my label name. Smh