[belajar-excel] [belajar excel] Macro Save As

2015-08-05 Terurut Topik Yayan Ajah erte_...@yahoo.co.id [belajar-excel]
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- 


Bls: [belajar-excel] [belajar excel] Macro Save As

2015-08-05 Terurut Topik Yayan Ajah erte_...@yahoo.co.id [belajar-excel]
Terma kasih Mas Agus, cekrip nya sangat membantu sekali
Wassalam-Yayan-




 Pada Kamis, 6 Agustus 2015 8:23, Nang Agus nanga...@gmail.com 
[belajar-excel] belajar-excel@yahoogroups.com menulis:



     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 erte_...@yahoo.co.id [belajar-excel] 
belajar-excel@yahoogroups.com:


     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- 



  #yiv9281520286 #yiv9281520286 -- #yiv9281520286ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9281520286 
#yiv9281520286ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9281520286 
#yiv9281520286ygrp-mkp #yiv9281520286hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv9281520286 #yiv9281520286ygrp-mkp #yiv9281520286ads 
{margin-bottom:10px;}#yiv9281520286 #yiv9281520286ygrp-mkp .yiv9281520286ad 
{padding:0 0;}#yiv9281520286 #yiv9281520286ygrp-mkp .yiv9281520286ad p 
{margin:0;}#yiv9281520286 #yiv9281520286ygrp-mkp .yiv9281520286ad a 
{color:#ff;text-decoration:none;}#yiv9281520286 #yiv9281520286ygrp-sponsor 
#yiv9281520286ygrp-lc {font-family:Arial;}#yiv9281520286 
#yiv9281520286ygrp-sponsor #yiv9281520286ygrp-lc #yiv9281520286hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9281520286 
#yiv9281520286ygrp-sponsor #yiv9281520286ygrp-lc .yiv9281520286ad 
{margin-bottom:10px;padding:0 0;}#yiv9281520286 #yiv9281520286actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9281520286 
#yiv9281520286activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9281520286
 #yiv9281520286activity span {font-weight:700;}#yiv9281520286 
#yiv9281520286activity span:first-child 
{text-transform:uppercase;}#yiv9281520286 #yiv9281520286activity span a 
{color:#5085b6;text-decoration:none;}#yiv9281520286 #yiv9281520286activity span 
span {color:#ff7900;}#yiv9281520286 #yiv9281520286activity span 
.yiv9281520286underline {text-decoration:underline;}#yiv9281520286 
.yiv9281520286attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv9281520286 .yiv9281520286attach div a 
{text-decoration:none;}#yiv9281520286 .yiv9281520286attach img 
{border:none;padding-right:5px;}#yiv9281520286 .yiv9281520286attach label 
{display:block;margin-bottom:5px;}#yiv9281520286 .yiv9281520286attach label a 
{text-decoration:none;}#yiv9281520286 blockquote {margin:0 0 0 
4px;}#yiv9281520286 .yiv9281520286bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv9281520286 
.yiv9281520286bold a {text-decoration:none;}#yiv9281520286 dd.yiv9281520286last 
p a {font-family:Verdana;font-weight:700;}#yiv9281520286 dd.yiv9281520286last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9281520286 
dd.yiv9281520286last p span.yiv9281520286yshortcuts 
{margin-right:0;}#yiv9281520286 div.yiv9281520286attach-table div div a 
{text-decoration:none;}#yiv9281520286 div.yiv9281520286attach-table 
{width:400px;}#yiv9281520286 div.yiv9281520286file-title a, #yiv9281520286 
div.yiv9281520286file-title a:active, #yiv9281520286 
div.yiv9281520286file-title a:hover, #yiv9281520286 div.yiv9281520286file-title 
a:visited {text-decoration:none;}#yiv9281520286 div.yiv9281520286photo-title a, 
#yiv9281520286 div.yiv9281520286photo-title a:active, #yiv9281520286 
div.yiv9281520286photo-title a:hover, #yiv9281520286 
div.yiv9281520286photo-title a:visited {text-decoration:none;}#yiv9281520286 
div#yiv9281520286ygrp-mlmsg #yiv9281520286ygrp-msg p a 
span.yiv9281520286yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9281520286 
.yiv9281520286green {color:#628c2a;}#yiv9281520286 .yiv9281520286MsoNormal 
{margin:0 0 0 0;}#yiv9281520286 o {font-size:0;}#yiv9281520286 
#yiv9281520286photos div {float:left;width:72px;}#yiv9281520286 
#yiv9281520286photos div div {border:1px solid 
#66;height:62px;overflow:hidden;width:62px;}#yiv9281520286 
#yiv9281520286photos div label 
{color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9281520286
 

Re: [belajar-excel] [belajar excel] Macro Save As

2015-08-05 Terurut Topik Nang Agus nanga...@gmail.com [belajar-excel]
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 erte_...@yahoo.co.id [belajar-excel] 
belajar-excel@yahoogroups.com:



 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-