Wa'alaikumussalam Wr. Wb. Pada B6 pakai formula : =VLOOKUP(A6,Databs!$A$2:$B$95,2,0) terapkan untuk kolom lain dengan menyesuaikan rujukan rangenya
Coba juga dengan pivot table yang di-group date. Wassalamu'alaikum Wr. Wb. Kid. 2013/3/17 syam ero <[email protected]> > ** > > > Yth.Mr Kid > > Assalamu'alaikum. > Mr Kid betul sekali untuk mencoba saja perlu kesabaran dan keteletian, > terima kasih Mr bahwa apa yang disampaikan panjang lebar tsb. dan > dijalankan prosedurnya dengan sabar ternyata bisa berhasil. > Mr Kid minta bantuan lagi, formula pada sheet PENGONTROLAN untuk > satu kwartal dengan tabel terlampir. > Terimakasih master atas pencerahannya. > > wassalam, > Syam > > Pada 12 Maret 2013 09.37, Mr. Kid <[email protected]> menulis: > > ** >> >> >> 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. >>> > >>> >>> >> > >
