ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[mkustahaliloglu]

Merhabalar,
Excelde mevcut sınıf listesinde yer alan öğrencilerim için ayrı ayrı sınav kağıdı yazdırmaya yarayacak bir makroya ihtiyacım var.
Üniversitemizin öğrenci bilgi sisteminden aldığım listede öğrenci bilgileri mevcut oluyor. Bunun yanında, ayrı bir sayfaya da sınav sorularını yazıyorum. İstediğim şey, her bir sayfanın başına öğrenci listesinden bir öğrencinin bilgilerini çekip altına doru sayfasından soruları alarak yazıcıya göndermesini, ardından aynı işlemi öğrenci listesinde yer alan her bir öğrenci için ayrı ayrı tekrarlamasını istiyorum.
Yardımcı olursanız çok sevinirim.
Selamlar,

[veyselemre]

Kod: Tümünü seç

Sub soruKagidiYazdir()
    sonA = Cells(Rows.Count, 1).End(3).Row - 1
    If sonA < 1 Then Exit Sub
    bas = [F1]
    If bas = "" Or bas < 1 Then bas = 1
    If son > sonA Then bas = sonA
    son = [F2]
    If son = "" Or son > sonA Then son = sonA
    If bas > son Then son = bas
    For i = bas To son
        With Sheets("sorular")
            .PageSetup.LeftHeader = "No                   : " & Cells(i + 1, 2) & vbCr & _
                                    "Adı Soyadı     : " & Cells(i + 1, 3) & vbCr & _
                                    "-----------------------------------------------------"
            ' .PrintOut
            .PrintPreview
        End With
    Next i
End Sub


[mkustahaliloglu]

makrolar düğmesini excele ekleyip çalıştırdım,
yeni makro oluştur seçerek print adını verdim fakat gönderdiğiniz makroyu yapıştırabileceğim bir yer çıkmadı..
bu konuda da yardımcı olur musunuz?
Teşekkürler

[mkustahaliloglu]

makro etkinleştirme ayarları varmış, onları bulup düzelttikten sonra açıldı sayfa, ekleyip deneyeceğim..
tekrar teşekkürler

[mkustahaliloglu]

listeden öğrencilerin ad ve soyadları ile numaraları alıp altına soruları ekleyip yazdırma kısmı tamam..
header kısmına üniversite/fakülte/bölüm/ders adları ile sınav türü bilgileri ve tarih eklemek istedim ama sürekli hata verdi.
yine header kısmına bir de imza eklesek..
hatta abartıp sağ header bölümüne üniversite logosu eklesek olur mu?
çok teşekkür ederim.

[veyselemre]

listeden öğrencilerin ad ve soyadları ile numaraları alıp altına soruları ekleyip yazdırma kısmı tamam..
header kısmına üniversite/fakülte/bölüm/ders adları ile sınav türü bilgileri ve tarih eklemek istedim ama sürekli hata verdi.
yine header kısmına bir de imza eklesek..
hatta abartıp sağ header bölümüne üniversite logosu eklesek olur mu?
çok teşekkür ederim.

Soru sayfasının üst orta, üst sağ, alt başlık kısımlarına sayfa yapısından ekleyin bir kez öyle deneyin, her seferinde eklemenize gerek yok sabit bilgiler.

[mkustahaliloglu]

haklısınız, böyle de oldu fakat üniversite vs bilgiler en üstte yer alıp ardından ad-soyad numara ve imza bölümü gelse daha estetik olurdu..
dediğiniz gibi soru bölümüne ekleyeceğim imza bölümü yine ad-soyad bölümünden ayrı kalacak şu haliyle

[veyselemre]

Yazdır kısmında en altta sayfa yapısı var ordan üst bilgi/alt bilgi kısımlarına ilgili bilgileri girerseniz sayfaya dahil olmaz üst bilgi ve alt bilgi olarak her sayfada yazdırılır.

[mkustahaliloglu]

son söylediğiniz hiç olmadı, makroyu çalıştırmadan yazdırdığım için öğrenci listesini yazdırdı.

[veyselemre]

Yanlış anlamışsınız yazdır tuşuna basmayacaksınız. Sorular sayfasında iken yazdır menüsünün alt kısmındaki sayfa yapısı kısmını tıklayacaksınız.

[mkustahaliloglu]

Makroyu "öğrenciler" sayfasında iken çalıştırıyoruz..
Bundan önce sol üstteki "dosya>yazdır>sayfa yapısı>üstbilgi/altbilgi>..." adımlarını "sorular" sayfasında iken mi takip edip düzenleyeceğiz? Düzenledikten sonra kaydedip giriş sayfasına dönüp "öğrenciler" sayfasına dönüp makroyu çalıştıracağız, öyle mi?

[veyselemre]

Aynen,

[mkustahaliloglu]

Sorular sayfasında yazdır>sayfa yapısı>... adımlarını izleyip sol üstbilgi kısmında öğrenci bilgilerinin üstüne gelecek şekilde üniversite logosu ekliyorum, böylece öğrenci bilgileri aşağı kaymış da oluyor, kaydedip listede iken makroyu çalıştırıyorum fakat logo gidiyor, öğrenci bilgileri tekrar en başa geliyor.

[veyselemre]

Doğrudur, çünkü her yazdırma öncesinde kodla sıradaki öğrenci öğrenci isimlerini sol üst bilgiye yazdırıyoruz. Kodla sadece sol üst bilgiye yazdırılıyor, diğer üst/alt bilgi kısımlarını istediğiniz gibi kullanabilirsiniz.

[mkustahaliloglu]

Kodu sol üst bilgi için değil de metin için kullansak?
Oraya logo koyardık..
Orta üst bilgide bölüm vs olurdu, sağda tarih

Bunların altında öğrenci bilgileri ile imza..
Sonra da açıklama ve sorular..

[veyselemre]

Ek teki dosyada öğrenci bilgileri sayfa üzerine yazdırılacak...

[işsiz123]

Bununla ilgili bir çalışmam vardı https://excel-studio.blogspot.com/p/word-belge-doldur.html?m=1 şuanda bilgisayar yanımda yok olduğunda örneği paylaşırım inşaallah.

[mkustahaliloglu]

Herşey yolunda; yalnızca tüm listeyi yazdırmak üzere makroyu çalıştırdığımda ilk iki öğrenci bilgisini getirip yazdırdıktan sonra üçüncü ve devamındaki öğrencilerin bilgilerini almayı bırakıyor, bilgiler olmadan yazdırıyor..

[mkustahaliloglu]

çözüm önerisi olan var mı bu konuda?
makroyu gözden geçirip üç ve sonrası sayfalarda öğrenci bilgilerinin yer almamasına neden olan sorunu çözme konusunda?