Dosyamı Kapatırken Then Exit Sub Olmasını Nasıl Sağlarım

[betoncu]

Hazırladığım kodun Excel dosyamı kapatırken devre dışı olmasını istiyorum.

Bunu şu mantıkla çözmeye çalıştım ama hata veriyor:

If ActiveWorkbook.Close Then Exit Sub

Yukarıdaki kodda nerde hata yapıyorum yardım edermisiniz?

 

[betoncu]

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

 

[betoncu]

Eklediğim örnek dosyada herhangi bir hücreye tıklayınca satır renkleniyor. Başka bir hücreye tıklanınca daha önce renklenen satır eski haline dönüyor. Problemin başladığı nokta dosyayı kapattığımda hücrenin bulunduğu satır kalıcı olarak renkleniyor.
Bunu iptal etmek istiyorum. Bunu da dosyayı kapattığımda kodun devre dışı olmasıyla olabileceğini düşünüyorum.
Bu aşamada,
If ActiveWorkbook.Close Then Exit Sub
gibi bir kod denemek istedim olmadı.

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

 

[halit3]

Bu durum oldukça karışık kod her harekette kısır döngüye giriyor.

Bu kodu ThisWorkbook 'un kod bölümüne koyup deneyin


kod.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
For i = 1 To 256
If Cells(ActiveCell.Row, i).Interior.ColorIndex = 22 Then
Cells(ActiveCell.Row, i).Interior.ColorIndex = xlNone
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[betoncu]

Bu durum oldukça karışık kod her harekette kısır döngüye giriyor.

Bu kodu ThisWorkbook 'un kod bölümüne koyup deneyin


kod.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
For i = 1 To 256
If Cells(ActiveCell.Row, i).Interior.ColorIndex = 22 Then
Cells(ActiveCell.Row, i).Interior.ColorIndex = xlNone
End If
Next i
Application.ScreenUpdating = True
End Sub

Halit bey bu kodu uyglarsak da renklenen satırdaki herhangi bir hücrede daha önceden dolgu rengi kullanılmışsa dosya kapanırken bu dolgu rengide siliniyor.
Eski dolgu renklerini silmeden yapamazmıyız?

 

[betoncu]

Halit bey,
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub

satırındaki gibi bir kod uygulayamazmıyız.

If ActiveWorkbook.Close Then Exit Sub kod satırında yaptığım hata nedir?

 

[halit3]

Halit bey,
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub

satırındaki gibi bir kod uygulayamazmıyız.

If ActiveWorkbook.Close Then Exit Sub kod satırında yaptığım hata nedir?

İmlecin her hareketinde kod çalışıyor kod çalışırken bir önceki hareketi aklında tutuyor ve sonraki hareketede uyguluyor.

Dosyayı kapatınca kodlar çalışmıyacağından tekrar açılınca önceki kareketi de olmuyacağından bu uygulama bu yöntemle olmaz.

En iyisi dosyayı kapatınca ilgili renklerin silinmesi.

 

[betoncu]

Halit bey, yardımlarınız için teşekkür ederim ..