Xlsm olarak kaydederken dosya adına "false" yazıyor

[Tylerdurden26]

Arkadaşlar merhaba;

Üzerinde çalıştığım makro içerebilen excel dosyasını masaüstüne farklı kaydetmek için bir buton yapmak istedim fakat yapamadım, yardımcı olur musunuz?

Açılan pencerede Kaydet yerine iptal'e tıkladığımda bu workbook'u masaüstüne "FALSE" isminde kaydediyor.

Kusura bakmayın yeniyim, konuyu yanlış yere açtıysam.

Sub EXCEL_OLARAK_KAYDET()

    Dim filename As String, fName As String, isim As String

    fName = Range("D3").Value
    
    isim = fName & " " & " OFFER LIST " & Range("Q3").Value

    filename = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xlsm), *.xlsm", InitialFileName:=isim & ".xlsm")
   
   ActiveWorkbook.SaveAs filename, FileFormat:=52
  End Sub

 

[Tylerdurden26]

Dostlar;

Yok mu derdime bir çare ?

 

[askm]

Örnek dosya eklerseniz daha çabuk sonuç alırsınız.
ActiveWorkbook.saveas Filename:=isim
şeklinde deneyin isterseniz.

 

[askm]

Sub EXCEL_OLARAK_KAYDET()

    Dim filename As String, fname As String, isim As String

    fname = Range("D3").Value
    
    isim = fname & " " & " OFFER LIST " & Range("Q3").Value

    filename = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xlsm), *.xlsm", InitialFileName:=isim & ".xlsm")
   If filename = False Then Exit Sub
   ActiveWorkbook.SaveAs filename, FileFormat:=52
  End Sub

 

[Tylerdurden26]

Örnek dosya eklerseniz daha çabuk sonuç alırsınız.
ActiveWorkbook.saveas Filename:=isim
şeklinde deneyin isterseniz.

Teşekkür ederim. Dosya ekleyemiyorum burdan.

Şurdan indirebilirsiniz dosyayı:

http://dosya.co/cisdtpu6gt4y/False.xlsm.html

 

[Tylerdurden26]

Sub EXCEL_OLARAK_KAYDET()

    Dim filename As String, fname As String, isim As String

    fname = Range("D3").Value
    
    isim = fname & " " & " OFFER LIST " & Range("Q3").Value

    filename = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xlsm), *.xlsm", InitialFileName:=isim & ".xlsm")
   If filename = False Then Exit Sub
   ActiveWorkbook.SaveAs filename, FileFormat:=52
  End Sub

Çok teşekkürler şimdi de bu ekran görüntüsündeki hatayı veriyor

 

[askm]

Resim eklenmemiş sanırım.

 

[Tylerdurden26]

Resim eklenmemiş sanırım.

Bende eklendi görünüyor ama yine de aşağıdaki linkten de bakabilirsiniz.

https://i.hizliresim.com/RP92E7.jpg

 

[askm]

O linki de açamıyorum malesef. Ben en iyisi size örnek göndereyim.

 

[Tylerdurden26]

O linki de açamıyorum malesef. Ben en iyisi size örnek göndereyim.

Çok sağolun fakat altın üyeliğim olmadığı için indiremiyorum.