Visual Basic para Aplicaciones - Filtros en VBA?

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Miqi666
Val: 22
Ha aumentado su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Filtros en VBA?

Publicado por Miqi666 (14 intervenciones) el 24/01/2018 21:44:02
Hola a todos tengo una duda en VBA se pueden hacer busquedas por filtros dentro de un formulario?

he logrado hacer busquedas y que me traiga todos los resultados encontrados pero solo lo hace por columna y me intersa realizarlo con un tipo de filtros y no he encontrado nada parecido en internet


Alguien sabe si se puede y pudiera orientarme?



Saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Filtros en VBA?

Publicado por JuanC (565 intervenciones) el 24/01/2018 21:47:03
te podría orientar si dieras más precisiones del problema...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Miqi666
Val: 22
Ha aumentado su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Filtros en VBA?

Publicado por Miqi666 (14 intervenciones) el 24/01/2018 22:09:51
Tengo una tabla asi:

ID l Type l Subactivity l Planner l Assignee l Equipment l Planned_Completion_date l Completion_Date l Status l Hrs


y lo que quiero es buscar asi:

Subactivity: PLC
Planner: Fulano
Completion: 30/11/2017

y que me traiga todas las coincidencias con esos criterios de busqueda pero dentro de un formulario en VBA?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Filtros en VBA?

Publicado por JuanC (565 intervenciones) el 24/01/2018 22:38:40
hay varias maneras de hacerlo (al menos a mí se me ocurren...)
se puede buscar en una columna y cuando encuentra, sobre la misma fila evalúa el resto de las columnas (campos)
este pequeño código es para buscar 'algo' en toda la hoja activa, cuando encuentra agrega el valor y la referencia
de la celda a un ListBox

podrías adaptarlo teniendo en cuenta lo que dije anteriormente:
buscas en un rango (columna), cuando encuentras 'algo' mediante .Offset comparás el resto de las columnas y listo...
podés usar el operador Like o comparar exactamente el contenido de las celdas o usar InStr...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub buscar(ByVal sValue As String)
Dim ws As Worksheet
Dim rng As Range, c As Range
Dim sAddress$
On Error Resume Next
Set ws = ActiveSheet
Set rng = ws.UsedRange
lbResul.Clear
With rng
     Set c = .Find(sValue, LookIn:=xlValues, LookAt:=xlPart) 'xlWhole
     If Not c Is Nothing Then
        sAddress = c.Address
        Do
          lbResul.AddItem c.Value & " --> " & c.Address(0, 0)
          Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> sAddress
     End If
End With
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar