Notifications

Clear all

Macro Selection.AutoFilter Field:=16 - Gerando erro

VBA & Macros

Post Recente por TutoElizeu 3 anos atrás

6 Posts

2 Usuários

1 Likes

1,091 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

Planilha-de-Controle-de-Contratos.xlsb

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: telegui4do@gmail.com

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: telegui4do@gmail.com

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: telegui4do@gmail.com

Postado : 26/08/2021 12:44 pm

TutoElizeu reacted