Listbox VBA - Ingresar ítemes...
Hace un tiempo atrás, obtuve ayuda con un LISTBOX con columnas que tenia que solucionar., sin embargo, quisiera saber un dato muy especifico.. Algo muy simple quizás. Pero a mi me mata
Si yo tengo en la celda A1-B1-- C1 los siguientes datos
Ana - Mujer - Santiago
¿Cómo puedo integrar esto en un Listbox?, según se debe escribir
Listbox1.addtitem Activecell.value
Esto agregaría solo ana a la columna 1, como agrego sin ciclos (for next u otro) para ingresar Mujer y Santiago..
Solo eso necesito. Muchas gracias
Si yo tengo en la celda A1-B1-- C1 los siguientes datos
Ana - Mujer - Santiago
¿Cómo puedo integrar esto en un Listbox?, según se debe escribir
Listbox1.addtitem Activecell.value
Esto agregaría solo ana a la columna 1, como agrego sin ciclos (for next u otro) para ingresar Mujer y Santiago..
Solo eso necesito. Muchas gracias
1 respuesta
Respuesta de jerryeagle
1
Te dejo un ejemplo y adáptalo:
Private Sub CommandButton1_Click()
'Ingresa los registros
With ListBox1
i = .ListCount
.AddItem txtNom.Text
.List(i, 1) = txtApellido.Text
.List(i, 2) = FormatDateTime(CDate(txtFecha), vbShortDate)
End With
txtNom.SetFocus
Limpiar
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
'Llena los encabezados
With ListBox1
i = .ListCount
.AddItem "Nombre"
.List(i, 1) = "Apellido"
.List(i, 2) = "Fecha Nacimiento"
End With
End Sub
Private Sub CommandButton1_Click()
'Ingresa los registros
With ListBox1
i = .ListCount
.AddItem txtNom.Text
.List(i, 1) = txtApellido.Text
.List(i, 2) = FormatDateTime(CDate(txtFecha), vbShortDate)
End With
txtNom.SetFocus
Limpiar
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
'Llena los encabezados
With ListBox1
i = .ListCount
.AddItem "Nombre"
.List(i, 1) = "Apellido"
.List(i, 2) = "Fecha Nacimiento"
End With
End Sub
