İstenilen Şart Sağlanmıyorsa Kayıt Gerçekleşmesin
21 Nisan 2021
26 Nisan 2021
738
İ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ücreyi Araya Yerleştirme | Shift Sürükle |
| Seçilen kontrolü etkinleştirme veya açma | Space |
| Aktif Sayfayı Kapatma | Ctrl F4 |
| VB Penceresini Açmak | Alt F11 |
| Bitiş Modunu Açma | End |