Saltar al contenido

Ampliar columnas en listbox

publicado

Hola amigos, un saludo a todos Uds., les pido ayuda con respecto al tema, lo que pasa es que encontre un archivo que se ajusta a mis necesidades de trabajo, pero solo esta diseñado para nueve columnas empezando de la columna A hasta la columna I, pero necesito ampliar hasta la columna O, estare a la espera de la ayuda de todos Uds., muchas gracias por todo y que tengan un buen dia.

Private Sub Buscar_Click()

Worksheets("BASE").Activate

If Codigo = "" Then MsgBox ("INSERTAR META PRESUPUESTAL"): Exit Sub

OUT.Clear

Codigo = UCase(Codigo)

Modelo = UCase(Modelo)

Uso = UCase(Uso)

Español = UCase(Español)

Ingles = UCase(Ingles)

T1 = "": T2 = "": T3 = "": T4 = "": T5 = "": T6 = ""

T7 = "": T8 = "": T9 = "": TextBox100 = "": T11 = "": T12 = ""

For x = 1 To Filas

Preparar

If CondicionAnd = True Then

Seleccionar_And

Else

Seleccionar_Or

End If

If Seleccionado = True Then

OUT.AddItem ""

OUT.List(OUT.ListCount - 1, 1) = OUT.ListCount

OUT.List(OUT.ListCount - 1, 1) = HMAT.Cells(x, 1)

OUT.List(OUT.ListCount - 1, 2) = HMAT.Cells(x, 2)

OUT.List(OUT.ListCount - 1, 3) = HMAT.Cells(x, 3)

OUT.List(OUT.ListCount - 1, 4) = HMAT.Cells(x, 4)

OUT.List(OUT.ListCount - 1, 5) = HMAT.Cells(x, 5)

OUT.List(OUT.ListCount - 1, 6) = HMAT.Cells(x, 6)

OUT.List(OUT.ListCount - 1, 7) = HMAT.Cells(x, 7)

OUT.List(OUT.ListCount - 1, 8) = HMAT.Cells(x, 8)

OUT.List(OUT.ListCount - 1, 9) = HMAT.Cells(x, 9)

OUT.List(OUT.ListCount - 1, 10) = HMAT.Cells(x, 10)

OUT.List(OUT.ListCount - 1, 0) = x

End If

Next x

If OUT.ListCount > 0 Then OUT.ListIndex = 0

End Sub

Featured Replies

publicado

Hola amigo. Se dice que cuando suben el archivo se puede ayudar mejor.

supongo que si revisas las propiedades del listbox se puede manipular el numero y ancho de columnas que contiene el listbox

publicado

Por favor expone tu duda en el foro correcto

Cierro este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.