kopyalanan verileri yapıştırmaya izin vermiyor

[tahsinanarat]

Sayfanın kod bölümünde "Private Sub Worksheet_SelectionChange(ByVal Target As Range ..........End Sub"
şeklinde başlayan kodlar bulunduğunda, sayfada başka biryerden veya sayfa içinden kopyalanan veriler yapıştırılmak istenildiğinde "yapıştır" seçeneği pasif hale gelmektedir.

Konu hakkında çözümü ile ilgili bilgisi olan arkadaşlardan cevap bekliyorum, saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Kodunuzu aşağıdaki şekilde düzenleyip denermisiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Then Exit Sub
    If Application.CutCopyMode = xlCut Then Exit Sub
    'Sizin kodlarınız...
End Sub

 

[tahsinanarat]

Sn. Korhan Ayhan hocam, bu ne hız, gerçekten çok makbule geçti, çok teşekkür ederim. Saygılar.