Bom dia Senhores!
Preciso de uma ajuda! Estou quebrando a cabeça pra entender porque está gerando erro (Depurar) em uma macro simples que faz um filtro na planilha de contratos de acordo com critério estabelecido.
Nesta planilha eu tenho contratos, "Ativos", "Inativo", "Iniciar ação" e "Pesquisar todos", porém quase sempre dá erro ao gerar a pesquisa,
O código é simples mas não sei como corrigi-lo, vocês podem me ajudar?
Obrigado.
Sub Macro5() ' ' Macro5 Macro ' Macro gravada em 16/8/2021 por Preferred Customer ' Selection.AutoFilter Field:=16, Criteria1:="=ATIVO", Operator:=xlOr, Criteria2:="=INICIAR AÇÃO!" ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 5 End Sub Sub Macro6() ' ' Macro6 Macro ' Macro gravada em 16/8/2021 por Preferred Customer ' Selection.AutoFilter Field:=16, Criteria1:="INATIVO" ActiveWindow.LargeScroll ToRight:=-1 End Sub Sub Macro7() ' ' Macro7 Macro ' Macro gravada em 16/8/2021 por Preferred Customer ' Selection.AutoFilter Field:=16 End Sub Sub Macro8() ' ' Macro6 Macro ' Macro gravada em 16/8/2021 por Preferred Customer ' Selection.AutoFilter Field:=16, Criteria1:="INICIAR AÇÃO!" ActiveWindow.LargeScroll ToRight:=-1 End Sub
Aqui não esta dando erro.
Lembrando que a macro vai dar erro quando você selecionar qualquer outra aba.
Na aba Controle ela nao da erro, que é onde a coluna 16 existe.
Obrigado.
Teleguiado.
E-mail: telegui4do@gmail.com
Obrigado pelo retorno!
O problema é que as vezes dá erro e as vezes não dá
Eu achei que talvez alguma inconsistência na macro.
Obrigado!
O erro ocorre se você selecionar qualquer célula fora do range a2:p118
Obrigado.
Teleguiado.
E-mail: telegui4do@gmail.com
Tente assim:
Sub Macro5() ' ' Macro5 Macro ' Macro gravada em 16/8/2021 por Preferred Customer ' ActiveSheet.Range("A2").Select Selection.AutoFilter Field:=16, Criteria1:="=ATIVO", Operator:=xlOr, Criteria2:="=INICIAR AÇÃO!" ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 5 End Sub Sub Macro6() ' ' Macro6 Macro ' Macro gravada em 16/8/2021 por Preferred Customer ' ActiveSheet.Range("A2").Select Selection.AutoFilter Field:=16, Criteria1:="INATIVO" ActiveWindow.LargeScroll ToRight:=-1 End Sub Sub Macro7() ' ' Macro7 Macro ' Macro gravada em 16/8/2021 por Preferred Customer ' ActiveSheet.Range("A2").Select Selection.AutoFilter Field:=16 End Sub Sub Macro8() ' ' Macro6 Macro ' Macro gravada em 16/8/2021 por Preferred Customer ' ActiveSheet.Range("A2").Select Selection.AutoFilter Field:=16, Criteria1:="INICIAR AÇÃO!" ActiveWindow.LargeScroll ToRight:=-1 End Sub
Obrigado.
Teleguiado.
E-mail: telegui4do@gmail.com
Obrigado amigo!
Deu certo! aprendi mais uma dica!
Valeu!!!