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
-
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.]
-
Merhaba.
A1 hücresi için;
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
-
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"
-
Aleyküm selam Fatih Bey.
Böyle bir şey işinize yarar mı?
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
-
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 ..
-
Şu şekilde dener misiniz?
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
-
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....
-
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?