Verileri-YAZDIR

[hamdikucukgul]

3 gündür uğraşıyorum yapamadım.
Ekteki dosyada Sarı alanlara veri girdiğim yaman yazdır deyice veri girilen yerleri yazdırsın ve altaki toplam puan ksımlarını altına eklesin.
Orada 20 satır var bazen 10 satır kullanıyorum hepsini yazdırıyorum. Boş alanlar çıkmasın istiyorum. Yardım edin lütfen şimdiden teşekkürler. saygılar.

 

[Korhan Ayhan]

Selamlar,

AX sütununa sarı alanları toplamlarını aldırın. Bu sarı alanlara veri giriş işleminiz bittikten sonra AX sütununa sıfırdan büyükleri gösterecek şekilde fİltre uygulayın ve sayfayı yazdırmayı deneyin.

 

[Halit TÜRK]

Merhabalar..

Sub yaz()
Range("D4").Select
Selection.AutoFilter Field:=4, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=4
End Sub

 

[hamdikucukgul]

Merhabalar..

Sub yaz()
Range("D4").Select
Selection.AutoFilter Field:=4, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=4
End Sub

ÇOOOOK TEŞEKKÜR EDERİM BU BENİM SORUNUMU ÇÖZDÜ. FAKAT BİLGİ OLMAYAN SÜTUNLARIDA YAZDIRMASA GÜZEL OLACAKTI AMA NEYSE selam VE saygılar. htrk

 

[Halit TÜRK]

Selam..
Dosya eklidir..

 

[hamdikucukgul]

Çok teşekkür ederim ilgine. Formda 3 düğme mi olacak yani. yazdır, gözter gizle. sadece yazdır olan daha uygun benim için. ne yapalım fazladan bir kaç sütun yazdırılsın. Yaptığım dosya ektedir.Bilgi girişi yapmadığım bölümler gri renkte. Girdiklerim beyaz işte bu beyaz alan yazdırılsın istemiştim hem satır hem sütun olarak. Simdi şadece satırlar yazdırılmıyor od iyi benim için.Tekrar teşekkürler saygılar.

 

[hamdikucukgul]

Selam..
Dosya eklidir..

&#214;z&#252;r dilerim ayn&#305; anda yaz&#305;&#351;t&#305;k dosyay&#305; inceliyorum.
Bu dosya bo&#351; alnlar&#305;da yazd&#305;r&#305;yor hocam. Benim bir &#246;nceki bo&#351; sat&#305;rlar&#305; yazd&#305;rm&#305;yordu. Dosya ekte. Tabiki en alttaki sat&#305;rlarda ilave edecek (onlar son hesaplama) yazd&#305;r&#305;lacak Tamam &#199;OOOK te&#351;ekk&#252;rler fazla y&#252;k oldum Bir &#246;neckini kullanaca&#287;&#305;m vars&#305;n fazladan s&#252;tun yazd&#305;rs&#305;n. Ben bundan &#246;nceki cevab&#305;mda dosyay&#305; g&#246;nderdim &#199;OK G&#220;ZEL oldu. Sadece fazla s&#252;runlarda yad&#305;r&#305;l&#305;yor. SAYGILAR. S&#305;n&#305;f &#246;&#287;remenleri i&#231;in bir dosya haz&#305;rl&#305;yorum . kesinlikle bu formun adresini ana sayfay ekleyece&#287;im.

 

[Halit TÜRK]

Selam

Yeni dosyanıza bakarmısınız...

 

[hamdikucukgul]

Say&#305;n hocam bu &#231;ooooook g&#252;zel. Tek yazd&#305;r la halledemiy&#305;ruz san&#305;r&#305;m.
Bende &#246;&#287;retmenlerimin kafas&#305; kar&#305;&#351;mas&#305;n diye tek tu&#351; istedim. Asl&#305;nda buda &#231;ok g&#252;zel bunu kullanaca&#287;&#305;m. Tekrar &#231;ok te&#351;ekk&#252;rler. Ellerin dert g&#246;rmesin. Asl&#305;nda o zaman yazd&#305;r butonuna gerek yok. Gizle deyip yazd&#305;r&#305;l&#305;r.
Sevgiler.
Bu formlar &#246;&#287;retmenlerimin &#231;ok i&#351;ine yarayacak biliyorsunuz bug&#252;nde &#214;&#287;retmenler g&#252;n&#252;m&#252;z.

 

[Halit TÜRK]

Selam

Yazdır butonuna ihtiyacınız yok..
Aslında butonların hiçbirine ihtiyacınız yok ama kullanımı zor olur, mause çift tıklama ve sağ click tuşlarına da atanabilir..

Yazdır butonunu kaldırıp kullanımızı tavsiye ederim...
Forumdaki uzman arkadaşlar sağolsun onların sayesinde biraz olsun birşeyler öğreniyoruz...
Bende hem çalışan ve hemde öğrenci olarak öğretmenler gününde yardımcı olabildiysem ne nutlu bana... Öğretmenler günü kutlu olsun.. Hoşçakalın...

 

[Korhan Ayhan]

Selamlar,

Yazd&#305;rma i&#351;lemini tek tu&#351;la yapmak i&#231;in alternatif olarak a&#351;a&#287;&#305;daki kodu kullanabilirsiniz.

T&#252;m &#246;&#287;retmenlerimizin bu &#246;zel g&#252;n&#252;n&#252; sayg&#305;yla kutluyorum.

Sub YAZDIR()
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    Cells.EntireColumn.Hidden = False
    For X = 4 To 48
    If Cells(25, X) = 0 Then Columns(X).EntireColumn.Hidden = True
    Next
    For X = 5 To 24
    If WorksheetFunction.Sum(Range(Cells(X, 4), Cells(X, 48))) = 0 Then Rows(X).EntireRow.Hidden = True
    Next
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Cells.EntireRow.Hidden = False
    Cells.EntireColumn.Hidden = False
    Application.ScreenUpdating = True
End Sub

 

[Halit TÜRK]

Sn. Cost_Control

&#350;ahsen bu d&#252;zenlemeyi sizden bekliyordum, beni &#351;a&#351;&#305;rmad&#305;n&#305;z.. Kodlar&#305; bana ait bir dosyada kullan&#305;yordum.. &#350;imdi sadece d&#252;zenlemek kald&#305;.. Te&#351;ekk&#252;rler...

 

[hamdikucukgul]

Sayın cost_Control bu iş çözüldü bende bir öğretmen olarak çok mutlu oldum.
htrk sizede çok teşekkür fakat son iş güzel oldu. tek tuşla.
ÇOOOK sevindim. Yazdırdım denedim tamam. saygılar sevgiler.

 

[hamdikucukgul]

Problem; Ben bu YAZDIR butonlu sayfaya koruma koyunca makro çalışmıyor. ?

 

[Korhan Ayhan]

Selamlar,

Sayfan&#305;za koruma koyunca do&#287;al olarak makrolar &#231;al&#305;&#351;mayacakt&#305;r. Bu durumda kodu a&#351;a&#287;&#305;daki &#351;ekilde d&#252;zenlerseniz istedi&#287;iniz sonuca ula&#351;abilirsiniz. K&#305;rm&#305;z&#305; renkli sat&#305;rlardaki 1 de&#287;eri sayfa koruma &#351;ifresidir. Kendinize g&#246;re de&#287;i&#351;tirmeyi unutmay&#305;n.

Not: Sayfan&#305;za &#351;ifre koyarken se&#231;enekler b&#246;l&#252;m&#252;nden NESNE D&#220;ZENLE se&#231;ene&#287;ini i&#351;aretlemeyi unutmay&#305;n. Aksi halde sayfadaki butona t&#305;klayamazs&#305;n&#305;z.

Sub YAZDIR()
    Application.ScreenUpdating = False
    [B][COLOR=red]ActiveSheet.Unprotect "1"[/COLOR][/B]
    Cells.EntireRow.Hidden = False
    Cells.EntireColumn.Hidden = False
    For X = 4 To 48
    If Cells(25, X) = 0 Then Columns(X).EntireColumn.Hidden = True
    Next
    For X = 5 To 24
    If WorksheetFunction.Sum(Range(Cells(X, 4), Cells(X, 48))) = 0 Then Rows(X).EntireRow.Hidden = True
    Next
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Cells.EntireRow.Hidden = False
    Cells.EntireColumn.Hidden = False
    [B][COLOR=red]ActiveSheet.Protect "1"[/COLOR][/B]
    Application.ScreenUpdating = True
End Sub

 

[1Al2Ver]

Ellerinize sa&#287;l&#305;k, Not hanesinde yazd&#305;r&#305;lacak &#246;l&#231;&#252;tleri belirleyiniz'den kas&#305;t ; Yazd&#305;r&#305;lacak &#246;l&#231;&#252;t kadar veri girmek midir ? Cevab&#305;n&#305;z "hay&#305;r" ise bu halde
20 tane &#246;l&#231;&#252;t&#252;n hepsi dolu ise bu &#246;l&#231;&#252;tlerden &#246;rne&#287;in 1,5,7,11 nolu &#246;l&#231;&#252;tler yazd&#305;r&#305;lmak isteniyorsa, ne yap&#305;lmal&#305;d&#305;r ?
&#214;l&#231;&#252;tlerin artt&#305;r&#305;lmas&#305; form&#252;lleri ve d&#252;zeni bozar m&#305; ? Te&#351;ekk&#252;r ederim

 

[hamdikucukgul]

SAYIN Cost_Control çooook teşekkürler iş bitti sizin dediğiniz kırmızı yazıları ben en başa ve en sona ekledim şifre sormadan yazdırıyor.
Diğer arkadaşım; Orada ölçütleri yazmanız önemli değil 20 ölçüt yazılı olabilir. Siz kaç tanesini kullanırsanız. yazıcıdan o kadr çıkar veya 45 öğrencilik olan bu form 20 öğrenci girersenizde 20 öğrenciyi yazdıracak. Yani ölçütlerin 20 si yazılı olsun siz bunlardan 10 tanesini kullanıp değerlendirme yaptınız o kullanmadığınız ölçütler yazıcıdan çıkmayacak düzenlemeye çalışıyorum . Sınıf öğretmeni iseniz çok iyi bir proje-performans urun dosyası ve gözlem formları hepsi bir yerde olacak çalışırım İşte SAYGILAR.

 

[1Al2Ver]

Sn.HamdiK&#252;&#231;&#252;kg&#252;l, te&#351;ekk&#252;r ederim.