Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Worksheet_Change co...
 
Notifications
Clear all

[Resolvido] Worksheet_Change com mais de um range

 
2024 - VBA & Macros
Post Recente por Vkt 4 anos atrás
3 Posts
2 Usuários
0 Reactions
980 Visualizações
RSS
 Vkt
(@vkt)
Posts: 33
Eminent Member
Topic starter
 

Pessoal, boa noite!

Tenho uma macro para filtrar valores que se encontram na coluna B:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then
        Select Case Range("B1")

            Case "BATALHA": SHOWBATALHA
            Case "BOM PRINCÍPIO DO PIAUÍ": SHOWBOMPRINCIPIO
            Case "BRASILEIRA": SHOWBRASILEIRA
            Case "BURITI DOS LOPES": SHOWBURITI
            Case "CAJUEIRO DA PRAIA": SHOWCAJUEIRO
            Case "CAMPO LARGO DO PIAUÍ": SHOWCAMPOLARGO
            Case "CAPITÃO DE CAMPOS": SHOWCAPITAO
            Case "CARAÚBAS DO PIAUÍ": SHOWCARAUBAS
            Case "CAXINGÓ": SHOWCAXINGO
            Case "COCAL": SHOWCOCAL
            Case "COCAL DE TELHA": SHOWCOCALTELHA
            Case "COCAL DOS ALVES": SHOWCOCALALVES
            Case "DOMINGOS MOURÃO": SHOWDOMINGOS
            Case "ESPERANTINA": SHOWESPERANTINA
            Case "ILHA GRANDE": SHOWILHA
            Case "JOAQUIM PIRES": SHOWJOAQUIM
            Case "JOCA MARQUES": SHOWJOCA
            Case "LAGOA DE SÃO FRANCISCO": SHOWLAGOA
            Case "LUÍS CORREIA": SHOWLUISCORREIA
            Case "LUZILÂNDIA": SHOWLUZILANDIA
            Case "MADEIRO": SHOWMADEIRO
            Case "MATIAS OLÍMPIO": SHOWMATIAS
            Case "MÍLTON BRANDÃO": SHOWMILTON
            Case "MORRO DO CHAPÉU DO PIAUÍ": SHOWMORRO
            Case "MURICI DOS PORTELAS": SHOWMURICI
            Case "NOSSA SENHORA DOS REMÉDIOS": SHOWREMEDIOS
            Case "PARNAÍBA": SHOWPARNAIBA
            Case "PEDRO II": SHOWPEDROII
            Case "PIRACURUCA": SHOWPIRACURUCA
            Case "PIRIPIRI": SHOWPIRIPIRI
            Case "PORTO": SHOWPORTO
            Case "SÃO JOÃO DA FRONTEIRA": SHOWSJFRONTEIRA
            Case "SÃO JOÃO DO ARRAIAL": SHOWSJARRAIAL
            Case "SÃO JOSÉ DO DIVINO": SHOWSJDIVINO
            Case "TODOS OS MUNICÍPIOS": SHOWTODOS

        End Select
    End If
    End Sub

Funciona bem, mas agora quero inserir um novo filtro para um valor da célula F1 e incluindo novas cases pra o caso do F1 ser acionado.

Como fazer?

Tentei modificar, mas sem resultados positivos.

 

 
Postado : 16/02/2021 6:30 pm
EdsonBR
 EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Tente só continuar seguindo sua sistemática já implantada. Ex.:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then
        Select Case Range("B1")
            Case "BATALHA": SHOWBATALHA
            Case "BOM PRINCÍPIO DO PIAUÍ": SHOWBOMPRINCIPIO
            '... blá, blá, blá
            Case "TODOS OS MUNICÍPIOS": SHOWTODOS
        End Select
    End If
    If Not Intersect(Target, Range("F1")) Is Nothing Then
        Select Case Range("F1")
            Case "ABC": SHOWABCD
            Case "XYZ": SHOWXYZ
            '... blá, blá, blá
            Case "TODOS OS NÃOSEIOQUE": SHOWTUTIQUANTI
        End Select
    End If
End Sub

 
Postado : 17/02/2021 10:10 am
 Vkt
(@vkt)
Posts: 33
Eminent Member
Topic starter
 

@edsonbr

Funcionou perfeitamente!

Obrigado.

 
Postado : 17/02/2021 3:38 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico