Farklı konuma kaydet makrosu

[Mehmet Sait]

Merhabalar,

Aşağıda ki makro mantığını farklı konuma excel sayfası olarak kaydetmek istiyorum. Kodlarda nasıl bi değişim yapılmalı.

Set nesne = CreateObject("Scripting.FileSystemObject") masaustuyolu = CreateObject("Wscript.Shell").SpecialFolders("Desktop") AyAdi = Format(Date, "mmmm yyyy") & " Üretim Raporları" klasoradi = Format(Date, "dd.mm.yyyy") & " " & [J8] dosyaadi = [J8] & " Üretim Raporu " klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AD$81").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & AyAdi & "\" & dosyaadi & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False


Yardımlarınız için teşekkür ederim.

 

[muysun35]

ActiveSheet.Range("$B$3:$AD$81").Copy
With Activeworkbook
.SaveAs masaustuyolu & "\" & AyAdi & "\" & dosyaadi & ".xlsx"
.Close
End With

olarak değiştirin

 

[Mehmet Sait]

ActiveSheet.Range("$B$3:$AD$81").Copy
With Activeworkbook
.SaveAs masaustuyolu & "\" & AyAdi & "\" & dosyaadi & ".xlsx"
.Close
End With

olarak değiştirin

Yardımlarınız için teşekkür ederim hocam. Ancak şu hatayı veriyor.

 

[muysun35]

altın üye olmadığım için ekra görüntüsünü göremiyoum. harici fotoğraf sitesine yüklerseniz bakıyım

 

[muysun35]

.SaveAs masaustuyolu & "\" & AyAdi & "\" & dosyaadi & ".xlsx"

kısmında hata veriyor muhtemelen.

ActiveSheet.Range("$B$3:$AD$81").Copy
With ActiveWorkbook
.SaveAs Filename:=  masaustuyolu & "\" & AyAdi & "\" & dosyaadi & ".xlsx
.Close
End With

olarak dener misiniz

 

[Mehmet Sait]

.SaveAs masaustuyolu & "\" & AyAdi & "\" & dosyaadi & ".xlsx"

kısmında hata veriyor muhtemelen.

ActiveSheet.Range("$B$3:$AD$81").Copy
With ActiveWorkbook
.SaveAs Filename:=  masaustuyolu & "\" & AyAdi & "\" & dosyaadi & ".xlsx
.Close
End With

olarak dener misiniz

Hocam, dediğiniz gibi değiştirdim ama yine aynı hatayı veriyor

 

[muysun35]

Hocam, dediğiniz gibi değiştirdim ama yine aynı hatayı veriyor

Ekli dosyayı görüntüle 223898

örnek bi dosyanız varsa paylaşır mısınız? harici dosya sitelerinden birine

 

[Mehmet Sait]

örnek bi dosyanız varsa paylaşır mısınız? harici dosya sitelerinden birine

.SaveAs Filename:= masaustuyolu & "\" & AyAdi & "\" & dosyaadi & ".xlsx

.SaveAs Filename:= masaustuyolu & "\" & AyAdi & "\" & dosyaadi & ".xls yapınca düzeldi. Kayıt yapıyor.

Teşekkür ederim.

 

[muysun35]

Teşekkür ederim.

Geçmiş olsun. iyi çalışmalar.