Koşullu Kaydetme

[frk]

Selam Arkadaşlar,

Sayfayı kaydetmeden önce sayfa içerisinde ki bir hücrenin değerine göre, kaydet butonuna basınca kaydettirip, kaydettirmeyecek bir makro arıyorum. ( örn : A1 hücresinin değeri eğer 1 ise kaydettirecek, 2 ise kaydetmeyerek bir hata mesajı verecek ). Yardımcı olursanız sevinirim.

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 1 Then
ActiveWorkbook.Save
Else
MsgBox "Kaydetmek İçin Doğru Veriyi Giriniz"
End If
End Sub

 

[balıkcı]

Private Sub kaydet_Click()
If Range("A1").Value = "1" Then
ActiveWorkbook.Save
MsgBox "Kitap kaydedildi"
Else
MsgBox "Kitap kaydedilmedi"
End If
End Sub

 

[frk]

Tekrar merhaba,

Arkadaşlar program olarak çalışıyor, ama ctrl+s veya toolbar üzerinden kaydete basılınca A1 değeri ne olursa olsun devam ediyor. ( Kaydediyor. )
Yardımlarınızı bekliyorum.
Örnek olarak gönderebilirseniz memnun olurum.

 

[Korhan Ayhan]

Selamlar,

Ekteki dosyayı incelermisiniz.

 

[baydeniro]

Teşekkürler sayın Korhan Ayhan