Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: FATİH0142 - 04 Mayıs 2010, 20:13:17

Başlık: Hücreye veri girişini zorunlu hale getirme.
Gönderen: FATİH0142 - 04 Mayıs 2010, 20:13:17
Herkese selamlar,
Ekte sürekli veri girişi yaptığımız bir dosyamız var.Fakat bazı hücreler doldurulmadan kayıt yapmayı engellemek istiyorum.Bunun için nasıl bir formül yazmalıyım.(Kod da olabir)
Yardımlarınız için şimdiden teşekkürler..


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
Başlık: Ynt: Hücreye veri girişini zorunlu hale getirme.
Gönderen: Bülent Öztürk - 04 Mayıs 2010, 20:48:56
Merhaba.

A1 hücresi için;

Kod: [Seç]
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Sayfa1").Range("A1") = Empty Then MsgBox "A1 boş olamaz!", vbCritical, "Hata": Cancel = True: Exit Sub
End Sub
Başlık: Ynt: Hücreye veri girişini zorunlu hale getirme.
Gönderen: FATİH0142 - 04 Mayıs 2010, 22:45:46
Hocam selamlar,
B2 hücresinde veri varsa ;
D2 hücresine "KABUL-RED veya BEKLE" yazmazsam, E2 hücresine de  Tarih yazmazsam, kayıt yapmamı engellesin."UYARI VEREBİLİR"
Aynı şekilde B3 hücresinde veri varsa;
D3 hücresine "KABUL-RED veya BEKLE" yazmazsam, E3 hücresine de  Tarih yazmazsam, kayıt yapmamı engellesin."UYARI VEREBİLİR"
Başlık: Ynt: Hücreye veri girişini zorunlu hale getirme.
Gönderen: Bülent Öztürk - 04 Mayıs 2010, 23:05:31
Aleyküm selam Fatih Bey.
Böyle bir şey işinize yarar mı?

Kod: [Seç]
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If [B2] <> Empty Then
    If [D2] <> "KABUL-RED" And [D2] <> "BEKLE" Then
        If Not IsDate([E2]) Then MsgBox "Eksik veri girdiğiniz için kayıt yapamazsınız!", vbCritical, "Hata:": Cancel = True: Exit Sub
    End If
End If
If [B3] <> Empty Then
    If [D3] <> "KABUL-RED" And [D3] <> "BEKLE" Then
        If Not IsDate([E3]) Then MsgBox "Eksik veri girdiğiniz için kayıt yapamazsınız!", vbCritical, "Hata:": Cancel = True: Exit Sub
    End If
End If
End Sub
Başlık: Ynt: Hücreye veri girişini zorunlu hale getirme.
Gönderen: FATİH0142 - 04 Mayıs 2010, 23:42:59
Yardımlarınız için çok teşekkür ederim.
Peki veri girişi aşağıya doğru devam ediyorsa, yani B4 ,B5....B10 şeklinde ise ..
Başlık: Ynt: Hücreye veri girişini zorunlu hale getirme.
Gönderen: Bülent Öztürk - 05 Mayıs 2010, 09:13:29
Şu şekilde dener misiniz?

Kod: [Seç]
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim excelce_eksik As Range
For Each excelce_eksik In Range("B2:B" & Range("B65530").End(3).Row)
If excelce_eksik <> Empty Then
    If excelce_eksik.Offset(0, 2) <> "KABUL-RED" And excelce_eksik.Offset(0, 2) <> "BEKLE" Then
        If Not IsDate(excelce_eksik.Offset(0, 3)) Then MsgBox "Eksik veri girdiğiniz için kayıt yapamazsınız!", vbCritical, "Hata:": Cancel = True: Exit Sub
    End If
End If
Next excelce_eksik
End Sub
Başlık: Ynt: Hücreye veri girişini zorunlu hale getirme.
Gönderen: iselcuker - 26 Kasım 2019, 00:09:50
arkadaşlar TAHMİNİ BÜTÇE adında bir sheet var burdaki b56 hücresinin boş geçilmemesini, geçecek olursada ".... boş geçemezsiniz" şeklinde uyarı vermesini istiyorum. ne yaptıysam olmadı. lütfen yardım....
Başlık: Ynt: Hücreye veri girişini zorunlu hale getirme.
Gönderen: Bülent Öztürk - 26 Kasım 2019, 08:26:56
arkadaşlar TAHMİNİ BÜTÇE adında bir sheet var burdaki b56 hücresinin boş geçilmemesini, geçecek olursada ".... boş geçemezsiniz" şeklinde uyarı vermesini istiyorum. ne yaptıysam olmadı. lütfen yardım....

Hangi aşamada bu olmalı?
Dosya kaydedilirken mi mesela?