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.