Wa'alaikumussalam Wr. Wb.
1. SimpanPersediaan
- pada cell A6 diberi formula : (SUDAH)
=IFERROR(MATCH(B6,Databs!A:A,0),COUNTA(Databs!A:A))
- ke VBE (ALT F11) (SUDAH)
- menu Insert -> Module -> copas prosedur berikut : (SUDAH)
public sub SimpanPersediaan()
dim lRow as long
lrow=sheets("Data Pesan-Kirim").range("a6").value
sheets("Databs").cells( lrow , 1 ).value = sheets("Data
Pesan-Kirim").range("b6").value
sheets("Databs").cells( lrow , 2 ).value = sheets("Data
Pesan-Kirim").range("c6").value
end sub
- ke worksheet (ALT F11) (SUDAH)
- klik kanan tombol Simpan milik Pesan -> Assign Macro -> pilih
SimpanPersediaan -> OK *(BELUM)
* - save as workbook dengan cara : (SUDAH)
> tekan ALT F A
> lihat opsi Save as type -> pilih .xlsm atau .xlsb atau .xls
> beri nama file -> tekan tombol Save
*** Assign Macro juga untuk tombol Pengiriman ke prosedur SimpanPengiriman,
supaya tombol mengerjakan prosedur SimpanPengiriman kalau di klik ***
2. Pada tabel PERSEDIAAN DIKIRIM langsung disertakan pada proses penulisan
persediaan ke databs melalui tombol simpan yang sudah di assign macro untuk
menjalankan prosedur SimpanPersediaan. *Syaratnya*, penambahan baris
perintah untuk tulis ke bagian persediaan dikirim dalam prosedur
simpanpersediaan.
>> Coba langkah berikut : *(BELUM)*
- ke VBE (ALT F11)
- double click module yang di-insert pada proses A tadi
- cari prosedur SimpanPersediaan dan gerakkan cursor sampai ke baris
berbunyi End Sub kemudian ENTER sampai ada lebih dari 2 baris kosong
- pada baris kosong yang ada di atas End Sub, copas script berikut
with sheets("Data Pesan-Kirim")
.range("b8").offset( .range("b8").currentregion.rows.count
).value = .range("b6").value
.range("b8").offset(
.range("b8").currentregion.rows.count ,1 ).value = .range("c6").value
end with
- kembali ke worksheet (ALT F11)
- simpan workbook
3. Munculnya gambar, pada saat saya membuka file lain dan didalamnya
menggunakan macro juga sehingga persyaratan RECOVERY ,nah mohon solusinya
agar tidak muncul karena data yang diolah bisa tertunda bahkan nuggu lama.
*
(Belum ada konfirmasi telah dicoba untuk dilakukan beserta hasil uji coba
hal dibawah ini)*
>> Coba diingat-ingat, hal seperti ini munculnya sudah sejak awal dibuatnya
file atau setelah memasang calendar control ?
>> jika setelah memasang calendar control, coba hapus dulu userform yang
berisi calendar control tersebut. Save workbook dan tutup Excel, kemudian
coba buka lagi. (file tersebut baik-baik saja ketika dibuka dikomputer
saya).
--------------------------------------------------------------------------------------------------------------------------
Wassalamu'alaikum Wr. Wb.
Kid.
2013/3/10 syam ero <[email protected]>
> **
>
>
> Yth. Mr. Kid
>
> Assalamu'alaikum Wr. Wb.
>
> Mr Kid, mohon maaf atas kurangnya pemahaman saya dalam memahami
>
> lampiran copas yang sudah Mr sampaikan dan hasilnya bahwa :
>
> 1. Jika Button SIMPAN pada tabel PESANPERSEDIAAN & tabel PENGIRIMAN
>
> setelah dicopy paste kedalam modules, dan suda disave, saya klik simpan
>
> munculah pesan diatas ini.
>
> 2. Pada tabel PERSEDIAAN DIKIRIM formulanya bagaimanakah master?
>
> 3. Munculnya gambar, pada saat saya membuka file lain dan didalamnya
> menggunakan macro juga sehingga persyaratan RECOVERY ,nah mohon solusinya
>
> agar tidak muncul karena data yang diolah bisa tertunda bahkan nuggu lama.
> Data terlampir.
>
> Demikian terimaksih sebelumnya atas pencerahaanya.
>
> Wassalam,
>
> Syam
>
> Pada 9 Maret 2013 15.21, Mr. Kid <[email protected]> menulis:
>
> > **
>
> >
> >
> > Wa'alaikumussalam Wr. Wb.
> >
> > 1. Jika tabel PESAN PERSEDIAAN sudah siisi datanya agar buton SIMPAN tsb
> bisa
> > masuk ke sheet Databs.
> > >> Kok belum dicoba langkah yang sudah dijlentrehken di-email lalu. Kalau
> > sudah dicoba dan ada errornya, kirim hasil coba tersebut ke milis.
> >
> > - pada cell A6 diberi formula :
> > =IFERROR(MATCH(B6,Databs!A:A,0),COUNTA(Databs!A:A))
> >
> >
> > - ke VBE (ALT F11)
> > - menu Insert -> Module -> copas prosedur berikut :
> > public sub SimpanPersediaan()
> > dim lRow as long
> > lrow=sheets("Data Pesan-Kirim").range("a6").value
> > sheets("Databs").cells( lrow , 1 ).value = sheets("Data
> > Pesan-Kirim").range("b6").value
> > sheets("Databs").cells( lrow , 2 ).value = sheets("Data
> > Pesan-Kirim").range("c6").value
> > end sub
> >
> > - ke worksheet (ALT F11)
> > - klik kanan tombol Simpan milik Pesan -> Assign Macro -> pilih
> > SimpanPersediaan -> OK
> > - save as workbook dengan cara :
> > > tekan ALT F A
> > > lihat opsi Save as type -> pilih .xlsm atau .xlsb atau .xls
> > > beri nama file -> tekan tombol Save
> > 2 dan 3 ***
> > >> sama seperti nomor 1, coba dulu aja ya.
> >
> >
> > 4. Disetiap saya membuka file Excel sering muncul gambar,mohon solusinya
> > agar tidak muncul karena data yang diolah bisa tertunda bahkan nuggu
> > lama
> > >> Coba diingat-ingat, hal seperti ini munculnya sudah sejak awal
> > dibuatnya file atau setelah memasang calendar control ?
> > >> jika setelah memasang calendar control, coba hapus dulu userform yang
> > berisi calendar control tersebut. Save workbook dan tutup Excel, kemudian
> > coba buka lagi. (file tersebut baik-baik saja ketika dibuka dikomputer
> > saya).
> >
> >
> > Wassalamu'alaikum Wr. Wb.
> > Kid.
> >
>
>
>
