Walaikum salam warahmatullah,
Coba cekkrip ini:
Option Explicit
Sub simpen()
Dim Jeneng As String
Dim Jenenge As Variant
Jeneng = "LaporanPenjualan"
Jenenge = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path
& "\" & Jeneng, fileFilter:="Excel Files (*.xlsm), *.xlsm")
If Jenenge <> False Then
ActiveWorkbook.SaveAs Jenenge
End If
End Sub
waqsalamualaikum warahmatullah
2015-08-05 18:19 GMT+07:00 Yayan Ajah [email protected] [belajar-excel] <
[email protected]>:
>
>
> Assalamu'alaikum Wr. Wb.
>
> Rekan-rekan B-Excel,
> Misal file excel saya bernama LaporanPenjualanJuli.xlsm
> Saya mohon bantuan untuk membuat macro save as file excel saya, yang saya
> inginkan adalah :
>
> - SaveAs dengan memunculkan kotak dialog SaveAs dan otomatis di file name
> sudah tertulis "LaporanPenjualan", sehingga saya tinggal menambahkan bulan
> nya saja.
>
> - Lokasi penyimpanan file yang di save as ini sama dengan file yang
> sebelumnya
>
> Mohon bantuan dari para rekan-rekan dan para master disini.
>
> Terima kasih
> Wassalamu'alaikum Wr. Wb
> -Yayan-
>
>
>
