macro kod hatası

[selocanexcel]

Merhaba;
aşağıda belirttiğim kodla sayfayı pdf olarak kaydediyorum fakat ;
kaydedilen dosyanın ismini aynı sayfada belirlediğim iki hücreden (c9 ve c13 )almasını istiyorum. Mevcut durumda sadece (c9) hücresinden ismini alıyor.
yardımcı olabilirseniz sevinirim.

Private Sub CommandButton2_Click()
dosya_adı = Cells(9, "c").Value
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\SERVER\ortak\6-GÖZETİM VE FİRMA BİLDİRİMLER\GÖZETİM BİLDİRİM\" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "işlem tamam!"
End If
If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
End If
End Sub

 

[Ömer BARAN]

Merhaba, foruma hoşgediniz.

Verdiğiniz kod'daki, ilgili satırı aşağıdakiyle değiştirerek dener misiniz?
.

[B]dosya_adı[/B] = Cells(9, "C").Value [B][COLOR="Red"]& "_" & Cells(13, "C").Value[/COLOR][/B]