Aktif Satır Renklendirme

[scorpix]

çalışma sayfamda aktif satırı renklendirmek için aşağıdaki kodu kullanmaktayım..
bu kod çok işime yaramakta ama bir sorunum var kopyala yapıştır ı kullanamamaktayım. bunu ne şekilde düzeltebiliriz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 37, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell.EntireRow
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub

 

[scorpix]

sorunun çözümünü aşağıdaki kodlar ile buldum ancak şimdide geri al komutu çalışmamakta bu konuda yardım edebilecek olan varmı

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

 

[uzmanamele]

merhaba
kod çalıştıktan sonra geri al çalışmaz!