Hücreye veri girişini zorunlu hale getirme.

[FATİH0142]

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.]

[Bülent Öztürk]

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


[FATİH0142]

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"

[Bülent Öztürk]

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

[FATİH0142]

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 ..

[Bülent Öztürk]

Ş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

[iselcuker]

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....

[Bülent Öztürk]

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?