Soru Toplu PFD dönüştürme.

[pisagor26]

ekte yer alan çalışmada öğrenci sınav sonuçları yer almakta olup, Öğrenci verileri bölümüne giriş yapılıp öğrenci numarası yazıldığında öğrencilerin bireysel sonuçları gelmekte. Tek tek numara girip pfd formatına dönüştürme yerine toplu bir şekilde dönüştürme imkanım var mı...Teşekkürler...

 

[hüseyintok]

ekte yer alan çalışmada öğrenci sınav sonuçları yer almakta olup, Öğrenci verileri bölümüne giriş yapılıp öğrenci numarası yazıldığında öğrencilerin bireysel sonuçları gelmekte. Tek tek numara girip pfd formatına dönüştürme yerine toplu bir şekilde dönüştürme imkanım var mı...Teşekkürler...

dosyanızın koruma kodunu paylaşırmısınız.

 

[hüseyintok]

Deneyin

Sub PDF1()
'OZEL BÖLUM ICIN KULLANIN
Dim wsSource As Worksheet
Dim wsTemplate As Worksheet
Dim cell As Range
Dim num As Variant
Dim pdfName As String
Dim folderPath As String


Set wsSource = ThisWorkbook.Sheets("A2X")
Set wsTemplate = ThisWorkbook.Sheets("A4")


folderPath = ThisWorkbook.Path & "\"


For Each cell In wsSource.Range("C6:C35")
num = cell.Value
If IsNumeric(num) Then

wsTemplate.Range("C1").Value = num


pdfName = folderPath & "Sozel_" & CStr(num) & ".pdf"

wsTemplate.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:=xlQualityStandard
End If
Next cell

End Sub

Sub PDF2()
'SAYISAL BOLUM ICIN KULLANIN
Dim wsSource As Worksheet
Dim wsTemplate As Worksheet
Dim cell As Range
Dim num As Variant
Dim pdfName As String
Dim folderPath As String

Set wsSource = ThisWorkbook.Sheets("A3X")
Set wsTemplate = ThisWorkbook.Sheets("A4")

folderPath = ThisWorkbook.Path & "\"

For Each cell In wsSource.Range("C6:C35")
num = cell.Value
If IsNumeric(num) Then

wsTemplate.Range("C1").Value = num

pdfName = folderPath & "Sayısal_" & CStr(num) & ".pdf"

wsTemplate.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:=xlQualityStandard
End If
Next cell

End Sub

 

[Ali.Can]

online dönüştürme sitelerini denediniz mi?