- 12 Abr 2019 às 10:40
#43001
Bom dia
Fiz esse filtro usando o gerador de macro, mas preciso fazer uma pequena alteração na macro. Em P7, insiro um valor qualquer e a macro pega exatamente o valor de P7, mas como fiz com o gerador esse valor de P7, ficou fixo na macro.
Sub Fixltrar()
Range("P7").Select
ActiveCell.FormulaR1C1 = "1200"
Range("A3").Select
ActiveSheet.Range("$A$7:$A$1389").AutoFilter Field:=1, Criteria1:="1200"
Range("A3").Select
End Sub
Fiz esse filtro usando o gerador de macro, mas preciso fazer uma pequena alteração na macro. Em P7, insiro um valor qualquer e a macro pega exatamente o valor de P7, mas como fiz com o gerador esse valor de P7, ficou fixo na macro.
Sub Fixltrar()
Range("P7").Select
ActiveCell.FormulaR1C1 = "1200"
Range("A3").Select
ActiveSheet.Range("$A$7:$A$1389").AutoFilter Field:=1, Criteria1:="1200"
Range("A3").Select
End Sub