Macro Selection.Aut...
 
Notifications
Clear all

Macro Selection.AutoFilter Field:=16 - Gerando erro


TutoElizeu
Posts: 156
Registered
Topic starter
(@tutoelizeu)
Estimable Member
Entrou: 6 anos atrás

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

 

 

 

 

Responder
5 Respostas
1 Responder
teleguiado
Registered
(@teleguiado)
Entrou: 6 anos atrás

Estimable Member
Posts: 138

@tutoelizeu

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.

 

Responder
TutoElizeu
Posts: 156
Registered
Topic starter
(@tutoelizeu)
Estimable Member
Entrou: 6 anos atrás

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!

Responder
2 Respostas
teleguiado
Registered
(@teleguiado)
Entrou: 6 anos atrás

Estimable Member
Posts: 138

@tutoelizeu 

O erro ocorre se você selecionar qualquer célula fora do range a2:p118

Responder
teleguiado
Registered
(@teleguiado)
Entrou: 6 anos atrás

Estimable Member
Posts: 138

@tutoelizeu 

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
Responder
TutoElizeu
Posts: 156
Registered
Topic starter
(@tutoelizeu)
Estimable Member
Entrou: 6 anos atrás

Obrigado amigo!

Deu certo! aprendi mais uma dica!

Valeu!!!

 

Responder