Agregar datos de otras Columnas a Listbox Excel vba
B dia,
El código actual solo me trae la primer columna, quisiera saber como traer datos de las columanas siguientes al mismo list box.
Private Sub UserForm_Initialize()
TextBox1.Value = Date
TextBox4.Value = Date
TextBox9.Value = Date
TextBox2 = Format(Time, "hh:mm")
TextBox6 = Format(Time, "hh:mm")
TextBox8 = Format(Time, "hh:mm")
OptionButton1 = True
With ComboBox1
.AddItem "SIN PROCESAR"
.AddItem "PROCESADO"
End With
With ComboBox2
.AddItem "SIN PROCESAR"
.AddItem "PROCESADO"
End With
ComboBox1 = "SIN PROCESAR"
ComboBox2 = "SIN PROCESAR"
ListBox1.Clear
valor = ComboBox1.Value
Sheets("CICLO FACTURACION").Select
Set busca = Sheets("CICLO FACTURACION").Range("k:k").Find(valor, LookIn:=xlValues, lookat:=xlPart)
If Not busca Is Nothing Then
ubica = busca.Address
Do
ubica2 = "$A$" & busca.Row
ListBox1.AddItem Range(ubica2)
i = ListBox1.ListCount - 1
ListBox1.List(i, 1) = Range(ubica2).Offset(0, 1)
ListBox1.List(i, 2) = Range(ubica2).Offset(0, 2)
Set busca = Sheets("CICLO FACTURACION").Range("k:k").FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <> ubica
End If
End Sub
1 Respuesta
H o l a
Asegúrate en poner el numero de columnas y las medidas del ancho de columna
Te dejo un ejemplo con tres columnas
Me comentas y valora saludos!
Muchas Gracias, Una pregunta ejemplo quiero traer las columnas numero 15,20,21 como tendría que hacer ahí?
Este error lo trae cuando intento traer datos de una columna que tiene buscarv.
H o l a:
¿De cuántas columnas vas mostrar en el listbox?
Por ejemplo.
Si son 6 columnas en la propiedad columncount tienes que poner 6.
En cuanto que quieras poner ciertas columnas lo haces así
ListBox1.List(i, 1) = Range(ubica2).Offset(0, 1) ListBox1.List(i, 2) = Range(ubica2).Offset(0, 2) ' ' ' ListBox1.List(i, 3) = Range(ubica2). Offset(0, 15) ListBox1.List(i, 4) = Range(ubica2). Offset(0, 20) ListBox1.List(i, 5) = Range(ubica2). Offset(0, 21)
si aun tienes dificultades envíame tu archivo [email protected]
