Filtro avanzado para varias hojas

[andreibs]

Buenas Tardes

Espero me puedan ayudar.

Realice un filtro avanzado pero este no me puede traer todos los datos de todas las hojas. En el modelo tengo varias hojas con varios trabajos. El filtro que realice se encuentra en la pestaña tecnicos, cuando activo el filtro con el boton, me trae los trabajos que se realizaron pero solo de la primera hoja y deseo que me traiga todos los trabajos de todas las hojas dependiendo del tecnico que elija en la lista tecnicos. En el modelo se puede ver mas claro lo que llevo hasta ahora. Espero me puedan ayudar.

Gracias

FILTRO AVANZADO.xls

[joshua]

Saludos.

Prueba y comentas.

Sub Filtro()

Dim i, x, y As Integer

Dim tecnico, hoja As String

With Sheets("TECNICOS")

        With .Range("A7:H100")

            .ClearContents

            .ClearFormats

        End With

        For i = 1 To Sheets.Count - 2

            x = .Range("A65536").End(xlUp).Row + 1

            tecnico = .Range("A4").Value

            hoja = Sheets(i).Name

            With Sheets(hoja)

                .Range("H5:H50").AutoFilter _

                Field:=1, Criteria1:=tecnico

                y = Application.CountA(.Range("H6:H50"))

            End With

                If y > 0 Then

                    Sheets(hoja).Range("A6:H50") _

                    .SpecialCells(xlCellTypeVisible) _

                    .Copy Destination:=.Range("A" & x)

                    Sheets(hoja).Range("H5:H50").AutoFilter

                End If

        Next i

End With

End Sub[/CODE]

Atte.

joshua