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?

 

[pisagor26]

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

ŞİFRE :metaa26

 

[pisagor26]

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

teşekkürler...Kodları denedim ve çalıştıramadım...

 

[hüseyintok]

Dosyanız ektedir. Dosyanızı pc nize kayıt edip öyle makro çalıştırın.

 

[pisagor26]

Dosyanız ektedir. Dosyanızı pc nize kayıt edip öyle makro çalıştırın.

Teşekkürler...

 

[pisagor26]

Dosyanız ektedir. Dosyanızı pc nize kayıt edip öyle makro çalıştırın.

A4 sayfasında yer alan makroyu pdf alırken çalıştıramıyoruz. Bu yüzden Kazanabileceğimiz okullar kısmı (makro ile yenilendiği için) oluşan bütün pdflerde bütün öğrencilerin aynı çıkmakta.

 

[hüseyintok]

x sayfasındaki pdf oluştur tuşu ile macroyu çalıştırırmısınız. güncel hali ektedir

 

[pisagor26]

x sayfasındaki pdf oluştur tuşu ile makroyu çalıştırırmısınız. güncel hali ektedir
[/ALINTI]
Çok Teşekkürler...

 

[pisagor26]

x sayfasındaki pdf oluştur tuşu ile macroyu çalıştırırmısınız. güncel hali ektedir

Pdf oluştur tuşu ile ekte yer alan örnekler gibi çok güzel bir şekilde pdf dönüşümü olabiliyor. Fakat a4 sayfasında yer alan "TIKLA BİLGİLERİ GETİR" makro tuşu aktif olmadığından (ben her öğrenci için ayrı ayrı öncesinde tuşa basıyordum) tüm öğrencilerin kazanabileceği okullar kısmı aynı olmakta.