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