Hücredeki Değer Boşsa Kayıt Gerçekleşmesin
20 Nisan 2021
26 Nisan 2021
996
Hücredeki Değer Boşsa Kayıt Gerçekleşmesin kodu, belirlediğiniz bir hücrede bir değer yoksa kaydetme işlemine izin verilmemeyi öğretmektedir.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveSheet.Range("A1") = "" Then
MsgBox ("Kaydetme işlemi devam edemiyor!" & vbCrLf & "A1 hücresini boş bırakamazsınız."), vbCritical, "ExcelDepo"
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 hangi sayfada deneme yapacaksanız, o sayfanın adının üstüne çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Bazen Excel'de bir takım işlemlerin olması için bazı kriterler koymanız gerekebilir. Mesela dosyanız kaydedilmeden önce A1 hücresinde mutlaka bir değerin yazılı olması kuralını isteyebilirsiniz. Üstteki kod, böyle bir durumda kaydetmeyi engellemektedir. Kendi ihtiyacınıza göre revize edebilirsiniz.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Şerit Menü Tuşlarını Aktif Etme / Alternatif | Shift F6 |
| Yapıştır Kısayolu | Ctrl V |
| Hücreleri biçimlendirme ekranını açma | Ctrl 1 |
| Bir Ekran Yukarı Git | PgUp |
| Bitiş Modunu Açma | End |