makroya save as komutu yerleştirmek

[senseysen]

Merhaba arkadaşlar.Bir makro kaydettim ama sürekli aynı isimle kayıt yapıyor.daha önce mesaj yollamıştım sağolsun levent bey cevab yazmıştı ama uğraşmalarıma rağmen olmadı.Ben kaydederken ismi sayfa1 deki D3 hücresinden almasına ihtiyacım var.aşağıda kodlar yazılı,dosyada ekte,yardım edebilirseniz çok işime yarıyacak.Birde makro ilk sayfamdan kayboluyor,save as deki sayfada etkin oluyor.makro kaydetmeye başladığım sayfadan neden kayboluyor anlamadım,selamlar,saygılar




Sub Makro1()
'
' Makro1 Makro
' Makro ömer tarafından 31.08.2005 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+m
'
Range("B6").Select
Selection.Copy
Sheets("Sheet3").Select
Range("B4").Select
ActiveSheet.Paste
Range("B9").Select
Sheets("Sheet4").Select
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("B6").Select
ActiveSheet.Paste
Sheets("Sheet4").Select
Range("B10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("B8").Select
ActiveSheet.Paste
Sheets("Sheet4").Select
Range("A1847").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("A17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet4").Select
Range("D14").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("Sheet3").Select
Range("C15:C16").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("Sheet4").Select
ChDir _
"C:\Documents and Settings\ömer\My Documents\depoya verilen siparis\havuz"
ActiveWorkbook.SaveAs Filename:= _

 

[htsumer]

Ben kaydederken ismi sayfa1 deki D3 hücresinden almasına ihtiyacım var.

Bundan farklı kaydet anlıyorum.
http://www.excel.web.tr/viewtopic.php?p=6991#6991

Not:Smili yanlışlıkla gönderildi.Ve silindi