Soru sayfayı tercihe bağlı kaydetme

[sirkülasyon]

Sub savePDF()
Dim Yol As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")

dosya_adi = InputBox("Dosya ismini yazınız.", "UYARI!", "deneme")

If dosya_adi = False Then Exit Sub
If dosya_adi = "" Then Exit Sub
klasor = Format(Now, "dd/mm")

Yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\" & klasor

If fL.FolderExists(Yol) = False Then
MkDir Yol
End If

Say = fL.getfolder(Yol).Files.Count + 1

Sheets(Array("Terfi Onay Formu")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & dosya_adi & Say & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "işlem tamam"

End Sub

Cumamız mübarek olsun
Yukarıdaki kod ile sadece PDF olarak işlem yapabiliyorum.
Sizlerden Kayıt esnasında PDF mi? JPG mi? diye sorması. Eğer kullanıcı PDF isterse PDF JPG isterse JPG olarak kaydetmesi. konusunda yardım istiyorum.
Teşekkür ederim

 

[thegalatasaray]

Sub savePDForJPG()
Dim Yol As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")

dosya_adi = InputBox("Dosya ismini yazınız.", "UYARI!", "deneme")

If dosya_adi = False Then Exit Sub
If dosya_adi = "" Then Exit Sub
klasor = Format(Now, "dd/mm")

Yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\" & klasor

If fL.FolderExists(Yol) = False Then
MkDir Yol
End If

Say = fL.getfolder(Yol).Files.Count + 1

' Kullanıcının tercihini alın
Dim tercih As String
tercih = UCase(InputBox("PDF olarak kaydetmek için 'P', JPG olarak kaydetmek için 'J' yazın.", "Tercihiniz"))

If tercih = "P" Then
' PDF olarak kaydet
Sheets(Array("Terfi Onay Formu")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & dosya_adi & Say & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ElseIf tercih = "J" Then
' JPG olarak kaydet
ActiveSheet.ExportAsFixedFormat Type:=xlTypeJPEG, Filename:=Yol & "\" & dosya_adi & Say & ".jpg", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Else
MsgBox "Geçersiz tercih! Lütfen 'P' veya 'J' girin."
End If

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "İşlem tamam"
End Sub

 

[sirkülasyon]

Allah ne muradın var ise nasip etsin inşallah. Ellerine sağlık

 

[thegalatasaray]

oldu mu?

 

[sirkülasyon]

Evet, Teşekkür ederim