Avatar billede PSI Novice
18. juni 2021 - 11:54 Der er 5 kommentarer og
1 løsning

Change Event - Flere drop downs

Jeg benytter følgende kode til at kalde en makro ud fra valget i en drop down liste, og den virker upåklageligt.


Sub Worksheet_Change(ByVal Target As Range)


    Select Case Target.Address
        Case Is = "$C$4"
            Select Case Target.Value
       
                Case "Total": Macro1
                Case "Denmark": Macro2
                Case "Norway": Macro3
                Case "Sweden": Macro4
                Case "Belgium": Macro5
                Case "Netherlands": Macro6
                Case "Germany": Macro7
                Case "United Kingdom": Macro8
                Case "Spain": Macro9
                Case "Baltics": Macro10
                Case "Italy": Macro11
                Case "France": Macro12
                Case "Finland": Macro13
                Case "Bennelux": Macro14
                Case "Austria": Macro15
                Case "Switzerland": Macro16

            End Select
    End Select
End Sub
_____________________________________________________________
Jeg har dog brug for endnu en drop down liste i samme ark. Den skal sådan set kunne det samme, altså kalde makroer.

Jeg har forsøgt at lave den i et andet ark, hvor den virker fint, men  de virker ikke sammen..

Select Case Target.Address
        Case Is = "$C$1"
            Select Case Target.Value
       
                Case "1": Macro17
                Case "2": Macro18
                Case "3": Macro19
                Case "4": Macro20

End Select
End Select

End Sub
_____________________________________________________________

Spørgsmålet er så, hvordan kan jeg kombinere disse 2 koder sålades at de virker i samme change event?
Avatar billede jens48 Ekspert
18. juni 2021 - 14:06 #1
Måske kan store-mortens forslag i https://www.computerworld.dk/eksperten/spm/1037391 være til inspiration
Avatar billede store-morten Ekspert
18. juni 2021 - 14:51 #2
Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("C1")) Is Nothing Then
   
        MsgBox Target.Address & " er blevet ændret"
   
    End If
   
 
    If Not Intersect(Target, Range("C4")) Is Nothing Then
   
        MsgBox Target.Address & " er blevet ændret"
   
    End If
   
   
End Sub
Avatar billede PSI Novice
18. juni 2021 - 15:19 #3
Det er helt sikkert mig, som ikke er stærk nok til kodning, men hvis jeg bruger din ovenstående kode, så kan jeg ikke "kalde" på cases
Avatar billede store-morten Ekspert
18. juni 2021 - 15:42 #4
Du skal bytte: MsgBox Target.Address & " er blevet ændret" med din kode.
Avatar billede store-morten Ekspert
18. juni 2021 - 19:35 #5
Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("C1")) Is Nothing Then
            Select Case Target.Value
                Case "1": Macro17
                Case "2": Macro18
                Case "3": Macro19
                Case "4": Macro20
            End Select
    End If
 

    If Not Intersect(Target, Range("C4")) Is Nothing Then
        Select Case Target.Value
                Case "Total": Macro1
                Case "Denmark": Macro2
                Case "Norway": Macro3
                Case "Sweden": Macro4
                Case "Belgium": Macro5
                Case "Netherlands": Macro6
                Case "Germany": Macro7
                Case "United Kingdom": Macro8
                Case "Spain": Macro9
                Case "Baltics": Macro10
                Case "Italy": Macro11
                Case "France": Macro12
                Case "Finland": Macro13
                Case "Bennelux": Macro14
                Case "Austria": Macro15
                Case "Switzerland": Macro16
            End Select
    End If
 
End Sub
Avatar billede PSI Novice
21. juni 2021 - 10:26 #6
Hej Morten

Mange tusinde tak! Det virker fuldstændig perfekt.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester