farklı kaydetme için yardım

[esmatekel]

Arkadaşlar Kolay Gelsin Benim Amacım Bir Excel Sayfasındaki Sheet İ Dışarı Aktarmak Ama Aktarırken Orjinal Klasörün Adı ile Kaydetmek Bunu Nasıl yapabilirim
Sub rpegonder()
Sheets("RAPOR").Select
Sheets("RAPOR").Copy
Range("C6:AE18").Select
Range("AE6").Activate
Selection.Copy
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O25").Select
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
Range("AJ22").Select
Application.CutCopyMode = False
ChDir "D:\SATIŞ RAPORU"
ActiveWorkbook.SaveAs Filename:= _
"D:\SATIŞ RAPORU\İST-ESMA .2009 RP.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.Dialogs(xlDialogSendMail).Show
End Sub

Kırmızı İle İşaretli Yerde Tosluyorum

 

[Muzaffer Ali]

Orjinal Klasörün Adı ile derken excel dosyanızın isminin SATIŞ RAPORU.XLS mi olsun istiyosun?

 

[esmatekel]

Evet orjinal dosyanın adını otomatik alsın

 

[turk-x]

Sayın esmatekel
aşağıdaki kodlamayı kullanın işinizi görür.

Sub rpegonder()
DosyaAdi = ActiveWorkbook.Name
   Sheets("Rapor").Select
    Sheets("Rapor").Copy
ActiveWorkbook.SaveAs Filename:="D:\SATIŞ RAPORU\" & DosyaAdi
 ActiveWindow.Close
End Sub