Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro Selection.Aut...
 
Notifications
Clear all

Macro Selection.AutoFilter Field:=16 - Gerando erro

 
2024 - VBA & Macros
Post Recente por TutoElizeu 4 anos atrás
6 Posts
2 Usuários
1 Reactions
1,475 Visualizações
RSS
 TutoElizeu
(@tutoelizeu)
Posts: 160
Estimable Member
Topic starter
 

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

 

 

 

 

 
Postado : 26/08/2021 8:25 am
 teleguiado
(@teleguiado)
Posts: 142
Estimable Member
 

@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.

 

Obrigado.

Teleguiado.
E-mail: [email protected]

 
Postado : 26/08/2021 8:58 am
 TutoElizeu
(@tutoelizeu)
Posts: 160
Estimable Member
Topic starter
 

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!

 
Postado : 26/08/2021 9:42 am
 teleguiado
(@teleguiado)
Posts: 142
Estimable Member
 

@tutoelizeu 

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

Obrigado.

Teleguiado.
E-mail: [email protected]

 
Postado : 26/08/2021 12:42 pm
 teleguiado
(@teleguiado)
Posts: 142
Estimable Member
 

@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

Obrigado.

Teleguiado.
E-mail: [email protected]

 
Postado : 26/08/2021 12:44 pm
TutoElizeu reacted
 TutoElizeu
(@tutoelizeu)
Posts: 160
Estimable Member
Topic starter
 

Obrigado amigo!

Deu certo! aprendi mais uma dica!

Valeu!!!

 

 
Postado : 26/08/2021 7:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico