Hücreleri doldurmak mecburi

[clodj]

İyi günler,
Ekteki örnek dosyamda Safya 1 deki renkli hücrelerin hepsi doldurulmuş olmadan(gerek sayı gerek harf), sayfa 2 nin çıktısı alınamasın.
safyaların koruma şifresi : 1

Sayfa 1 de boş kalan renkli hücre var ise, sayfa 2 de çıktı alamasın. Ve uyarı mesajı versin.

ilgiliniz için teşekkür ederim.

 

[ormanci_50]

sayfa düzeni bu şekilde sabit midir?

 

[clodj]

evet sabit

 

[Levent Menteşoğlu]

Aşağıdaki kodu dosyanızın thisworkbook kod sayfasına kopyalayarak deneyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
say = WorksheetFunction.CountA(Sheets("sheet1").[a3,a5,a8,a10,c6,c13])
If say < 6 Then
Cancel = True
Exit Sub
End If
End Sub