Pdf kaydetme dosya adını farklı 2 hücreden al

[netvolxxx]

merhaba aşağıda yazılı olan kod
burda iki tane farklı hücrede yazılı olan veriden pdf dosya adını almasını istiyorum kod nasıl düzenlicem

örnek a1 hücresinde ahmet b2 hücresinde 15 yazıyor pdf kaydet buton var buna basında dosya adı ahmet 15 olarak açılsın pdf

Sub Düğme10_Tıklat()
UserForm1.Show
End Sub
Sub pdf_kaydet()
If [A2] = "" Then
MsgBox ("sipariş no boş bırakılamaz")
Exit Sub
End If
Set shsayfa = Sheets("sipariş")
yol = ActiveWorkbook.Path & "\" & [K6]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

MsgBox "PDF OLARAK DOSYANIZ HAZIR"

End Sub

 

[muhasebeciyiz]

Sub pdf_kaydet()

Dim ad As String
Dim siparisNo As String
ad = Sheets("sipariş").Range("A1").Value
siparisNo = Sheets("sipariş").Range("B2").Value

Dim yol As String
yol = ActiveWorkbook.Path & "\" & ad & " " & siparisNo & ".pdf"

Sheets("sipariş").ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

MsgBox "PDF OLARAK DOSYANIZ HAZIR"

End Sub

Deneyiniz

 

[DoğanD]

Bu şekilde düzenleyebilirsiniz: Filename:=yol & [A1] & " " & [B2]

 

[netvolxxx]

iki yolu da denedim ama olmadı hata aldım...

 

[muhasebeciyiz]

Sayfa isminiz sipariş olacak şekilde 2 nolu mesajdaki kod çalışmakta ve pdf yapmaktadır.Nerde hata alıyorsunuz.

 

[DoğanD]

Düzeltme aşağıdaki şekilde olmalıydı.

Sub Düğme10_Tıklat()
UserForm1.Show
End Sub
Sub pdf_kaydet()
If [A2] = "" Then
MsgBox ("sipariş no boş bırakılamaz")
Exit Sub
End If
Set shsayfa = Sheets("sipariş")
yol = ActiveWorkbook.Path & "\" & [K6]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & [A1] & " " & [B2] , Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

MsgBox "PDF OLARAK DOSYANIZ HAZIR"

End Sub

 

[netvolxxx]

çok teşekürrr ederim yardımlarınız için tamamdır çalıştı istediğim gibi oldu...