İstenilen hücreye veri girişi yapmadan excel i kapatmayı önelemek

[lkayhan]

Örneğin A1 B2 C3 hücerelerine veri girişi yapılmasını istiyorum. Bu hücrelere istediğim değeri girmeden çıktı alınmasın ya da excel kapatılmasın. Bu mümkün müdür ?

 

[Murat OSMA]

ThisWorkbook kısmına yazıp deneyiniz;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If [a1] = "" Or [b2] = "" Or [c3] = "" Then Cancel = True
End Sub

 

[lkayhan]

Murat Bey ilginiz için teşekkürler. Ben meramımı biraz eksik anlatınca tabi yardım da biraz eksik oldu , benim yardımını istediğim olay istediğim hücrelere veri girişi yapılmadan yazıcı fonksiyonu çalışmasın, çıktıya imkan verilmesin. Tabi bu arada da sistem hata mesajı verip hangi alanların boş kaldığını dolgu rengiyle o hücreyi göstersin.

 

[Murat OSMA]

Hem eksik hem de yanlış anlatmışsınız. Önce Excel kapanmasın dediniz, şimdi yazdırmasın.


Neyse şu kodları yine ThisWorkbook kısmına yazıp bir deneyiniz;

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim Evn As Range
    For Each Evn In Range("A1,B2,C3")
        If Evn.Value = "" Then
            Evn.Interior.ColorIndex = 36
            MsgBox Evn.Address(0, 0) & " Hücresi boş"
            Cancel = True
                Else
            Evn.Interior.ColorIndex = 0
            Cancel = False
        End If
    Next Evn
    Set Evn = Nothing
End Sub