Excel dosyasını belirtilen klasöre pdf olarak kaydetmek

[karakaçan]

Soru 1)

İyi akşamlar çalıştığımız dosyayı belirteceğimiz klasöre kaydetmek için aşağıdaki koda ne eklemeliyim? Yardımlarınız için teşekkürler.
ub PDF_Kaydet()
Dim S1 As Worksheet, Yol As String

Yol = ThisWorkbook.Path & "\"

Set S1 = Sheets("SINAV KAĞIDI")

10

S1.Range("T1") = S1.Range("T1") + 1

If S1.Range("T1") > S1.Range("S1") Then
MsgBox "Kayıt limiti dolmuştur.", vbCritical
Exit Sub
End If

S1.ExportAsFixedFormat xlTypePDF, Yol & S1.Range("L2") & ".pdf", , , , , , False
GoTo 10
End Sub

Soru 2)
Aşağıdaki kod bulunduğu dosyadaki sayfaların yarısını siliyor. Ben kodun bulunduğu sayfa değilde açık olan excel sayfasında çalışmasını istiyorum. Ne eklemeliyim? Teşekkürler
Sub SayfaSil()
Application.DisplayAlerts = False
For i = 1 To Worksheets.Count / 2
Worksheets(1).Delete
Next i
Application.DisplayAlerts = True
End Sub

 

[Korhan Ayhan]

1. sorunuz için aşağıdaki satırı değiştirmelisiniz.

Yol = ThisWorkbook.Path & "\"

Bu satırı aşağıdaki gibi düzenleyebilirsiniz. Yolu kendinize göre düzenlersiniz.

Yol = "C:\Masaüstü\"


2. sorunuza gelince;

Kodda sayfa ya da kitap adı belirtilmemiş. Bu durumda kodu hangi dosya üzerinde çalıştırırsanız o dosyada işlem yapacaktır. Makroyu çalıştırmadan önce dosyayı aktif hale getirmeniz yeterli olacaktır. Sonrasında ALT+F8 ile makroyu çalıştırıp durumu gözlemleyebilirsiniz.

 

[karakaçan]

Teşekkür ederim sağolun