[Albino]

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

[jorgerod]

Boas, Albino!!!!

 

Começa por aqui…. Pode ser que te ajude. De qq modo, se tiveres dificuldades, mostra um pequeno projecto em Excel, para melhor compreensão do problema, ok?

Abraço.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Dta1 As String
Dim Dta2 As String

Worksheets(1).Select

Dta1 = Worksheets(1).Range(“Y9”).Value
Dta2 = Worksheets(1).Range(“Y11”).Value
If Dta1 = “” Or Dta2 = “” Then
MsgBox ” É favor colocar data”, vbOKOnly, “Aviso”
Range(“Y9”).Select
Exit Sub
Else
Worksheets(2).Select
Worksheets(2).Range(“$A$5:$L$5000″).AutoFilter Field:=2, Criteria1:=”>=” & Dta1, Operator:=xlAnd, Criteria2:=”<=” & Dta2

Application.ScreenUpdating = True
End If

End Sub

[Autor]

Artigos