09/06/2010, 07:28
|
| | | Fecha de Ingreso: junio-2010
Mensajes: 1
Antigüedad: 13 años, 11 meses Puntos: 0 | |
| Ayuda con un listbox
Hola Amigos
Estoy comenzando con el tema de crear formularios, y tengo un problema para insertar una linea con Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
despues de que ingreso los datos, me manda un error al lisindex en la parte de Cells(2,columna)
Private Sub ComboBox3_Change()
ComboBox4.Clear
Hoja2.Select
columna = ComboBox3.ListIndex + 1
Cells(2, columna).Select
Do While Not IsEmpty(ActiveCell)
ComboBox4.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
Range("q9").Select
ActiveCell.FormulaR1C1 = ComboBox3
End Sub |