MsgBox

[halilerdem]

Sadece çalışılan sayfada herhangi bir hücrede kopyalama yaptığımızda msg box çıkmasını nasıl sağlarız

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz. (Çift Tıklama)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target = "" Then Exit Sub
Target.Copy
MsgBox Target & " - Kopyalandı", vbInformation, Target & " - Kopyalandı"
Application.CutCopyMode = False
End Sub

 

[halilerdem]

Teşekkür ederim

 

[Korhan Ayhan]

Alternatif;

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Application.CutCopyMode
        Case xlCut, xlCopy
            MsgBox "Kopyalama aktif durumda!", vbInformation
    End Select
End Sub

 

[yusuf1284]

Bu şekilde deneyebilirsiniz. (Çift Tıklama)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target = "" Then Exit Sub
Target.Copy
MsgBox Target & " - Kopyalandı", vbInformation, Target & " - Kopyalandı"
Application.CutCopyMode = False
End Sub

Hocam formül olan hücreyi kopyalarken hata veriyor

 

[Seyit Tiken]

Birleştirilmiş hücreler olduğundan dolayı hata verir, bu şekilde deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If ActiveCell = "" Then Exit Sub
ActiveCell.Copy
MsgBox ActiveCell & " - Kopyalandı", vbInformation, ActiveCell & " - Kopyalandı"
Application.CutCopyMode = False
End Sub