Hola necesito ayuda estoy haciendo un proyecto y al momento de Insertar me sale un error, tengo en la hoja1 unos datos que se cargar en Combobox y rellena el textbos que tengo y estos datos los quiero ingresar en la hoja2 pero me sale un error les copio los codigos.
Private Sub ComboBox1_Change()
Hoja1.Select
TextBox1.Value = Cells(ComboBox1.ListIndex + 1, 1).Offset(0, 1) aqui es donde me sale el error al momento de insertar
Range("a2").Select
ActiveCell.FormulaR1C1 = ComboBox1
End Sub
Private Sub CommandButton1_Click()
Sheets("Hoja2").Select
Selection.EntireRow.Insert
TextBox1 = Empty
ComboBox1 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Sheets("Hoja2").Select
Range("b2").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola necesito ayuda estoy haciendo un proyecto y al momento de Insertar me sale un error, tengo en la hoja1 unos datos que se cargar en Combobox y rellena el textbos que tengo y estos datos los quiero ingresar en la hoja2 pero me sale un error les copio los codigos.
Private Sub ComboBox1_Change()
Hoja1.Select
TextBox1.Value = Cells(ComboBox1.ListIndex + 1, 1).Offset(0, 1) aqui es donde me sale el error al momento de insertar
Range("a2").Select
ActiveCell.FormulaR1C1 = ComboBox1
End Sub
Private Sub CommandButton1_Click()
Sheets("Hoja2").Select
Selection.EntireRow.Insert
TextBox1 = Empty
ComboBox1 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Sheets("Hoja2").Select
Range("b2").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub