Kopyala Yapıştır İşlemi Sırasında Kodun Pasif Yapılması

[betoncu]

Aşağıda belirttiğim kod; herhangi bir hücreye tıklayınca tıklanılan satırda A ile I sütunu arasının sarı renge boyanmasını sağlıyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Static eskirenkler(256)
Static a 'eski sutun
Static b 'eski satır
If a <> "" Then
If b = bb Then Exit Sub
For i = 1 To 256
If Cells(b, i).Interior.ColorIndex = 36 Then
Cells(b, i).Interior.ColorIndex = eskirenkler(i - 1)
End If
eskirenkler(i - 1) = Cells(ActiveCell.Row, i).Interior.ColorIndex
Next i
End If
Range("A" & ActiveCell.Row & ":I" & ActiveCell.Row).Interior.ColorIndex = 36
a = ActiveCell.Column
b = ActiveCell.Row
Application.ScreenUpdating = True
End Sub

Bu kod devamlı aktif olduğu için Kopyala/Yapıştır işlemini uygulayamamaktayım.

Kaopyala/Yapıştır işlemi yapılırken bu kodun pasif olmasını, yapıştırma işleminden sonra bu kodun aktif olmasını nasıl sağlarım?

Yardımlarınızı bekliyorum...

 

[betoncu]

Arkadaşlar yardımlarınızı bekliyorum...

 

[betoncu]

Arkadaşlar bu soruma çözüm olabilecek yok mu?

 

[Korhan Ayhan]

Merhaba,

Kodunuzdaki aşağıdaki satırı bulun.

Application.ScreenUpdating = False

Hemen üst satırına aşağıdaki kodu ekleyin.

If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub

 

[betoncu]

Korhan bey çok teşekkür ederim. Bir numarasınız