Bu Macroya Bakarmısınız (Geri al neden çalışmıyor)

[starmetin]

Selam arkadaşlar excelde aktif hücrenin farklı renk olması için yazılmış bir macroyu kullanıyorum seçili satır renkli oluyor herhangi bir problem yok ,yalnız mesala herhangi bir satırı değişiklik yaptığım zaman geri al tuşu aktif olmuyor veya kopyala yapıştırda olmuyor mesalama acaba bu neden olabilir sizce...
teşekkürler...

kullanılan macro (ben yazmadım alıntıdır.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static EskiHucre As Range
If Target.Interior.ColorIndex <> xlColorIndexNone Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
Exit Sub
ElseIf Not EskiHucre Is Nothing Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6
Set EskiHucre = Target
End Sub

 

[emrexcel123]

geri al pasif

arkadaşım ben bir çok çalışma yaptım ve her makroyu kullandığımda (en basit bile olsa dahi) geri ve ileri al komutları pasif yani kullanılamaz hale geliyor açıkçası içeriden müdahale edildiğinden değişiklikleri yok sayar ve geri alamazsınız ancak dosyada makroyu çalıştırıp değişiklik yapıp dosyayı kapattığınızda soru sorar "değişiklikler kaydedilsin mi ? " diye yani üst komuttan (geri al) veya "ctrl + z" komutu çalışmaz hale gelir açıkçası bunun bir yolunu bilen arkadaşlarımız varsa ben de öğrenmiş olurum kolay gelsin...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linklerde konu işlenmişti. İncelermisiniz.

http://www.excel.web.tr/showthread.php?t=14304&highlight=makro+undo
http://www.excel.web.tr/showthread.php?t=16647&highlight=makro+geri+al

Ayrıca kopyala yapıştır işleminde makronun çalışması için kodu aşağıdaki gibi değiştirip denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static EskiHucre As Range
    [COLOR=RED]Kriter = Application.CutCopyMode
    If Kriter = 1 Or Kriter = 2 Then Exit Sub[/COLOR]
    If Target.Interior.ColorIndex <> xlColorIndexNone Then
    EskiHucre.Interior.ColorIndex = xlColorIndexNone
    Exit Sub
    ElseIf Not EskiHucre Is Nothing Then
    EskiHucre.Interior.ColorIndex = xlColorIndexNone
    End If
    Target.Interior.ColorIndex = 6
    Set EskiHucre = Target
End Sub

 

[starmetin]

Selamlar,

Aşağıdaki linklerde konu işlenmişti. İncelermisiniz.

http://www.excel.web.tr/showthread.php?t=14304&highlight=makro+undo
http://www.excel.web.tr/showthread.php?t=16647&highlight=makro+geri+al

Ayrıca kopyala yapıştır işleminde makronun çalışması için kodu aşağıdaki gibi değiştirip denermisiniz.


kardeş teşekkürler en azından kopyala yapıştırı kurtadık sağolasın....

 

[emrexcel123]

basit

arkadaşım son yaptığın işlem için şu kodu denersin :mrgreen:
Sub gerial()
Application.Undo
End Sub
son işlem...