Geri Al İleri Al Makro İzin Vermiyor

[neo]

Sa...

Değerli arkadaşlar aşağıda uzun süredir kullanmış oldğum bir kod var ve çok işime yarıyor.

bu koda bir sıkıntım var sıkıntı yapmış olduğum değişiklikleri geri veya ileri alamamak bu konuda sizlerden ricam ileri geri alma özelliğini sağlaya bilirmiyiz ..

Kod.
---------------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Application.CutCopyMode = xlCopy Then Exit Sub
If Application.CutCopyMode = xlCut Then Exit Sub
Cells.FormatConditions.Delete
If Intersect(ActiveCell, [A4:j1000]) Is Nothing Then Exit Sub
If Intersect(ActiveCell, [A4:j1000]) Is Nothing Then Exit Sub
Range("A" & ActiveCell.Row & ":j" & ActiveCell.Row).FormatConditions.Add Type:=xlExpression, Formula1:=1
Range("A" & ActiveCell.Row & ":j" & ActiveCell.Row).FormatConditions(1).Interior.ColorIndex = 40
Range("A" & ActiveCell.Row & ":j" & ActiveCell.Row).FormatConditions(1).Font.Bold = True
Range("A" & ActiveCell.Row & ":j" & ActiveCell.Row).FormatConditions(1).Font.ColorInde x = 5
ActiveCell.FormatConditions.Add Type:=xlExpression, Formula1:=1
ActiveCell.FormatConditions(1).Interior.ColorIndex = 15
End Sub
----------------------------------------------------------------------------------------
Saygı ve Sevgilerimle....

 

[uzmanamele]

merhaba
makro çalışınca geri al tuşu çalışmaz.

 

[neo]

Merhaba
Sayın uzmanamele çalıştırmanın bir yolu yokmu böyle çık citti sıkıntı veriyor ..

 

[megadeth61]

İlginçtir ki bende hem geri al hem de yapıştır tuşu işlemiyor.
Acaba bendeki durum daha farklı mı yoksa aynı sebepten mi?