sexta-feira, maio 06, 2005

Filtro avançado com planilha Travada

"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------


Sub FiltroAvançado()
Dim r As Range
Set r = Selection 'Selecionar o intervalo antes de filtrar
On Error GoTo ErrorHandler
r.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("D1:D3"), Unique:=False
'Altere o intervalo de critérios onde há "D1:D3"
ErrorHandler:Select Case Err.Number
Case 1004
MsgBox "Selecione o intervalo a ser filtrado!"
Case 0
Exit Sub
Case Else
MsgBox "Erro nº " & Err
End Select
End Sub

Sub MostrarDados()
Application.Run "'Filtro avançado com planilha travada.xls'!FiltroAvançado"
Range("A1").Select
'Para ativar a macro e mostrar os dados novamente, selecione o intervalo filtrado!
'Após o filtro já existirá uma seleção, mas deverá selecionar o intervalo novamente.
'Ou, se preferir... selecione uma única célula, execute o filtro
'avançado novamente e logo após selecione as colunas inteiras.
End Sub

----------
Maiores esclarecimentos, acesse o link que está no título deste post !