_Br_10
11-11-2022, 07:02 AM
Hi everyone. When i run this code on the 4th line appear an error 1004 "application defined or object- defined error, and i dont know what's the problem.
Can help me please?
With Worksheets("Zplan_producao")
.ListObjects("Z_Plan_Oficial").Range.AutoFilter FIELD:=2, Criteria1:="=LIB"
.ListObjects("Z_Plan_Oficial").Range.AutoFilter FIELD:=25, Criteria1:="=Paulo Leite"
.Range("A:A,B:B,E:E,F:F,G:G,I:I,J:J,K:K,R:R").Copy Sheets("Encomendas_liberadas").Range("A1")
End With
Can help me please?
With Worksheets("Zplan_producao")
.ListObjects("Z_Plan_Oficial").Range.AutoFilter FIELD:=2, Criteria1:="=LIB"
.ListObjects("Z_Plan_Oficial").Range.AutoFilter FIELD:=25, Criteria1:="=Paulo Leite"
.Range("A:A,B:B,E:E,F:F,G:G,I:I,J:J,K:K,R:R").Copy Sheets("Encomendas_liberadas").Range("A1")
End With