UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 arreglar codigo de filtrado el 29/04/14, 03:50 am

mayor311


hola, amigos de universo excel

tengo este codigo, que me lo encontre en uno de los temas de aca y lo que hize fue modificarlo a lo que necesitaba pero resulta, falta algo por que no me filtra todos los datos solo me filtra las primeras 10 columnas


Dim COL, X, I  As Integer
Dim RW As Integer
Select Case COMBOBOX1.ListIndex
Case 0: COL = 1
Case 1: COL = 8
Case 2: COL = 9
End Select

With Sheets("BASE DE DATOS")
If TEXTBOX1 <> "" Then
If TEXTBOX2 <> "" Then
LISTBOX1.Clear
X = 0: I = 1
nxt: RW = .Range(Hoja5.Cells(I, COL), .Cells(1000000, COL)).Find(TEXTBOX2, lookat:=xlPart).Row
If RW = I Then Exit Sub

If COL = 1 Then
CTRL3.AddItem
CTRL3.List(X, 0) = Hoja5.Cells(RW, COL)
CTRL3.List(X, 1) = Hoja5.Cells(RW, COL + 1)
CTRL3.List(X, 2) = Hoja5.Cells(RW, COL + 2)
CTRL3.List(X, 3) = Hoja5.Cells(RW, COL + 3)
CTRL3.List(X, 4) = Hoja5.Cells(RW, COL + 4)
CTRL3.List(X, 5) = Hoja5.Cells(RW, COL + 5)
CTRL3.List(X, 6) = Hoja5.Cells(RW, COL + 6)
CTRL3.List(X, 7) = Hoja5.Cells(RW, COL + 7)
CTRL3.List(X, 8 )= Hoja5.Cells(RW, COL + 8 )
CTRL3.List(X, 9) = Hoja5.Cells(RW, COL + 9)
CTRL3.List(X, 10) = Hoja5.Cells(RW, COL + 10)
CTRL3.List(X, 11) = Hoja5.Cells(RW, COL + 11)
CTRL3.List(X, 12) = Hoja5.Cells(RW, COL + 12)
CTRL3.List(X, 13) = Hoja5.Cells(RW, COL + 13)
CTRL3.List(X, 14) = Hoja5.Cells(RW, COL + 14)
CTRL3.List(X, 15) = Hoja5.Cells(RW, COL + 15)

X = X + 1
I = RW
GoTo nxt
Else
LISTOX1.Clear
End If
End If
Else
TEXTBOX2 = ""
LISTBOX1.Clear
End If
End With

gracias

2 Re: arreglar codigo de filtrado el 29/04/14, 04:05 am

mayor311


subo el ejemplo gracias
Archivos
FILTRO.xlsm
No tienes los permisos para descargar los archivos.
(32 KB)

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.