Hücreye Tıklandığında Msgbox açılsın istiyorum

[secretandxfiles]

Hücreye Tıklandığı zaman msgbox ile bir uyarı yazısı çıksın istiyorum
yardımcı olursanız sevinirim

 

[ozgretmen]

Aşağıdaki kodu sayfanın kod bölümüne ekleyiniz.Hangi hücreye tıklarsanız tıklayın mesaj çıkacaktır.iyi çalışmalar...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox " İŞTE SANA MESAJ"
End Sub

 

[secretandxfiles]

Teşekkür ederim
faydalı oldu ama bunu mesela sadece a1 hücresi için özelleştirebilirmiyiz
sadece a1 e tıklandığı zaman açılsın

 

[ozgretmen]

Aşağıdaki şekilde deneyiniz...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
MsgBox " İŞTE SANA MESAJ"
End Sub

 

[secretandxfiles]

çalıştı hocam
çok teşekkür ederim

 

[ozgretmen]

Rica ederim.İyi çalışmalar