¿Cómo puedo enviar datos de un libro de excel a otro libro por medio de un CommandButton?
Hola Expertos!
Quisiera iniciar comentando que no soy programador pero si bastante curioso y lo que he hecho hasta ahorita ha sido buscando en internet pero esto último logro encontrarlo.
Necesito de su ayuda porque, estoy creando un pequeño registro de datos con varios de los Controls ActiveX que hay en Excel, básicamente lo que he hecho es crear una plantilla en donde se seleccionan varios datos y al presionar el CommandButton esos datos se almacenan en otra hoja del mismo Libro de Excel, el código que utilicé fue el siguiente:
Private Sub CommandButton1_Click()
Worksheets("Base_Datos").Select
Worksheets("Base_Datos").Range("A4").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(0, 0) = Label1.Caption
ActiveCell.Offset(0, 1) = ComboBox2
ActiveCell.Offset(0, 2) = ComboBox3
ActiveCell.Offset(0, 3) = ComboBox1
If CheckBox1.Value = True Then ActiveCell.Offset(0, 4) = CheckBox1.Caption
If CheckBox2.Value = True Then ActiveCell.Offset(0, 5) = CheckBox2.Caption
If CheckBox3.Value = True Then ActiveCell.Offset(0, 6) = CheckBox3.Caption
If CheckBox4.Value = True Then ActiveCell.Offset(0, 7) = CheckBox4.Caption
If CheckBox5.Value = True Then ActiveCell.Offset(0, 8) = CheckBox5.Caption
If CheckBox6.Value = True Then ActiveCell.Offset(0, 9) = CheckBox6.Caption
If CheckBox7.Value = True Then ActiveCell.Offset(0, 10) = CheckBox7.Caption
If CheckBox8.Value = True Then ActiveCell.Offset(0, 11) = CheckBox8.Caption
If CheckBox9.Value = True Then ActiveCell.Offset(0, 12) = CheckBox9.Caption
If CheckBox10.Value = True Then ActiveCell.Offset(0, 13) = CheckBox10.Caption
If CheckBox11.Value = True Then ActiveCell.Offset(0, 14) = CheckBox11.Caption
If CheckBox12.Value = True Then ActiveCell.Offset(0, 15) = CheckBox12.Caption
If CheckBox13.Value = True Then ActiveCell.Offset(0, 16) = CheckBox13.Caption
If CheckBox14.Value = True Then ActiveCell.Offset(0, 17) = CheckBox14.Caption
ActiveCell.Offset(0, 18) = TextBox1.Text
ActiveCell.Offset(0, 19) = ComboBox4
End
End Sub
Lo que no se como hacer es que en lugar de que los datos seleccionados se almacenen en la pestaña "Base_Datos" del mismo libro, se almacenen en otro libro que estaría guardado en otro directorio o ruta de la computadora.
De antemano agradezco mucho la ayuda brindada!
