Makro ile Tek Sayfayı Kaydedilecek Yere Kadar Getirtmek

[aLp59]

Arkadaşlar merhaba

Çalışma kitabındaki aktif sayfayı (tek sayfayı) makro kısa yolu ile farklı kaydet kısmına getirtmek istiyorum, örnek: C:\Program Files
sonrasında dosya adını manuel girip kaydet yapacağım.

Teşekkürler

 

[TiOr]

Slm,
Bu işlem için makroya gerek yok aslında F12 ye bassanız direk ekran karşınıza geliyor olacak.
Ama yine de makro ile aksiyon almak isterseniz deneyiniz; Ama hiç gerek yok F12 işinizi görecektir.
Başarılar...

Sub Farkli_Kaydet()
        Dim varResult As Variant
        Dim ActBook As Workbook

        'displays the save file dialog
        varResult = Application.GetSaveAsFilename(FileFilter:= _
                 "Excel Files (*.xlsx), *.xlsx", Title:="Save PO", _
                InitialFileName:="C:\Users\HP\Desktop")

        'checks to make sure the user hasn't canceled the dialog
        If varResult <> False Then
            ActiveWorkbook.SaveAs Filename:=varResult, _
            FileFormat:=xlWorkbookNormal
            Exit Sub
        End If
End Sub

 

[aLp59]

Sayın TiOr

Makro ile daha kullanışlı oluyor.

Çok teşekkür ederim.