EXCELer

Se pretendermos efectuar um filtro, utilizando dados provenientes de determinadas células, como no exemplo:





podemos utilizar um pouco de Código VBA:


'---------------------------------------------------------------
' Procedure : Filtra_Click
' DateTime  : 24-04-2006 19:07
' Author    : JRod
' Purpose   : Efectua um filtro por data anterior ou posterior
'           : (célula I3) à data inscrita na célula I5
'           : Se I5 for vazio, desfaz o filtro
'---------------------------------------------------------------
'
Private Sub Filtra_Click()

    Dim myStartDate

    Range("F6:F700").Select
    myStartDate = Worksheets(1).Cells(5, 9).Value

    If myStartDate = "" Then
        Selection.AutoFilter
        Range("K1").Select
    Else
        Selection.AutoFilter Field:=1, Criteria1:=Worksheets(1).Cells(3, 9).Value & _
                                                  CLng(Worksheets(1).Cells(5, 9).Value), Operator:=xlAnd
        Range("K1").Select
    End If

End Sub