Search

A carregar...

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2006-04-27
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