A Sütununa Göre TESCİL Sayfasını Yazıcıya Gönderme

[vurkan]

Arkadaşlar Merhaba. Öğrenci tescil Programı için son aşamaya geldim. Program KULÜP LİSTESİ sayfasında A3 ten itibaren TC nolarına göre TESCİL sayfasının yazdırılmasını sağlamaya çalışıyorum. TESCİL sayfası R14 hücresine TC yazılınca Diğer bilgileri KULÜP LİSTESİ sayfasından DÜŞEYARA ile alıyor. Benim yapmak istediğim KULÜP LİSTESİ sayfasında A sütununda bulunan TC Noların TESCİL sayfasında R14 hücresine yazdırılarak çıktısının alınması. Sayın Ömer Beyin benzer kodlarını ;

Sub TESCİL_YAZDIR()
For sat = 2 To Sheets("KULÜP LİSTESİ").Cells(Rows.Count, "A").End(3).Row
Sheets("TESCİL").[R14] = Sheets("KULÜP LİSTESİ").Cells(sat, "A")
Sheets("TESCİL").Selected.PrintOut Copies:=1
Next
End Sub şeklinde uyarlamaya çalıştım ama olmadı. Teşekkürler.

http://s3.dosya.tc/server17/tgqpaz/OGRENCI_LISANS_YAZDIRMA.rar.html

 

[Ömer BARAN]

Merhaba,

Verilen kod'u aşağıdakiyle değiştirin.
SİCİL için de benzer şeyi kendiniz yaparsınız sanırım.

Sub TESCİL_YAZDIR()
Application.ScreenUpdating = False
For sat = 3 To Sheets("KULÜP LİSTESİ").Cells(Rows.Count, "A").End(3).Row
    If Sheets("KULÜP LİSTESİ").Cells(sat, "A") <> "" Then
        Sheets("TESCİL").[R14] = Sheets("KULÜP LİSTESİ").Cells(sat, "A")
        Sheets("TESCİL").PrintOut Copies:=1
        Application.Wait (Now + TimeValue("0:00:01"))
        adet = adet + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox adet & " öğrenci için TESCİL sayfası yazdırıldı.", , "..:: Ömer BARAN ::.."
End Sub

 

[vurkan]

Sayın Ömer Baran Üstadım verdiğiniz kodlar çalıştı. Çok teşekkür ediyorum.

 

[Ömer BARAN]

Estağfurullah, kolay gelsin.