makro ile hücredeki yazıyı kopyalayıp save as yapma

Question

merhabalar  ben makro ile  bir hücre içerisindeki yazı tipini   degişken atayıp o degişkenide ( farklı kaydet"degişken"  .pdf  \desktop  \open new folder\degişken  gibi  kullanmak istiyorum ama   hata alıyorum  ve hala çözemedim 

Sub s()

'

' s Makro

'

Dim isim As Variant

    isim = Sheets("SÖZLEŞME").Range("l2") & "  Bey   " & "Sözleşme"

    ChDir "C:\Users\mz\Desktop\müsteriler\isim"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "C:\Users\mz\Desktop\müsteriler\isim\isim.pdf", Quality:=xlQualityStandard _

        , IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=8 _

        , OpenAfterPublish:=False

    Range("L2").Select

End Sub

Answer 1

Merhaba;

isim isimli değişkeni tırnak dışına almanız gerekir.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "C:\Users\mz\Desktop\müsteriler" & isim & "" & isim & ".pdf", Quality:=xlQualityStandard _

        , IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=8 _

        , OpenAfterPublish:=False

Answer 2

teşekkür ederim  işe yaradı