Llenar Listbox de forma consecutiva con cada clic de botón.
Tengo un formulario con un listbox, 4 textbox y un botón. ¿Cómo puedo hacer para que al hacer clic en el botón vaya llenando el listbox con los datos de los textbox?.
1 Respuesta
Respuesta de Dante Amor
1
Prueba lo siguiente:
Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox "Captura el dato en el textbox1" TextBox1.SetFocus Exit Sub End If With ListBox1 .AddItem .List(.ListCount - 1, 0) = TextBox1.Value .List(.ListCount - 1, 1) = TextBox2.Value .List(.ListCount - 1, 2) = TextBox3.Value .List(.ListCount - 1, 3) = TextBox4.Value End With End Sub
