Select Case için farklı alanlar tanımlamak

[baydeniro]

Merhaba Arkadaşlar,
Forumda araştırdım ama çift özellikli Select Case örneği bulamadım. Aşağıdaki kod gibi yani hem HÜCRE, hem de ALAN tanımlanması mümkün mü ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1,E1,S2:S20]) Is Nothing Then Exit Sub
Select Case Target.Address(0, 0)

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Select Case True
        Case Not Intersect(Target, Range("B1")) Is Nothing
            MsgBox "B1"
            Rem Kodlarınız...
            Rem Kodlarınız...

        Case Not Intersect(Target, Range("E1")) Is Nothing
            MsgBox "E1"
            Rem Kodlarınız...
            Rem Kodlarınız...
        
        Case Not Intersect(Target, Range("S2:S20")) Is Nothing
            MsgBox "S1:S20"
            Rem Kodlarınız...
            Rem Kodlarınız...
    End Select
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[baydeniro]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
   
    Select Case True
        Case Not Intersect(Target, Range("B1")) Is Nothing
            MsgBox "B1"
            Rem Kodlarınız...
            Rem Kodlarınız...

        Case Not Intersect(Target, Range("E1")) Is Nothing
            MsgBox "E1"
            Rem Kodlarınız...
            Rem Kodlarınız...
       
        Case Not Intersect(Target, Range("S2:S20")) Is Nothing
            MsgBox "S1:S20"
            Rem Kodlarınız...
            Rem Kodlarınız...
    End Select
   
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Üstad çok teşekkürler, elinize sağlık. Harika oldu. Sağlıcakla kalın