MsgBox gösterme

[kubskubs]

Merhaba , hücreye tıklandığında msgbox çıkmasını istiyorum nasıl yapabilirim?

 

[bmutlu966]

ilgili sayfanın kod bölümüne yapıştırın. A1:A100 hücrelerinin birine tıklayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
    Cancel = True
   MsgBox "Ben bir msgbox'im"
End Sub

 

[kubskubs]

ilgili sayfanın kod bölümüne yapıştırın. A1:A100 hücrelerinin birine tıklayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
    Cancel = True
   MsgBox "Ben bir msgbox'im"
End Sub

teşekkür ederim .
Peki çift tıklandıgında msgbox göstermesini nasıl yapabilirim?

 

[AdemCan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

başlığını

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

şeklinde değiştirdiğiniz zaman çift tıklama ile kodlarınız çalışır.