Otomatik form doldurma

[turgut03]

Aslında başlık ile içerik uydu mu, doğru yere mi yazdım bilmiyorum. Hatalıysam şimdiden özür dilerim. Elimde öğrencilere ait bilgilerin olduğu bir tablo var. Kurs açmak için gerekli bir forma bu tablodan gerekli bilgilerin alınmasını ve başında beklemeksizin yazdırmasını istiyorum. Ancak okul olduğu için listenin tamamında 400 öğrenci var. Ancak bu listeden mesela 1/A sınıfından karışık sıra ile 5 öğrenci yazdırılacak iken başka bir sınıftan başka öğrenciler yazdırılacak. Yani öğrenci listesinden veri alınırken 23. sıradaki 102. sıradaki gibi ya da 1/A sınıfı ile mesela 4/c sınıfı gibi. Mümkün müdür? Mümkün ise nasıl yapıldığını ta anlatırsanız bilgiyi başka formlarda kullanabilirim.

 

[Hakan ERDOST]

Öğrenci seçimine göre başvuru formu yazdırma şeklinde bir çalışma yaptım, bakın, işinizi görür umarım. Çalışma sayfanızın ikisini bir kitapta birleştirdim. Sayfa bir de ki butona tıkladığınızda açılan formdan önce öğrenci seçip sonra başvuru formuna tıklarsanız formu oluşturacaktır.
Not: Makro içerir.

 

[turgut03]

İlgi ve emeğinize teşekkür ederim. Çalışma sadece öğrenci adı üzerinden çalışıyor galiba. Adı aynı olan öğrencilerde sıkıntı olacaktır. Okul numarası ya da tc kimlik numarası ile çalışırsa çok iyi olacak. Diğer arzım şu olacak mümkün mü bilmiyorum. Mesela 1/a sınıfı için yada sadece 2. sınıflar için bu formu dolduracak olsam tek tek yazdırmam gerekecek galiba. Buna da bir çözüm var mı? yani okuldaki tüm ikinci sınıflar için bu formu doldurup bir kere ayarlayıp yazıcının başında beklememenin yolu var mı? Okuldaki diğer işlerimde kullanmak amaçlı olarak bu işlemin nasıl yapıldığını anlatmanız mümkün mü?

 

[numan şamil]

Merhaba
Sayfa1 de "O" sütununa yazdırılacakların karşısınına
küçük harfle x koyup seçilenleri yazdır butonuna basıp denermisiniz
Tabii önce sayfa2 deki formun sayfaya sığacak şekilde ayarlayıp kaydetmelisiniz
kaç kişi işaretlendiyse o kadar kişiye yazdırılacaktır

Sub numan()
Dim i, son As Long
Dim s1, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = [D65536].End(3).Row
Application.ScreenUpdating = False
For i = 2 To son
If s1.Range("D" & i).Value <> "" And s1.Range("O" & i).Value = "x" Then
 s2.Range("D9").Value = s1.Range("D" & i).Value
 s2.Range("C10").Value = s1.Range("E" & i).Value
s2.Range("I10").Value = s1.Range("F" & i).Value
s2.Range("C12").Value = s1.Range("G" & i).Value
s2.Range("I13").Value = s1.Range("I" & i).Value
s2.Range("C11").Value = s1.Range("J" & i).Value
s2.Range("I12").Value = s1.Range("K" & i).Value
s2.Range("C13").Value = s1.Range("L" & i).Value
s2.Range("B18").Value = s1.Range("M" & i).Value
 s2.Range("H18").Value = s1.Range("N" & i).Value
 s2.PrintOut Copies:=1, Collate:=True
  s2.Range("D9:L9,C10:F10,I10:L10,C12:F12,I13:L13,C11:L11,I12:L12,C13:F13,B18:F18,H18:L18").ClearContents
End If
If s1.Range("O" & i).Value = "x" Then
s1.Range("P" & i).Value = "Yazdırıldı"
End If
Next i
s1.Range("O2:O" & Rows.Count).ClearContents
 s1.Range("D1").Select
 Application.ScreenUpdating = True
MsgBox "İşleminiz bitti.Seçilenler yazdırılıyor"
End Sub

 

[numan şamil]

Merhaba
4. mesajımdaki kodlar ve ekli dosya güncellendi.

 

[turgut03]

Alakanıza çok teşekkür ederim. İşimi kolaylaştıracak.

 

[Asri]

Bu konuyu da inceleyebilir siniz.

http://www.excel.web.tr/f52/excel-otomatik-form-doldurma-ve-gonderme-programy-t160449.html

 

[numan şamil]

Alakanıza çok teşekkür ederim. İşimi kolaylaştıracak.

İyi çalışmalar

 

[eforedo]

Öğrenci seçimine göre başvuru formu yazdırma şeklinde bir çalışma yaptım, bakın, işinizi görür umarım. Çalışma sayfanızın ikisini bir kitapta birleştirdim. Sayfa bir de ki butona tıkladığınızda açılan formdan önce öğrenci seçip sonra başvuru formuna tıklarsanız formu oluşturacaktır.
Not: Makro içerir.

İyi günler endüstri mühendisligi ögrencisiyimde kendimi geliştirmek istiyorum ekteki dosyayı maile rica etsem yollarmısnız (Mail=yas4416@hotmail.com)

 

[eforedo]

Aslında başlık ile içerik uydu mu, doğru yere mi yazdım bilmiyorum. Hatalıysam şimdiden özür dilerim. Elimde öğrencilere ait bilgilerin olduğu bir tablo var. Kurs açmak için gerekli bir forma bu tablodan gerekli bilgilerin alınmasını ve başında beklemeksizin yazdırmasını istiyorum. Ancak okul olduğu için listenin tamamında 400 öğrenci var. Ancak bu listeden mesela 1/A sınıfından karışık sıra ile 5 öğrenci yazdırılacak iken başka bir sınıftan başka öğrenciler yazdırılacak. Yani öğrenci listesinden veri alınırken 23. sıradaki 102. sıradaki gibi ya da 1/A sınıfı ile mesela 4/c sınıfı gibi. Mümkün müdür? Mümkün ise nasıl yapıldığını ta anlatırsanız bilgiyi başka formlarda kullanabilirim.

Rica etsem Mail yoluyla atarmısınız altın üye degilim merak ettim teşekkür ederim (mail=yas4416@hotmail.com)