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, se me olvidaba cuando ingreso la columna 10 me sale el mesaje de "no se puede configurar la propiedad list valor de propiedad no valido", estare a la espera de la ayuda de todos Uds., muchas gracias por todo y que tengan Dios les bendigue.
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, se me olvidaba cuando ingreso la columna 10 me sale el mesaje de "no se puede configurar la propiedad list valor de propiedad no valido", estare a la espera de la ayuda de todos Uds., muchas gracias por todo y que tengan Dios les bendigue.
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, 0) = x
End If
Next x
If OUT.ListCount > 0 Then OUT.ListIndex = 0
End Sub