Necesito insertar datos con textbox en un list box de tres columnas en un formulario
Quiero ingresar datos a partir de textbox, y generar un listbox de tres columnas y varias filas. Tod oen un formulario
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Con el siguiente código tienes que crear un commandbutton dentro de tu formulario. Funciona de la siguiente manera, capturas un texto en el textbox y presionas el botón, la información del textbox se agrega al listbox en la columna 1. Para las columnas 2 y 3 del listbox no pusiste qué datos se deben poner, así que solamente agregué un texto.
Private Sub CommandButton1_Click() 'Por.Dante Amor If TextBox1 = "" Then MsgBox "Excribe la información en el textbox" Exit Sub End If ' ListBox1.AddItem TextBox1 ListBox1.List(ListBox1.ListCount - 1, 1) = "Qué lleva la columna 2" ListBox1.List(ListBox1.ListCount - 1, 2) = "Qué va en la columna tres" TextBox1 = "" TextBox1.SetFocus End Sub ' Private Sub UserForm_Activate() 'Por.Dante Amor ListBox1.ColumnCount = 3 End Sub
R ecuerda valorar la respuesta.
