Öğrenci numarasına göre otomatik pdf dosyası oluşturmak

[hashus0748]

Sub Subekrnzdr()

Dim Lr As String
Dim arama As String
Dim satir As String

Lr = Worksheets("denemeSNF").Range("FY10").Value


basla = InputBox("Başlangıç Sayısı Girin", "PDF DOSYASI OLARAK KAYDET", "1")
If basla = "" Then Exit Sub

bitis = InputBox("Bitiş Sayısı Girin", "PDF DOSYASI OLARAK KAYDET", "2")
If bitis = "" Then Exit Sub

For i = basla To bitis
Range("K.Bilgiler!L16") = i

sonsat = ActiveSheet.Range("c5000").End(xlUp).Row
sonsut = ActiveSheet.Range("dz9").End(xlToLeft).Column
With ActiveSheet.Range(ActiveSheet.Cells(2, 1), ActiveSheet.Cells(sonsat, sonsut))
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\HASHUS07\Desktop\sinavsonuclari\" & Lr & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False


End With

Next i

End Sub








Öncelikle makroda yeniyim, grubu takip ederek ve youtube'den bir şeyler öğrenerek yapıyorum.

Pekala dosyamda olan ne?

Excel dosyam Ölçme değerlendirme üzerine bir program. Google Formstan aldığım verileri kendi çapımda hazırladığım formüllerle çocuklara faydalı olmak istiyorum.
Programın bu sayfasında karşılaştığım sıkıntı ise açılır listedeki 40-50 arasındaki öğrencimi kendisi otomatik seçip öğrenci numarasına göre otomatik olarak PDF kaydetmek.

Çıktı alacağım kısım da yarım çıkıyor a2-ar87 arasını almam gerekiyor.

Şimdiden teşekkür ediyorum.

 

[Korhan Ayhan]

Merhaba,

Konu başlıklarınızı seçerken ulaşmak istediğiniz sonucu belirtecek şekilde bilgi içermesine özen gösteriniz.

Bu seferlik ben düzenledim.

 

[hashus0748]

Korhan Bey teşekkür ederim...

 

[Korhan Ayhan]

Sorunuzu örnek dosya ile desteklerseniz daha hızlı yanıt alabilirsiniz.

 

[hashus0748]

dosya.xlsm dosyasını indir - download

dosya.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

sayfasına yükledim. Saygılarımla...

 

[hashus0748]

Bu konuda yardım edebilecek arkadaşımız var mı?

 

[Korhan Ayhan]

Deneyiniz.

Sub Subekrnzdr()
    Dim Lr As String
    Dim arama As String
    Dim satir As String
    
    basla = InputBox("Başlangıç Sayısı Girin", "PDF DOSYASI OLARAK KAYDET", "1")
    If basla = "" Then Exit Sub
    
    bitis = InputBox("Bitiş Sayısı Girin", "PDF DOSYASI OLARAK KAYDET", "2")
    If bitis = "" Then Exit Sub
    
    For i = basla To bitis
        Range("K.Bilgiler!L16") = i
        
        Lr = Worksheets("denemeSNF").Range("FY10").Value
        
        With ActiveSheet.Range("Print_Area")
            .ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:="C:\Users\HASHUS07\Desktop\sinavsonuclari\" & Lr & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        End With
    Next i

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[hashus0748]

Korhan Bey, vakit ayırdığınız için çok teşekkür ederim. Ancak makroda açılır kutudan bir sınıfı kaydediyor. Yani seçtiğimiz sınıf sayısı birden fazlaysa kaydetmiyor

 

[Korhan Ayhan]

Kodu revize ettim. Yeniden deneyiniz.

 

[hashus0748]

Korhan Bey, ilginiz için çok teşekkür ederim, sorun çözüldü. Her şey için teşekkür ederim. Sağ olun...