hücre seçildiğinde açıklama görünsün

[hakan666]

Arkadaşlar Merhaba,


Aşağıdaki gibi bir formül oluşturdum. E6 hücresini seçtiğimde macro1 çalışyor.
Fakat E8 hücresini seçtiğimde macro5 i çalıştıramadım. Burada benim amacım istediğim farklı hücrelere istediğim açıklamayı göstermesidir. Nasıl bir yol izleyebilirim.


Saygılarımla


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("e6")) Is Nothing Then Exit Sub
Macro1

If Intersect(Target, Range("e8")) Is Nothing Then Exit Sub
Macro5


End Sub

Sub Macro1()
MsgBox "selam"
End Sub


Sub Macro5()
MsgBox "merhaba"
End Sub

 

[Huseyinkis]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("e6")) Is Nothing Then Goto Adım2:
Macro1
Adım2:
If Intersect(Target, Range("e8")) Is Nothing Then Exit Sub
Macro5

End Sub


Yukarıdaki gibi denermisiniz.

 

[hakan666]

Çok Teşekkür ederim hocam.Gerçekten çok işime yaradı


Saygılarımla

 

[Murat OSMA]

Şu şekilde de kullanabilirsiniz;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "E6" Then
        Macro1
    ElseIf Target.Address(0, 0) = "E8" Then
        Macro5
    End If
End Sub

Ya da böyle de olabilir;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "E6" Then Macro1
    If Target.Address(0, 0) = "E8" Then Macro5
End Sub

 

[hakan666]

Teşekkürler Murat hocam

 

[Murat OSMA]

Rica ederim, iyi günler...