yazdırma

[Ayhan Ercan]

selam arkadaşlar.

ben bir bordro hazırlıyorum. 30 ar kişilik sayfalar mevcut. eger personel sayım 93 kişi ise, 3 kişi için kocaman bir sayfa yazdırmam gerekiyor. yani 27 satır boşa cıkarmış oluyorum. sayfanın altında da bordo bilgileri bulunuyor. yazdır butonuna tıkladığım zaman istiyorum ki 30 ve katları dışında personelim varsa (mesela 93) 3 tane tam sayfadan sonra 4. sayfada sadece 3 kişilik bilgiden sonra direkt olarak bordro sonundaki yazılar gelsin. yani 27 satırlık boş bir çizelge cıkmasın.

umarım sorunumu anlatabilmişimdir.

 

[osmanfenerli1907]

Dosyanızı ekleyebilir misiniz?

 

[Ayhan Ercan]

dosyamı ekledim

 

[Korhan Ayhan]

Selamlar,

Bu işlemi 93. kişiden sonraki boş satırları gizleyerek yapabilirsiniz. Onlar zaten sizin işinize yaramıyor. Kullanmak istediğinizde ise tekrar görünür hale getirip işlemlerinizi yapabilirsiniz.

 

[Ayhan Ercan]

Selamlar,

Bu işlemi 93. kişiden sonraki boş satırları gizleyerek yapabilirsiniz. Onlar zaten sizin işinize yaramıyor. Kullanmak istediğinizde ise tekrar görünür hale getirip işlemlerinizi yapabilirsiniz.

iyide bu ay 93 kişi var birdahaki aydada 97 kişi oldu ve diğer ayda 105 oldu. ben her zaman bu şekildemi halletcem işimi ? bu bir aylığına mahsus değil....

 

[halilyor]

İyi akşamlar.
Aşağıdaki kodu çalışmanıza uyarlıyabilirsiniz

Application.ScreenUpdating = FalseSheets("AYLIK RAPOR YAZ").Unprotect Password:="2000"For Each rngRow In ActiveSheet.UsedRange.RowsIf Application.Sum(rngRow) < 1 ThenrngRow.EntireRow.Hidden = TrueEnd IfNext rngRowWith Worksheets("AYLIK RAPOR YAZ").PageSetup.CenterHorizontally = True.PrintArea = "KASA_DEFTERİ_AYLIK_RAPOR".Orientation = xlPortrait.FitToPagesWide = 1.FitToPagesTall = 1End WithWorksheets("AYLIK RAPOR YAZ").PrintOutFor Each rngRow In ActiveSheet.UsedRange.RowsIf Application.Sum(rngRow) < 1 ThenrngRow.EntireRow.Hidden = FalseEnd IfNext rngRowSheets("AYLIK RAPOR YAZ").Protect Password:="2000"Sheets("KASATÜRRAPDETAY").SelectMsgBox "LÜTFEN BEKLEYİN RAPOR YAZDIRILIYOR"Application.ScreenUpdating = True

 

[Ayhan Ercan]

İyi akşamlar.
Aşağıdaki kodu çalışmanıza uyarlıyabilirsiniz

Application.ScreenUpdating = FalseSheets("AYLIK RAPOR YAZ").Unprotect Password:="2000"For Each rngRow In ActiveSheet.UsedRange.RowsIf Application.Sum(rngRow) < 1 ThenrngRow.EntireRow.Hidden = TrueEnd IfNext rngRowWith Worksheets("AYLIK RAPOR YAZ").PageSetup.CenterHorizontally = True.PrintArea = "KASA_DEFTERİ_AYLIK_RAPOR".Orientation = xlPortrait.FitToPagesWide = 1.FitToPagesTall = 1End WithWorksheets("AYLIK RAPOR YAZ").PrintOutFor Each rngRow In ActiveSheet.UsedRange.RowsIf Application.Sum(rngRow) < 1 ThenrngRow.EntireRow.Hidden = FalseEnd IfNext rngRowSheets("AYLIK RAPOR YAZ").Protect Password:="2000"Sheets("KASATÜRRAPDETAY").SelectMsgBox "LÜTFEN BEKLEYİN RAPOR YAZDIRILIYOR"Application.ScreenUpdating = True

sayın halilyor, önce alakanız için teşekkür ederim. ama verdiğiniz kodlar işime yaramadı... başka yardımcı olabilecek arkadaşlar yokmu?

 

[Korhan Ayhan]

Selamlar,

Ekte dosyan&#305;zda gerekli d&#252;zenlemeleri yapt&#305;m incelermisiniz. Bordro sayfan&#305;zda sar&#305; renkle belirtti&#287;im s&#252;tunda form&#252;l var bu s&#252;tunun g&#246;z&#252;kmesini istemiyorsan&#305;z beyaz ile renklendirebilirsiniz. Umar&#305;m i&#351;inize yarar.

 

[Ayhan Ercan]

Selamlar,

Ekte dosyanızda gerekli düzenlemeleri yaptım incelermisiniz. Bordro sayfanızda sarı renkle belirttiğim sütunda formül var bu sütunun gözükmesini istemiyorusanız beyaz ile renklendirebilirsiniz. Umarım işinize yarar.

sağolasın kardeş. eline koluna sağlık. cok teşekkür ederim....

 

[gorhan]

Say&#305;n Schakal ;
ekte g&#246;nderdi&#287;iniz dosyada personelinizin &#246;zl&#252;k bilgileri hesap numaralar&#305; bulunuyor.Ben k&#246;t&#252; niyetli insanlar&#305;n bu bilgileri kullanabilece&#287;i kanaatindeyim.
Na&#231;izane fikrim bu kadar &#231;ok &#252;yesi bulunan bir sitede bu bilgilerin bulunmamas&#305; y&#246;n&#252;ndedir.

 

[Ayhan Ercan]

Say&#305;n Schakal ;
ekte g&#246;nderdi&#287;iniz dosyada personelinizin &#246;zl&#252;k bilgileri hesap numaralar&#305; bulunuyor.Ben k&#246;t&#252; niyetli insanlar&#305;n bu bilgileri kullanabilece&#287;i kanaatindeyim.
Na&#231;izane fikrim bu kadar &#231;ok &#252;yesi bulunan bir sitede bu bilgilerin bulunmamas&#305; y&#246;n&#252;ndedir.

hakl&#305;s&#305;n&#305;z say&#305;n gorhan, te&#351;ekk&#252;r ederim....

 

[gorhan]

haklısınız sayın gorhan, teşekkür ederim....

Rica ederim , çalışmalarınızda başarılar dilerim.

 

[talatcd]

her sayfay&#305; ayr&#305; ayr&#305; yazd&#305;r. daha mant&#305;kl&#305; olmazm&#305; Yazd&#305;r Butonuna userform ekle ve userforma sayfa1 yazd&#305;r , sayfa2 yazd&#305;r v.s. diye hangi sayfalar dolu ise o sayfay&#305; yazd&#305;r.

 

[orrhankaya]

Sütunun birine (dolu satırlarını görmek istediğin sütuna) Otomatik Süz ekle
Önce tümünü sonra boş olmayanları süz.
Bunu her seferinde yapmak zahmetli olacağından bu çalışmayı makroya kaydet.
Makro, Sayfa etkinleştiğinde otomatik çalışsın.

Ben bu tür çalışmalarımın tamamını bu usulle yapıyorum. Daha pratik bir yol bulamadım. Bulan varsa ben de yararlanmak isterim.
Döngü kullanarak yaptım ancak döngü en az 5 saniye sürüyor.