belge kapanırken hücre içeriğini kontrol etme

[mustafacavdar]

Excel de begeyi kapatırken b sütununun son satırı dolu ise ilk dört sutünü doldurmadan çıkmasını nasıl engelleyebiliriz?

 

[Emir Hüseyin Çoban]

. . .

Sorunuzu örnek dosya ile destekler misiniz.

Son dolu dediğiniz hücre aralığı nedir.

Auto_close prosedürüne if şartı ile yapılabilir.

. . .

 

[mustafacavdar]

dosya açıldığında satırları sayacak son dolu satıra bakarak ilk 4 sütun dolu değilis e çıkışı engelleyecek. İf ile yapım ben bunu beforeclose olayının altına fakat bir sorun çıkarıyor çalışmıyor.
Gold üye olmadığım için dosya yükleyemedim

 

[Emir Hüseyin Çoban]

. . .

Dosya paylaşım sitelerine yükleyip, linki buraya yazabilirsiniz.

. . .

 

[mustafacavdar]

http://dosya.web.tr/KGZ9lD
linkte verdiğim dosyada eğerki sıra numarası girilmişse o satırdaki öğrenci ve notunuda girmeden exceli kapatıp çıkış yapajmasın istiyorum yardımcı olabilirseniz sevinirim.

 

[Emir Hüseyin Çoban]

. . .

BuçalışmaKitabı kod bölümüne yapıştırın

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Sheets("Sayfa1")
        son = .Cells(Rows.Count, "A").End(3).Row
        If .Cells(son, "A") <> "" Then
            If .Cells(son, "B") = "" Or .Cells(son, "C") = "" Then
                MsgBox son & ". Satırına Öğrenci Adı ve Notunu Giriniz", vbCritical
                Cancel = True
            End If
        End If
    End With
End Sub

. . .

 

[mustafacavdar]

çok teşekkür ederim süpersiniz