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

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

Por favor expone tu duda en el foro correcto

Cierro este tema