yazdırma

[ccumhur]

öyle bir makro lazımki bir sayfa dolunca uyarı versi yazdır diye
teşekür

 

[Levent Menteşoğlu]

Sayfada son veri bulunacak hücre hangisidir.

 

[ccumhur]

1.sayfa için n55 bu sayfayı silmeyecez üdevam etcez,2.sayfaiin n111

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kodu deneyin. Bu kod sayfanın kod sayfasına yazılmalıdır.

[vb:1:83a0a060a9]Private Sub Worksheet_Change(ByVal Target As Range)
If [n55] <> 0 Then MsgBox "1.sayfa doldu"
If [n111] <> 0 Then MsgBox "2.sayfa doldu"
End Sub
[/vb:1:83a0a060a9]

 

[ccumhur]

cevap için teşekür ederim yanlız formdan yazdırıyorum ve 1.yazdırılacak hücreye gelince soruyor ondan sonra sürekli soruyor ....

 

[ccumhur]

arkadaslar yukardaki sorunu hala cözemedim fikirlerinizi bekliyorum...tşk

 

[dEdE]

Mrb.,
Bu işini görür mü? Eğer olursa aynı mantılka devam edebilirsin

Private Sub Worksheet_Change(ByVal Target As Range)
If [a56] <> 0 Then GoTo atla
If [n55] <> 0 Then MsgBox "1.sayfa doldu"
atla:
If [n111] <> 0 Then MsgBox "2.sayfa doldu"
End Sub

Kolay gelsin.