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.
2013/3/9 syam ero <[email protected]>
> **
>
>
> Yth. Mr. Kid
>
>
> Assalamu'alaikum Wr. Wb.
>
> Alhamdulillah Mr.Kid kalendar popupnya cari-cari file dan dicobanya
>
> bisa digunakan juga dari Almh. Jeng Siti ini sudah dikotak katik dari 4
> hari yang
>
> lalu baru ketemu caranya dari copy paste. mohon maafmr Kid saya untuk
> formula dan VB atau Macro sebetulnya gak paham bener.
>
> Mr. kid tolong dong? mohon tuk dibantu dengan permasalahannya adalah :
>
> 1. Jika tabel PESAN PERSEDIAAN sudah siisi datanya agar buton SIMPAN tsb
>
> bisa masuk ke sheet Databs.
>
> 2. Jika tabel PENGIRIMAN BARANG sudah diisi datanya agar button SIMPAN
>
> tsb bisa masuk ke sheet Databs. Kemudian pada tabel ini dalam tgl yang
> sama bisa jadi 3 atau 4 kota tujuan harus dikirim dengan banyaknya barang
> pun berbeda-beda.
>
> 3. Pada tabel PERSEDIAAN DIKIRIM pun bisa memunculkan datanya
> berdasarkan formula.
>
> 4. Disetiap saya membuka file Excel sering muncul gambar,mohon solusinya
> agar tidak muncul karena data yang diolah bisa tertunda bahkan nuggu
> lama.
>
> Data terlampir.
>
> Demikian terimaksih sebelumnya atas pencerahaanya.
>
> Wassalam,
> Syam
>
>
>
>
> Pada 8 Maret 2013 06.25, Mr. Kid <[email protected]> menulis:
>
> **
>>
>>
>> Wa'alaikumussalam Wr. Wb.
>>
>> 1. Tanggal pada Cell B6 dan E6 bagaimanakah agar ada kalender pop-upnya?
>> >> Pada worksheet diberi ActiveX Control Object bernama DTPicker atau
>> Calendar.
>> >> cara insert object :
>> -> ribbon Developer -> group Controls -> Insert -> lihat bagian
>> ActiveX Control -> cari More Control (pojok kanan bawah list menu
>> -> cari item DTPicker atau Calendar
>> > Jika ada dalam daftar :
>> -> klik item tersebut -> gambar kotak dalam worksheet
>> > jika tidak ada item DTPicker atau Calendar Control x.0 dalam
>> daftar
>> -> tekan tombol Register Custom -> cari file mscomct2.ocx
>> (DTPicker) atau mscal.ocx (Calendar Control) di komputer
>> :: Jika ada filenya -> pilih dan tekan Open
>> :: Jika tidak ada filenya -> lihat
>> http://tech.groups.yahoo.com/group/belajar-excel/message/22874 pada
>> nomor 5.
>> [sesuaikan nama filenya, mscomct2.ocx (DTPicker)
>> atau mscal.ocx (Calendar Control)]
>> >> Pastikan seluruh komputer yang akan menggunakan file Excel berisi
>> control object DTPicker atau Calendar Control juga memiliki dan meregister
>> library filenya di komputer tersebut.
>> >> atur properti linked cells dari control yang dipakai untuk merujuk ke
>> cell tertentu dalam worksheet, seperti cell B6 untuk control pertama dan E6
>> untuk controk kedua.
>>
>> 2. Pada Cell B6 dan C6 ini jikasudah terisi datanya bagaimankah agar
>> datanya bisa tersimpan dalam sheet Databs? dan begitu juga pada Cell E6, F6
>> dan G6 tsb.
>> >> coba langkah berikut :
>> A. Pesan persediaan
>> - 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
>>
>> B. Pengiriman
>> - pada cell H5 beri formula :
>> =IFERROR(MATCH(E6,Databs!A:A,0),COUNTA(Databs!A:A))
>> - pada cell H6 beri formula :
>> =IFERROR(MATCH(F6,Databs!1:1,0),0)
>>
>> - ke VBE (ALT F11)
>> - double click module yang di-insert pada proses A tadi dan copas
>> script berikut ke baris barunya :
>> public sub SimpanPengiriman()
>> dim lRow as long, lCol as long
>> lrow=sheets("Data Pesan-Kirim").range("h5").value
>> lcol=sheets("Data Pesan-Kirim").range("h6").value
>> if lcol <1 then
>> exit sub
>> endif
>> sheets("Databs").cells( lrow , 1 ).value = sheets("Data
>> Pesan-Kirim").range("e6").value
>> sheets("Databs").cells( lrow , lcol ).value = sheets("Data
>> Pesan-Kirim").range("g6").value
>> end sub
>>
>> - ke worksheet (ALT F11)
>> - klik kanan tombol Simpan milik Pengiriman -> Assign Macro -> pilih
>> SimpanPengiriman -> OK
>> - save workbook
>>
>> 3. Kemudian pada tabel persediaan dikirim jika ada penambahan pesan
>> barang bisa bertambah terus sesuai data yang masuk ke Databs.
>> >> Coba langkah berikut :
>> - 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
>>
>>
>> Wassalamu'alaikum Wr. Wb.
>> Kid.
>>
>> 2013/3/7 syam ero <[email protected]>
>>
>>> **
>>>
>>>
>>> Yth. Mr Kid
>>>
>>> Assalamu'alaikum Wr. Wb.
>>>
>>> Mr data pencerahan sudah diterima dan cocok sesuai dengan kebutuhan saya,
>>> Mr kid mohon pencerahan kembali dengan penambahan sheet sebagai
>>> pengolahan
>>> data untuk disimpan kedalam sheet Databs. Data terlampir.
>>> Atas bantuan dan pencerahannya saya mengucapkan terimakasih.
>>>
>>> Wasalam,
>>> Syam
>>>
>>>
>>>
>>> Pada 2 Maret 2013 23.11, Mr. Kid <[email protected]> menulis:
>>>
>>> **
>>>>
>>>>
>>>> Wa'alaikumussalam Wr. Wb.
>>>>
>>>> -- mohon tidak menyertakan cc, bcc, atau to ke akun lain. cukup kirim
>>>> ke milis Belajar-Excel --
>>>>
>>>> File terlampir.
>>>>
>>>> Wassalamu'alaikum Wr. Wb.
>>>> Kid.
>>>>
>>>>
>>>> 2013/3/2 syam ero <[email protected]>
>>>>
>>>>> **
>>>>>
>>>>>
>>>>> Yth. para Exceller
>>>>>
>>>>>
>>>>> Assalamu'alaikum Wr. Wb.
>>>>>
>>>>> Saya mohon dibantu dengan para pakar Excel dengan permasalahan
>>>>> Formula.
>>>>>
>>>>> Bagaimanakah data yang diambil dari sheet Databs menjadi hasil sebuah
>>>>> laporan
>>>>>
>>>>> bulanan? dengan pertanyaannya yang antara lain :
>>>>>
>>>>> 1. Pada Cell P13 ini diselek agar data di sheet Databs ini langsung
>>>>> mengisi form
>>>>>
>>>>> pada Sheet Laporan.
>>>>>
>>>>> 2. Formula untuk kolom K, L dan M masing-masing menghasilkan rumusan
>>>>> hitungan.
>>>>>
>>>>> Demikian terimaksih sebelumnya atas pencerahaanya.
>>>>>
>>>>>
>>>>> Wassalam,
>>>>>
>>>>> Syam
>>>>>
>>>>>
>>>>
>>>
>>
>
>
