İstenilen Şart Sağlanmıyorsa Kayıt Gerçekleşmesin
21 Nisan 2021
26 Nisan 2021
833
İstenilen Şart Sağlanmıyorsa Kayıt Gerçekleşmesin kodu, belirlediğiniz bir kriter gerçekleşmemişse, kayıt yapılmamasını öğretmektedir.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Sayfa1").Range("A1").Value < 10 Then
Cancel = True
End If
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Excel ile çalışırken, belirlediğiniz bir kriter gerçekleşmemişse, dosyayı kaydet dediğinizde bile kodlar bu davranışa engel olacaktır. Kodlardaki kriter örneği, Sayfa1 isimli Excel Çalışma Sayfasının A1 hücresinde 10'dan küçük değer varsa kaydetme yapılmasın şeklindedir. Kendi ihtiyacınıza göre bu kısmı revize edebilirsiniz.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Hücrede Yatay Ortalama Yapmak | Alt Ş OO |
| İlişkili Hücre Aralığı Seçimi Yapma | Ctrl Shift Boşluk |
| Bir Ekran Sağa Git | Alt PgDn |
| Bir Ekran Aşağı Git | PgDn |
| VB Penceresini Açmak | Alt F11 |