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
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