Makro yardım

[cuneytturkoglu]

Sub Düğme6_Tıklat()
'
' Düğme6_Tıklat Makro
'

'
Sheets("ÜYazı").Select
Columns("A:J").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Cüneyt Türkoglu\Desktop\" & [H17] & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

Merhaba yukarıdaki makroda dosyayı masaüstüne kaydediyor. Bu bende çalışıyor fakat farklı bir kişiye gönderdiğimde hata veriyor buda ''C:\Users\Cüneyt Türkoglu\Desktop\'' dan kaynaklanıyor . makroyu farklı bilgisayarlarda kullanmamız için ne yapmalıyım

 

[PLİNT]

Merhaba yukarıdaki makroda dosyayı masaüstüne kaydediyor. Bu bende çalışıyor fakat farklı bir kişiye gönderdiğimde hata veriyor buda ''C:\Users\Cüneyt Türkoglu\Desktop\'' dan kaynaklanıyor . makroyu farklı bilgisayarlarda kullanmamız için ne yapmalıyım

Merhaba
Aşağıdaki gibi olabilir;

Sub Düğme6_Tıklat()
'
' Düğme6_Tıklat Makro
'

'
Sheets("ÜYazı").Select
Columns("A:J").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
[COLOR="Red"]Environ("UserProfile") & "\Desktop\"[/COLOR] & [H17] & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

Veya ilgili bölüm

"C:\Users\[COLOR="Red"]" & Windows.Application.UserName & "[/COLOR]\Desktop\" & [H17] & ".pdf", Quality:= _

 

[cuneytturkoglu]

Çok teşekkür ederim.

 

[Kardiyak]

Sorun çözülmüş ama alternatif olsun.

CreateObject("wscript.Shell").SpecialFolders("Desktop")
Masaüstü yolunu verir. Kullanırken sonuna "\" eklemeyi unutmayın

Sub Düğme6_Tıklat()

ad = Range("H17").Value
desktopyolu = CreateObject("wscript.Shell").SpecialFolders("Desktop")
kaydet = desktopyolu & "\" & ad & ".pdf"

Sheets("ÜYazı").Columns("A:J").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=kaydet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub