Dosya Kapanırken Makronun Devreye Sokulması

[betoncu]

Dosyayı herhangi bir şekilde kapatırken (Çarpı ile, Alt+F4, Dosya/Kapat) belirlediğimiz bir makronun çalışmasını nasıl sağlarız?


Örnekteki dosyada kapatma işlemi yapılırken Module1 deki yenile makrosunun devreye girmesini istiyorum.

Bunun için yardımlarınızı bekliyorum...

 

[asi_kral]

Merhaba
Module'deki kodu bu şekilde değiştirip deneyin.

Sub yenile()
For i = 1 To [g65536].End(3).Row     ' G sütunundaki son satıra kadar işlem yapılacağını gösterir
Cells(1, "g").Select                         ' G1 hücreyi seçer
SendKeys "{F2}"                             ' Seçilen hücrede f2 tuşunu tetikler
SendKeys "{ENTER}"                      ' Seçilen hücreyi enter ile geçer
Next                                               ' Sonraki i değerini alır
End Sub
Sub auto_close()
yenile
End Sub

 

[betoncu]

Merhaba
Module'deki kodu bu şekilde değiştirip deneyin.

Sub yenile()
For i = 1 To [g65536].End(3).Row     ' G sütunundaki son satıra kadar işlem yapılacağını gösterir
Cells(1, "g").Select                         ' G1 hücreyi seçer
SendKeys "{F2}"                             ' Seçilen hücrede f2 tuşunu tetikler
SendKeys "{ENTER}"                      ' Seçilen hücreyi enter ile geçer
Next                                               ' Sonraki i değerini alır
End Sub
Sub auto_close()
yenile
End Sub

Dosya kapanırken malesef makro çalışmadı. Başka bir yolu varmıdır?

 

[betoncu]

Aslında amacımı söyleyerek çözüm arayışına girersem daha doğru olacak sanırım.
Ekte vermiş olduğum dosyada herhangi bir hücreye tıklayınca belirli bir aralıkta satır sarı renge boyanıyor. Sonra başka bir satıra tıkladığımda sarı renk yok oluyor.

Burdaki sorunum şudur: Dosyayı kapattığımda hangi hücre seçiliyse o hücrenin bulunduğu satır sarı renk olarak kalıyor. Dosyayı geri açtığımda sarı rengin iptal olmadığını görüyorum. Dosyayı kapatıp açınca sarı renginde yok olmasını nasıl sağlarız?

 

[hamitcan]

Dosya kapanırken dolgu renklerini siler.

Sub auto_close()
Cells.Interior.ColorIndex = xlNone
ActiveWorkbook.Save
End Sub

 

[betoncu]

Dosya kapanırken dolgu renklerini siler.

Sub auto_close()
Cells.Interior.ColorIndex = xlNone
ActiveWorkbook.Save
End Sub

Hamitcan bey hücrelerde silinmesini istemediğim dolgu renkleri var. Ben sadece bu belirttiğim satırdaki sarı rengin kalkmasını istiyorum.

 

[hamitcan]

Öyleyse şöyle yapın.

Sub auto_close()
Rows(ActiveCell.Row).Interior.ColorIndex = xlNone
ActiveWorkbook.Save
End Sub

 

[betoncu]

Çok teşekkür ederim...