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
>>>
>>>
>>
>
>
