Soru Farklı Kaydet Makrosu

[okan32]

Aşağıdaki kodlarla aktif sayfayı bilgisayarımda istediğim yere kaydediyorum.Benim istediğim aktif sayfada belirlediğim hücre aralığını farklı kaydetmek istiyorum. yardımlarınızı bekliyorum. şimdiden teşekkür ediyorum.

Sub Farklı_Kaydet()
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
 ActiveWorkbook.Close
End Sub

 

[askm]

Sub Farklı_Kaydet()
Kayit_Yeri = ThisWorkbook.Path & "\"
ActiveSheet.Range("A1:B10").Copy
Workbooks.Add 1
ActiveWorkbook.Sheets(1).PasteSpecial
Application.CutCopyMode = False

With ActiveWorkbook
    .SaveAs Kayit_Yeri & "Kayit" & Format(Date, "dd.mm.yyyy") & ".xls"
    .Close
End With
MsgBox "Kayıt işlemi başarılı...", vbInformation, "ASKM"
End Sub

 

[okan32]

Teşekkür ederim askm