[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

984 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)

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