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...
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Soru Toplu PFD dönüştürme.
- Konbuyu başlatan pisagor26
- Başlangıç tarihi
- Katılım
- 11 Mart 2020
- Mesajlar
- 87
dosyanızın koruma kodunu paylaşırmısınız.
- Katılım
- 11 Mart 2020
- Mesajlar
- 87
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
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
teşekkürler...Kodları denedim ve çalıştıramadım...
- Katılım
- 11 Mart 2020
- Mesajlar
- 87
Dosyanız ektedir. Dosyanızı pc nize kayıt edip öyle makro çalıştırın.
Teşekkürler...
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.
- Katılım
- 11 Mart 2020
- Mesajlar
- 87
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.