Boas.
Cá estou eu com mais uma duvida, ou melhor dificuldade.
Gravei macro par filtrar entre datas, no entanto quando alterei o código para colher informação em determinada celula de outra folha, este deixou de funcionar. Não consegui atinar.
Basicamente pretendo filtrar conteudo da folha2 segundo os critérios inscrtos na folha1
Obrigado desde já.
O que poderá estar mal no dito código.
___________________________________________
Sub FiltrarData()
Application.ScreenUpdating = False
Dim Dta1, Dta2 As String
Dta1 = Sheets(“Montantes”).Range(“Y9”)
Dta2 = Sheets(“Montantes”).Range(“Y11”)
Sheets(“Montantes”).Select
If Dta1 = “” Or Dta2 = “” Then
MsgBox “è favor colocar data”, vbOKOnly, “Aviso”
Range(“Y9”).Select
Exit Sub
Else
Sheets(“Romano”).Select
Sheets(“Romano”).Range(“$A$5:$L$5000”).AutoFilter Field:=2, Criteria1:= _
“>=” & Format(Sheets(“Montantes”).Range(“Y9”), “dd-mm-yyyy”), Operator:=xlAnd, Criteria2:=”<=” & Format(Sheets(“Montantes”).Range(“Y11”), “dd-mm-yyyy”)
ActiveSheet.Range(“$A$5:$L$5000”).AutoFilter Field:=8, Criteria1:=Sheets(“Montantes”).Range(“Y9”)
Application.ScreenUpdating = True
End If
End Sub
Obrigado
Albino