kalau isi workbook adalah file yang dibuka tersebut tapi dengan nama yang
disukai :
thisworkbook.savecopyas thisworkbook.path & "\" & range("b1").value &
range("b2").value & range("b3").value & range("b4").value & ".xlsx"
kalau workbook kosong baru :
dim wbkApp as workbook, wbkNew as workbook
set wbkapp=thisworkbook
set wbknew= workbooks.add
with wbkapp
wbknew.saveas .path & "\" & .sheets("sheetnya").range("b1").value &
.sheets("sheetnya").range("b2").value &
.sheets("sheetnya").range("b3").value &
.sheets("sheetnya").range("b4").value
end with
wbknew.close false
wbkapp.activate
2014-07-07 19:00 GMT+07:00 [email protected] [belajar-excel] <
[email protected]>:
>
>
> mohon bantuannya lagi.... misal di sel B1:PENJUALAN, B2:KELONTONG,
> B3:MEI, B4: 2014. ketika di klik command button akan terbentuk file dengan
> nama gabungan dari sel B1 sampai B4. thanks.
>
>
>
