Şartlı kayıt

[celofb]

merhaba arkadaşlar,

ek dosyadaki excel sayfamda he iki sayfada sarı renk ile belirtilmiş olan bölgeye tarih girmeden dosyanın kaydedilememesi için makro formülüne ihtiyacım var.Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[dEdE]

Merhaba,
Aşağıdaki kodu ThisWorkbook kod bölümüne yapıştırarark dener misiniz?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not IsDate(Sheets("Sayfa1").Cells(6, 3).Value) Or Not IsDate(Sheets("Sayfa2").Cells(12, 3).Value) Then
    Cancel = True
    MsgBox "Sayfa1-C6 veya Sayfa2-C12 de tarih yok!" & vbLf & "Dosya kayıt edilmedi!", vbCritical, "UYARI"
End If
End Sub

 

[programer]

Ekteki dosyayı incelermisniz

 

[dEdE]

Merhaba,
Sayın Programer,

... sayfada sarı renk ile belirtilmiş olan bölgeye tarih girmeden dosyanın kaydedilememesi ...

isteniyor.
Sizin verdiğiniz kod boşluk dahil herhangibir değer girilmesi halinde kayda izin verir.
Hoşçakalın.