Koşullu Dosya Kaydetmek

[Recep İpek]

Merhaba arkadaşlar.

Aşağıdaki kodlar ile yapmaya çalıştığım;
çalışma kitabını kapatırken,
sayfada sadece Koşullu Biçimlerdirme yapılmış ise kaydetme sorusunun sorulmamasını istiyorum.

Diğer her türlü değişikliklerde bu soruyu sorabilir.



[vb:1:1d897ea6ea]
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application:
.DisplayAlerts = False
.Quit
End With
End Sub[/vb:1:1d897ea6ea]

 

[Nazmi YAZICI]

Mrb,

Aşağıdaki kodlar Sheet1 sayfasında A1:L1000 aralığında koşullu biçimlendirme kontrolu yapacak şekilde hazırlanmıştır. Kendi uygulamanıza göre kodları düzenlersiniz.
Syg.

Sub Auto_Close()
Dim hucre As Range
Dim a As Integer
a = 0
    For Each hucre In Sheets("Sheet1").Range("A1:L1000")
        a = a + hucre.FormatConditions.Count
    Next hucre

    If a > 0 Then
        Workbooks("Book2.xls").Close True
    End If
End Sub

 

[Recep İpek]

Merhaba,

Öncelikle ilginiz için teşekkür ederim.

Benim yapmak istediğim,

Dosyada herhangi bir işlem yapmadan kapatırken bana Kaydetme sorusunun sorulmaması.Sayfada Koşullu Biçimlendirme olduğu için bu soruyu soruyor.Soruda atladığım dosyayı kapatırken Koşullu Biçimlerdirmeyi siliyorum.Kısacası sayfadaki değişiklik Koşullu Biçimlendirme ise bana soru sormasın.

Örnek dosya ektedir.

 

[Kemal Demir]

Sub Kapat()
Application.DisplayAlerts = False
ThisWorkbook.close
End Sub

Denemedim ama Belki İşinizi Görür Diye Düsüşdüm.

 

[Recep İpek]

Tekrar merhaba,

Bu soru ile ilgili sayfanın herhangi bir hücresinde
değişiklik/silme/ekleme işlemi yapıldığında A1 hücresine örneğin 1 yazdırabilirmiyiz?

Kapatırken A1 hücresi 1 ise Kaydetme sorusunu sorar.Değil ise Kaydetme sorusunu sormadan dosyayı kapatır.

Teşekkürler.