Kamis, 06 Maret 2014

[belajar-excel] Digest Number 2814

15 Messages

Digest #2814
2a
Re: Mods: Menyimpan data ListView ke Excel by "Mr. Kid" nmkid.family@ymail.com
2b
Re: Mods: Menyimpan data ListView ke Excel by "Ratri Risyanto" risyanto12
3a
Re: Menghitung stock terupdate [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
4c
Re: Menggabungkan data beberapa file berdasarkan tanggal by "Ahmad Syaifullah Lubis" syaifullah
7a
8

Messages

Wed Mar 5, 2014 12:52 pm (PST) . Posted by:

diding_damanik

salam mr Kid.
sori ane masih baru belajar data validation dan autofilter. mau tanya, tujuan kita menentukan record berapa sampai record berapa itu buat apa? kalo misalnya datanya tidak di sort, konsep data validastion diatas masih bisa dipake tidak?

Wed Mar 5, 2014 1:09 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam Callmedida,

1. tujuan kita menentukan record berapa sampai record berapa itu buat apa?
> membuat sebuah daftar

2. kalo misalnya datanya tidak di sort, konsep data validastion diatas
masih bisa dipake tidak?
> tidak bisa menampilkan daftar pilihan per grup,
> tetapi bisa menampilkan sebagian daftar pilihan yang tidak mewakili
seluruh isi grup. Kenapa tidak dicoba untuk mengubah sorting pada
tabel-tabel yang ada, seperti berdasar size saja (tanpa berdasar kolom item
& style) dibuat sorted ascending
> tujuan utama proses sorting adalah membentuk susunan grup yang rapi,
yaitu seluruh grup berkumpul membentuk area milik grup tersebut. Seperti
grup pertama akan membahas tentang item-item dalam grup pertama sampai
tuntas, lalu membahas grup kedua sampai tuntas dan seterusnya.

Jadi,
A. Sebuah daftar apapun yang akan dijadikan bahan pilihan bagi orang lain
memiliki item pertama sampai terakhir. (nomor 1)
B. Pada daftar yang tersusun dalam grup-grup tertentu, maka daftar dalam
grup tersebut dimulai dari item pertama dalam grup sampai item terakhir
dalam grup. (nomor 2)

Contoh : menu warung makan.
- Ada grup makanan dan grup minuman.
- Grup makanan dimulai dari item makanan pertama sampai item makanan
terakhir yang ditawarkan warung tersebut.
- Begitu pula dengan grup minuman.

Bisa dibayangkan kesulitan yang dihadapi calon pembeli jika tidak ada
pengelompokan per grup dari setiap item makanan atau minuman yang dapat
disediakan oleh si warung.

Wassalam,
Kid.

2014-03-05 17:10 GMT+07:00 <callmedida@gmail.com>:

>
>
> salam mr Kid.
> sori ane masih baru belajar data validation dan autofilter. mau tanya,
> tujuan kita menentukan record berapa sampai record berapa itu buat apa?
> kalo misalnya datanya tidak di sort, konsep data validastion diatas masih
> bisa dipake tidak?
>
>

Thu Mar 6, 2014 1:08 am (PST) . Posted by:

diding_damanik

mr. kid, ane coba2 rumusnya tapi mentok salah terus. ane udah buat sampe data validation di level 2 tapi gak bisa konek ke level 1. nah, rumus =INDEX(_level2_all_,$P$2,2):INDEX(_level2_all_,$R$2,2) itu dimasukkannya kemana?

Wed Mar 5, 2014 1:42 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Ratri,

1. di Excel, pakai formula Sum yang dimulai dari baris header sampai 1
baris sebelum baris total. Baris terakhir sebelum baris total dikorbankan
sebagai dummy baris kosong.
>> coba pada excel worksheet bernama sj cell E14 diberi formula berbunyi
=Sum( e8:e13 )
>> copy formula itu ke kolom F.
>> pastikan bahwa baris 13 adalah baris dummy agar Anda bisa melakukan
insert baris baru pada baris 13, tetapi jangan pernah melakukan delete row
di baris 13.

di VBA.
> buat variabel berscope public untuk total CRT bernama lCRT bertype Long
karena berasumsi CRT bilangan bulat dan maksimal 9 digit
> berarti deklarasi variabel diletakkan di area general declaration.
> lebih lengkap tentang datatype dan penulisan code di VBA bisa dilihat mulai
dari sini <http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html>sampai
disini<http://b-excel.blogspot.com/2013/07/belajarvba-004-tipe-data-variabel.html>.
(tidak ada dan belum menemukan adalah dua hal berbeda)
> prosedur komputasi nilai total akan membuat variabel lCRT berisi nilai
total.
> prosedur tersebut dipanggil setiap kali ada perubahan item dalam
listview, seperti ketika ada penambahan data (berarti pada akhir proses
klik tombol tambahkan ada proses penghitungan nilai total dan penulisan ke
textbox terkait), edit data, hapus data, dan pembukaan userform

2. jadi, pengisian item pilihan combobox dilakukan dengan cara me-loop
seluruh data referensi yang didalamnya ada pemeriksaan kode atau nama si
suplier. Jika sama dengan yang di-input, barulah dilakukan add item.

5. jika ingin insert baris,
> a. blok sebuah baris excel (ada disini<http://b-excel.blogspot.com/2013/09/belajarvba-011-range-02-seluruh.html>).
Misal dengan sheets("nama sheet").range("a13").entirerow
> b. perluas (ada disini<http://b-excel.blogspot.com/2013/09/belajarvba-011-range-04-offset-dan.html>)
jumlah baris sejumlah jumlah baris yang akan di-insert. misal akan insert
17 baris, maka setelah entirerow diberi .resize(17)
> c. lakukan insert alias menfaatkan methods Insert yang dimiliki object
range. Berarti menambahkan .Insert setelah .resize(17)
Angka 17 bisa diganti dengan variabel yang menunjukkan jumlah baris yang
akan di-insert.

Dongengan tentang VBA ada di blog milis mulai dari
sini<http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html>
.

Wassalam,
Kid.

2014-03-05 9:03 GMT+07:00 Ratri Risyanto <risyanto12@yahoo.com>:

>
>
> Halo Mr. Kid
>
> Saya masih tidak faham jawaban no.1, 2, dan 4
> yang no.1 , apakah pakai datatype? kalau pakai itu di vba ms. excel kok
> tidak ada? dan penempatan variabel apakah saat crt / pcs change?
> yamg no.2 sudah browsing tapi masih tidak faham, soalnya kasusnya agak
> berbeda.
> yang no.5 jg tidak faham.
> terutama no.1 itu yang paling susah faham, Mohon maklum masih
> beginner....
>
> Terima kasih.
>
>
> Ratri Risyanto
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *Sent:* Monday, March 03, 2014 3:03 PM
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Subject:* Re: [belajar-excel] Re: Mods: Menyimpan data ListView ke Excel
>
>
>
> Hai Ratri,
>
> gugur satu tumbuh seribu ya...
> 1. di Excel, pakai formula Sum yang dimulai dari baris header sampai 1
> baris sebelum baris total. Baris terakhir sebelum baris total dikorbankan
> sebagai dummy baris kosong.
>
> di UserForm, berikut alurnya :
> i. buat variabel (jumlah variabel disesuaikan dengan kebutuhan) berscope
> public sebagai penyimpan nilai total.
> ii. buat sebuah prosedur penghitung total yang didalamnya berisi proses :
> > a. set variabel total dengan 0
> > b. loop per item dalam listview jika ada item dalam listview
> > c. isi variabel total dengan penambahan nilai yang ada pada item
> listview yang sedang aktif ditunjuk oleh loop
> > d. selesai loop, tulis isi variabel total ke textbox yang membutuhkan
>
>
> 2. coba jalan-jalan bertemu combobox yang ada disini<http://b-excel.blogspot.com/2014/02/belajarvba-102-combobox-01.html>
> .
>
> 3. sebelum proses hapus, lakukan cek jumlah item dalam listview. Jika
> listview tidak ada itemnya, maka keluar dari prosedur. Properti yang dapat
> digunakan adalah ListItems. Properti listitems memiliki properti Count yang
> menunjukkan jumlah item dalam listview.
>
> 4. buat alur proses pengubahan nilai di listview, mulai mengambil data
> dari item yang terpilih ke controls diluar listview. Kemudian siapkan
> tombol untuk simpan ke listview (menulis nilai hasil edit ke listview).
> Proses diakhiri dengan menjalankan event click milik simpan ke excel yang
> dibuat tempo lalu.
>
> 5. alurnya adalah blok mulai 1 baris diatas baris total, perluas menjadi
> sebanyak baris tambahan yang dibutuhkan, lakukan insert row
>
> 6. pada prosedur sub event click tombol print beri baris kode berikut :
> nama_object_userform_anda.hide
> sheets("nama sheetnya").range("area range yang akan diprint").printout
> 'ganti printout jadi printpreview jika ingin preview dulu
> nama_object_userform_anda.show
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014-03-03 1:01 GMT+07:00 Ratri Risyanto <risyanto12@yahoo.com>:
>
>>
>> Dh,
>>
>> Terima kasih banyak tanggapan dan jawabannya Mr. Kid atas pertanyaan saya
>> (yang banyak sekali..!!!)
>> Sangat membantu sekali dan sudah saya terapkan, dan berhasil...!!!
>> Kali ini saya mau tanya banyak lagi.. sbb:
>> 1. Bagaimana caranya memunculkan total CRT dan PCS (di tabel excel)
>> secara otomatis saat penginputan, juga pada form, di textbox tot crt, dan
>> tot pcs
>> 2.Bila saya merubah sistem input (yg mulanya dari prdcd) ke label cmbsup
>> (nama supplier) dan mau saya ganti jd combobox (txsupco dan cmbsup
>> bagaimana caranya agar saat saya input di cmbsup (sdh jd combobox) di
>> cmbprdcd hanya muncul nama barang dari supplier tsb. (sesuai data di sheet
>> prodmast)?
>> 3. Saat saya klik tombol "Hapus" pada saat listview kosong, muncul pesan
>> error. bagaimana caranya agar tdk terjadi "pesan error" tsb? dan bisa
>> memunculkan msgbox "data sudah kosong"
>> 4. Bila sistem input saya rubah lagi, bagaimana saat input data di
>> listview tersimpan, data di excel juga bisa tersimpan? dan saat edit data
>> di listview, data diexcel pun ter-edit juga?
>> 5. (baik pakai sistem input no.4 atau yg sudah ada) misal table input di
>> sheet "SJ" dibuat minimal 5 row input (sesuai file attach) tapi saya mau
>> input lebih, misal 10 row, apa bisa table tsb bisa menambahkan row
>> otomatis untuk kekurangannya, tanpa menghapus / menindih (replace) "total",
>> "pengirim", dan "penerima"?
>> 6. terakhir... bagaimana cara memunculkan form print (ctrl+p) saat diklik
>> tombol "print".
>>
>> (file attachment)
>>
>> Demikian pertanyaan saya, mohon maaf bila pertanyaannya terlalu banyak,
>> Saya tunggu tanggapan dan jawabanya, bila Mr. Kid atau para Master lainnya
>> berkenan..
>> Terima kasih banyak sekali lagi.. Salam para Master semuanya.
>>
>> Hs,
>>
>> Ratri Risyanto
>>
>>
>> *From:* Mr. Kid <mr.nmkid@gmail.com>
>> *Sent:* Sunday, March 02, 2014 6:16 PM
>> *To:* BeExcel <belajar-excel@yahoogroups.com>
>> *Subject:* Re: [belajar-excel] Re: Mods: Menyimpan data ListView ke Excel
>>
>>
>> Hai Ratri,
>>
>> 1. bagaimana membuat textbox no (textbox1) bisa memunculkan nomor urut
>> otomatis saat penginputan
>> >> pindahkan baris pengesetan textbox1 yang melalui event activate milik
>> userform ke event initialize milik userform
>> >> tambahkan pada event click tombol penyimpan ke listview dengan :
>> textbox1.text=nama_listviewnya.listitems.count+1
>>
>> 2. bagaimana caranya data di listview tersimpan di range ini, dengan
>> menggunakan tombol "simpan ke excel"?
>> >> pada event click si tombol penyimpan beri baris kode :
>> dim rng as range, lIdx as long, lCol as long
>> set rng = sheets("nama sheetnya").range("alamat cell pertama penulisan")
>> for lidx=1 to nama_listviewnya.listitems.count
>> rng.cells(lidx,1).value=nama_listviewnya.listitems(lidx).text
>> for lcol=1 to nama_listviewnya.listitems(lidx).listsubitems.count
>>
>> rng.cells(lidx,lcol+1).value=nama_listviewnya.listitems(lidx).listsubitems(lcol)
>> next lcol
>> next lidx
>>
>> 3. bagaimana bisa menghapus data (clear contents) di range biru otomatis
>> tanpa menghapus range ungu
>> >> letakkan baris kode berikut dalam prosedur yang membutuhkan
>> dim lRec as long, rng as range, lCol as long
>>
>> set rng=sheets("nama sheetnya").range("alamat cell penulisan nomor
>> pertama")
>> lcol= 27 'ganti 27 dengan jumlah kolom dari area range yang akan
>> dibersihkan
>> lrec=application.worksheetfunction.count( rng.entirecolumn )
>> if lrec>0 then
>> rng.resize( lrec , lcol ).clearcontents
>> endif
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> On Sat, Mar 1, 2014 at 1:29 AM, Ratri Risyanto <risyanto12@yahoo.com>wrote:
>>
>>>
>>>
>>>
>>> *From:* Ratri Risyanto <risyanto12@yahoo.com>
>>> *Sent:* Friday, February 28, 2014 1:31 PM
>>> *To:* EXCEL GROUP <belajar-excel@yahoogroups.com>
>>> *Subject:* SIMPAN DATA LISTVIEW KE EXCEL?
>>>
>>> Yth: All Masters Excel
>>>
>>> Bagaimana caranya menyimpan data listview ke excel? file terlampir...
>>> Mohon bantuannya...
>>> Terima kasih.
>>>
>>> Hk,
>>>
>>> Ratri Risyanto
>>>
>>
>>
>
>
>
>

Wed Mar 5, 2014 10:04 pm (PST) . Posted by:

"Ratri Risyanto" risyanto12

Halo Mr. Kid

Untuk masalah no.1 saya yakin code berikut ini, yg saya buat salah

Public ICRT As Long, IPCS As Long

Public Function NILAITOTAL() As Long
Set ICRT = 0
Set IPCS = 0
Do Until LISTVIEW1.ListItems.Count = 0
LISTVIEW1.ListItems.Item.Text
LISTVIEW1.ListItems.Item.SubItems (1)
LISTVIEW1.ListItems.Item.SubItems (2)
LISTVIEW1.ListItems.Item.SubItems (3)
LISTVIEW1.ListItems.Item.SubItems (4)
LISTVIEW1.ListItems.Item.SubItems (5)
ICRT = Sum(LISTVIEW1.ListItems.Item.SubItems(4).Value)
IPCS = Sum(LISTVIEW1.ListItems.Item.SubItems(4).Value)

Loop

yang no.2 masih bingung masalah loop dan penerapan code nya

Mohon pencerahannya, dibuatkan code contoh agar saya bisa memahai dan menerapakannya..
Terima kasih.

Ratri Risyanto

From: Mr. Kid
Sent: Thursday, March 06, 2014 4:42 AM
To: BeExcel
Subject: Re: [belajar-excel] Re: Mods: Menyimpan data ListView ke Excel

Hai Ratri,

1. di Excel, pakai formula Sum yang dimulai dari baris header sampai 1 baris sebelum baris total. Baris terakhir sebelum baris total dikorbankan sebagai dummy baris kosong.

>> coba pada excel worksheet bernama sj cell E14 diberi formula berbunyi =Sum( e8:e13 )

>> copy formula itu ke kolom F.

>> pastikan bahwa baris 13 adalah baris dummy agar Anda bisa melakukan insert baris baru pada baris 13, tetapi jangan pernah melakukan delete row di baris 13.

di VBA.

> buat variabel berscope public untuk total CRT bernama lCRT bertype Long karena berasumsi CRT bilangan bulat dan maksimal 9 digit

> berarti deklarasi variabel diletakkan di area general declaration.

> lebih lengkap tentang datatype dan penulisan code di VBA bisa dilihat mulai dari sini sampai disini. (tidak ada dan belum menemukan adalah dua hal berbeda)

> prosedur komputasi nilai total akan membuat variabel lCRT berisi nilai total.

> prosedur tersebut dipanggil setiap kali ada perubahan item dalam listview, seperti ketika ada penambahan data (berarti pada akhir proses klik tombol tambahkan ada proses penghitungan nilai total dan penulisan ke textbox terkait), edit data, hapus data, dan pembukaan userform

2. jadi, pengisian item pilihan combobox dilakukan dengan cara me-loop seluruh data referensi yang didalamnya ada pemeriksaan kode atau nama si suplier. Jika sama dengan yang di-input, barulah dilakukan add item.

5. jika ingin insert baris,
> a. blok sebuah baris excel (ada disini). Misal dengan sheets("nama sheet").range("a13").entirerow

> b. perluas (ada disini) jumlah baris sejumlah jumlah baris yang akan di-insert. misal akan insert 17 baris, maka setelah entirerow diberi .resize(17)

> c. lakukan insert alias menfaatkan methods Insert yang dimiliki object range. Berarti menambahkan .Insert setelah .resize(17)

Angka 17 bisa diganti dengan variabel yang menunjukkan jumlah baris yang akan di-insert.

Dongengan tentang VBA ada di blog milis mulai dari sini.

Wassalam,

Kid.

2014-03-05 9:03 GMT+07:00 Ratri Risyanto <risyanto12@yahoo.com>:

Halo Mr. Kid

Saya masih tidak faham jawaban no.1, 2, dan 4
yang no.1 , apakah pakai datatype? kalau pakai itu di vba ms. excel kok tidak ada? dan penempatan variabel apakah saat crt / pcs change?
yamg no.2 sudah browsing tapi masih tidak faham, soalnya kasusnya agak berbeda.
yang no.5 jg tidak faham.
terutama no.1 itu yang paling susah faham, Mohon maklum masih beginner....

Terima kasih.

Ratri Risyanto
From: Mr. Kid
Sent: Monday, March 03, 2014 3:03 PM
To: BeExcel
Subject: Re: [belajar-excel] Re: Mods: Menyimpan data ListView ke Excel

Hai Ratri,

gugur satu tumbuh seribu ya...

1. di Excel, pakai formula Sum yang dimulai dari baris header sampai 1 baris sebelum baris total. Baris terakhir sebelum baris total dikorbankan sebagai dummy baris kosong.

di UserForm, berikut alurnya :
i. buat variabel (jumlah variabel disesuaikan dengan kebutuhan) berscope public sebagai penyimpan nilai total.

ii. buat sebuah prosedur penghitung total yang didalamnya berisi proses :

> a. set variabel total dengan 0

> b. loop per item dalam listview jika ada item dalam listview

> c. isi variabel total dengan penambahan nilai yang ada pada item listview yang sedang aktif ditunjuk oleh loop

> d. selesai loop, tulis isi variabel total ke textbox yang membutuhkan

2. coba jalan-jalan bertemu combobox yang ada disini.

3. sebelum proses hapus, lakukan cek jumlah item dalam listview. Jika listview tidak ada itemnya, maka keluar dari prosedur. Properti yang dapat digunakan adalah ListItems. Properti listitems memiliki properti Count yang menunjukkan jumlah item dalam listview.

4. buat alur proses pengubahan nilai di listview, mulai mengambil data dari item yang terpilih ke controls diluar listview. Kemudian siapkan tombol untuk simpan ke listview (menulis nilai hasil edit ke listview). Proses diakhiri dengan menjalankan event click milik simpan ke excel yang dibuat tempo lalu.

5. alurnya adalah blok mulai 1 baris diatas baris total, perluas menjadi sebanyak baris tambahan yang dibutuhkan, lakukan insert row

6. pada prosedur sub event click tombol print beri baris kode berikut :

nama_object_userform_anda.hide

sheets("nama sheetnya").range("area range yang akan diprint").printout 'ganti printout jadi printpreview jika ingin preview dulu

nama_object_userform_anda.show

Wassalam,

Kid.

2014-03-03 1:01 GMT+07:00 Ratri Risyanto <risyanto12@yahoo.com>:

Dh,

Terima kasih banyak tanggapan dan jawabannya Mr. Kid atas pertanyaan saya (yang banyak sekali..!!!)
Sangat membantu sekali dan sudah saya terapkan, dan berhasil...!!!
Kali ini saya mau tanya banyak lagi.. sbb:
1. Bagaimana caranya memunculkan total CRT dan PCS (di tabel excel) secara otomatis saat penginputan, juga pada form, di textbox tot crt, dan tot pcs
2.Bila saya merubah sistem input (yg mulanya dari prdcd) ke label cmbsup (nama supplier) dan mau saya ganti jd combobox (txsupco dan cmbsup
bagaimana caranya agar saat saya input di cmbsup (sdh jd combobox) di cmbprdcd hanya muncul nama barang dari supplier tsb. (sesuai data di sheet prodmast)?
3. Saat saya klik tombol "Hapus" pada saat listview kosong, muncul pesan error. bagaimana caranya agar tdk terjadi "pesan error" tsb? dan bisa memunculkan msgbox "data sudah kosong"
4. Bila sistem input saya rubah lagi, bagaimana saat input data di listview tersimpan, data di excel juga bisa tersimpan? dan saat edit data di listview, data diexcel pun ter-edit juga?
5. (baik pakai sistem input no.4 atau yg sudah ada) misal table input di sheet "SJ" dibuat minimal 5 row input (sesuai file attach) tapi saya mau input lebih, misal 10 row, apa bisa table tsb bisa menambahkan row otomatis untuk kekurangannya, tanpa menghapus / menindih (replace) "total", "pengirim", dan "penerima"?
6. terakhir... bagaimana cara memunculkan form print (ctrl+p) saat diklik tombol "print".

(file attachment)

Demikian pertanyaan saya, mohon maaf bila pertanyaannya terlalu banyak, Saya tunggu tanggapan dan jawabanya, bila Mr. Kid atau para Master lainnya berkenan..
Terima kasih banyak sekali lagi.. Salam para Master semuanya.

Hs,

Ratri Risyanto

From: Mr. Kid
Sent: Sunday, March 02, 2014 6:16 PM
To: BeExcel
Subject: Re: [belajar-excel] Re: Mods: Menyimpan data ListView ke Excel

Hai Ratri,

1. bagaimana membuat textbox no (textbox1) bisa memunculkan nomor urut otomatis saat penginputan

>> pindahkan baris pengesetan textbox1 yang melalui event activate milik userform ke event initialize milik userform

>> tambahkan pada event click tombol penyimpan ke listview dengan :

textbox1.text=nama_listviewnya.listitems.count+1

2. bagaimana caranya data di listview tersimpan di range ini, dengan menggunakan tombol "simpan ke excel"?

>> pada event click si tombol penyimpan beri baris kode :

dim rng as range, lIdx as long, lCol as long

set rng = sheets("nama sheetnya").range("alamat cell pertama penulisan")

for lidx=1 to nama_listviewnya.listitems.count

rng.cells(lidx,1).value=nama_listviewnya.listitems(lidx).text

for lcol=1 to nama_listviewnya.listitems(lidx).listsubitems.count

rng.cells(lidx,lcol+1).value=nama_listviewnya.listitems(lidx).listsubitems(lcol)

next lcol

next lidx

3. bagaimana bisa menghapus data (clear contents) di range biru otomatis tanpa menghapus range ungu

>> letakkan baris kode berikut dalam prosedur yang membutuhkan

dim lRec as long, rng as range, lCol as long

set rng=sheets("nama sheetnya").range("alamat cell penulisan nomor pertama")

lcol= 27 'ganti 27 dengan jumlah kolom dari area range yang akan dibersihkan

lrec=application.worksheetfunction.count( rng.entirecolumn )

if lrec>0 then

rng.resize( lrec , lcol ).clearcontents

endif

Wassalam,
Kid.

On Sat, Mar 1, 2014 at 1:29 AM, Ratri Risyanto <risyanto12@yahoo.com> wrote:

From: Ratri Risyanto
Sent: Friday, February 28, 2014 1:31 PM
To: EXCEL GROUP
Subject: SIMPAN DATA LISTVIEW KE EXCEL?

Yth: All Masters Excel

Bagaimana caranya menyimpan data listview ke excel? file terlampir...
Mohon bantuannya...
Terima kasih.

Hk,

Ratri Risyanto

Wed Mar 5, 2014 1:54 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

trit ini belum ada yang nyamperin...

kira-kiranya, stock atau uang memiliki saldo dan mutasi.
tabel data seluruh transaksi biasanya disimpan kedalam sebuah tabel
transaksi.
setiap akhir bulan (tanggal cut off bisa ditentukan sesuai kebiasaan dan
kesepakatan setempat) dilakukan komputasi terhadap saldo akhir bulan
tersebut. Dengan demikian, maka akan didapat saldo awal untuk bulan
berikutnya (mulai dari cut off date +1 sampai cut off date berikutnya).
Data saldo akhir ini (ada yang sekalian menyimpan saldo awal), disimpan
dalam tabel saldo.

Saldo awal harian adalah saldo awal bulanan + net mutasi dari tanggal awal
bulan sampai 1 hari sebelum hari tersebut
Saldo akhir bulan adalah saldo awal bulanan + net mutasi dari tanggal awal
bulan sampai hari tersebut.
Artinya, saldo harian dihitung dengan mengambil nilai saldo awal bulan dari
tabel saldo dan men-total seluruh mutasi (dari tabel transaksi) untuk
tanggal yang dibutuhkan.
Saldo awal bulan yang diambil dari tabel saldo bisa dilakukan dengan fungsi
LookUp.
Net mutasi dari tabel transaksi untuk interval tanggal tertentu bisa
dilakukan dengan SumIFs atau SumProduct

Pada sisi input, jika saldo harian dihitung sekaligus, maka membutuhkan
konsep penghitungan saldo harian di atas.
Jadi, biasanya, sebuah aplikasi stock atau keuangan setidaknya memiliki
tabel data saldo dan tabel data transaksi.
Lembar inputan oleh user (bisa di worksheet input atau userform input dan
sebagainya) maupun lembar output (bisa dimana saja) adalah hal yang
terpisah dengan tabel saldo dan tabel transaksi.

Moga-moga dari penggalan di atas akan ada ide untuk menerjemahkannya dalam
kasus Pak Tjahya.

Wassalamu'alaikum,
Kid.

2014-03-02 22:21 GMT+07:00 Tjahya Hartono <tjahyahartono@yahoo.co.id>:

>
>
> Selamat malam,
> Saya kesulitan membuat tabel stock dalam sistem kasir yang sederhana ini,
> mohon penjelasannya bagaimana cara terbaik membuat stock dalam kasus ini
>
> Wassalam
>
> Tjahya Hartono
>
>
>
>
>
>

Wed Mar 5, 2014 2:03 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam Wr. Wb.

imho,
> Langkah pertama adalah mengambil seluruh data dari sekian banyak file dan
mengumpulkannya dalam sebuah sheet di workbook target. Kegiatan bagian ini
bisa dilakukan dengan mengembangkan file yang ada
disini<https://app.box.com/s/mwnngtmulf21gfu4oogv>agar sesuai bentuk
data setempat dan kebutuhan Anda.
> Sheet target penggabungan hasil langkah pertama tadi adalah sebuah sheet
temporary.
> Langkah kedua adalah memfilter data tanggal yang dibutuhkan saja dengan
autofilter misalnya (bisa di record macro).
> Langkah ketiga adalah memilih hasil filter (yang tampak) memanfaatkan
fitur Goto Special Visible Cells (bisa di record macro)
> Langkah keempat adalah meng-copy yang sudah terpilih dengan goto special
(bisa di record macro)
> Langkah kelima adalah menuju baris terakhir sheet akhir (penyimpanan
akhir) dan melakukan paste disana (bisa di record macro)

Catatan : autofilter biasanya akan mudah memfilter tanggal yang di format
general ketika data tanggal bertipe datetime.

Wassalamu'alaikum Wr. Wb.,
Kid.

2014-03-05 9:54 GMT+07:00 Yayan Ajah <erte_try@yahoo.co.id>:

>
>
> Assalamu'alaikum ...
>
> Mohon bantuannya para master excel,
> Gimana caranya menggabung data dari beberapa file excel ke satu file excel
> utama tanpa harus copy manual menggunakan VBA, selain itu data yg akan di
> copy dari beberapa file tersebut bisa ditentukan tanggal berapa yang akan
> di copy ke file utama.
> Contoh File Terlampir
>
>
> Terima kasih
>
>
>

Wed Mar 5, 2014 5:24 pm (PST) . Posted by:

"Yayan Ajah"



Saya coba pelajari dulu penggabungan file tersebut, nanti akan saya tanya jika ada hal yang tidak dimengerti.

Terima kasih
Yayan

Pada Kamis, 6 Maret 2014 5:03, Mr. Kid <mr.nmkid@gmail.com> menulis:

 
Wa'alaikumussalam Wr. Wb.

imho,
> Langkah pertama adalah mengambil seluruh data dari sekian banyak file dan mengumpulkannya dalam sebuah sheet di workbook target. Kegiatan bagian ini bisa dilakukan dengan mengembangkan file yang ada disini agar sesuai bentuk data setempat dan kebutuhan Anda.
> Sheet target penggabungan hasil langkah pertama tadi adalah sebuah sheet temporary.
> Langkah kedua adalah memfilter data tanggal yang dibutuhkan saja dengan autofilter misalnya (bisa di record macro).
> Langkah ketiga adalah memilih hasil filter (yang tampak) memanfaatkan fitur Goto Special Visible Cells (bisa di record macro)

> Langkah keempat adalah meng-copy yang sudah terpilih dengan goto special (bisa di record macro)

> Langkah kelima adalah menuju baris terakhir sheet akhir (penyimpanan akhir) dan melakukan paste disana (bisa di record macro)

Catatan : autofilter biasanya akan mudah memfilter tanggal yang di format general ketika data tanggal bertipe datetime.

Wassalamu'alaikum Wr. Wb.,

Kid.

2014-03-05 9:54 GMT+07:00 Yayan Ajah <erte_try@yahoo.co.id>:


>Assalamu&#39;alaikum ...
>
>
>Mohon bantuannya para master excel, 
>Gimana caranya menggabung data dari beberapa file excel ke satu file excel utama tanpa harus copy manual menggunakan VBA, selain itu data yg akan di copy dari beberapa file tersebut bisa ditentukan tanggal berapa yang akan di copy ke file utama.
>Contoh File Terlampir
>
>
>
>
>Terima kasih
>
>

Thu Mar 6, 2014 1:04 am (PST) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Dear BeExceller,
saya punya file excel dalam workbook ada 10 sheet :
1. Man-Wkr
2. Man-Tpg
3. Dnm-Wkr
4. Dnm-Wkr-US
5. Ks-Wkr
6. Dnm-J-Wkr
7. Man-Trk
8. Man-Fiy
9. Dnm-Trk
10. Dnm-Fiy

Bagaimana macro :
1. bagaimana menghapus beberapa sheet pilihan
misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr"
arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk

2. bagaimana mencopy beberapa sheet pilihan.
misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk

semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.

terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.

Salam.
ASL.

Wed Mar 5, 2014 8:30 pm (PST) . Posted by:

"Aden S" adendum_81

Dear Excellers,

Mohon bantuannya untuk membuat rumus if bertingkat atau rumus lain untuk membuat perhitungan didalam lampiran email ini

(Jika kolom D3 (nilai lebih dari 21 maka kolom E3 dikalikan E10, Jika nilai lebih dari 10 dan kurang dari 20 maka kolom E3 dikalikan E11,  nilai kurang dari 10 maka kolom E3 dikalikan E12)

Terima kasih

Wed Mar 5, 2014 8:59 pm (PST) . Posted by:

"Jan Raisin"

Hai Aden,

coba buat sebuah tabel referensi dengan jumlah kolom = 2
Kolom pertama adalah batas bawah, berisi nilai minimal yang menjadi
batasan, misalnya range kelasnya adalah 0 sampai 10 maka batas bawahnya
adalah 0
Kolom kedua berisi nilai pengali
tabel harus disort secara Ascending, kecil ke besar, A ke Z

Untuk mengambil nilai pengali, gunakakan fungsi VLookUp dengan range_lookup
= TRUE
syntax-nya :
=VlookUp( nilai_yang_dicari , range_pencarian , nomor_indeks_kolom ,
range_lookup )

setelah diperoleh nilai pengalinya, silakan dikali dengan bobot untuk
memperoleh nilai yang anda cari.

Manfaat dari menggunakan tabel referensi adalah akan menyingkat formula IF
jika memiliki banyak kondisi.

Wassalam,

-Miss Jan Raisin-

Pada 6 Maret 2014 11.30, Aden S <adendum_81@yahoo.com> menulis:

>
>
> Dear Excellers,
>
> Mohon bantuannya untuk membuat rumus if bertingkat atau rumus lain untuk
> membuat perhitungan didalam lampiran email ini
>
> (Jika kolom D3 (nilai lebih dari 21 maka kolom E3 dikalikan E10, Jika
> nilai lebih dari 10 dan kurang dari 20 maka kolom E3 dikalikan E11, nilai
> kurang dari 10 maka kolom E3 dikalikan E12)
>
> Terima kasih
>
>
>

Wed Mar 5, 2014 8:53 pm (PST) . Posted by:

"Bagus" bagus4bls

Hai Aden;

Coba begini:
=IF(D3<=$D$12,E3*$E$12,IF(D3<=$D$11,E3*$E$11,E3*$E$10))

Copas kebawah

Wassalam

~ Bagus ~

----- Original Message -----
From: Aden S
To: excel
Sent: Thursday, March 06, 2014 11:30 AM
Subject: [belajar-excel] If bertingkat (lebih dari atau kurang dari) [1 Attachment]

Dear Excellers,

Mohon bantuannya untuk membuat rumus if bertingkat atau rumus lain untuk membuat perhitungan didalam lampiran email ini

(Jika kolom D3 (nilai lebih dari 21 maka kolom E3 dikalikan E10, Jika nilai lebih dari 10 dan kurang dari 20 maka kolom E3 dikalikan E11, nilai kurang dari 10 maka kolom E3 dikalikan E12)

Terima kasih

Wed Mar 5, 2014 8:55 pm (PST) . Posted by:

"Aden S" adendum_81

Terima kasih bantuannya pak, sudah berhasil

On Thursday, March 6, 2014 11:53 AM, Bagus <bagus@kingjim.co.id> wrote:

 
Hai Aden;
 
Coba begini:
=IF(D3<=$D$12,E3*$E$12,IF(D3<=$D$11,E3*$E$11,E3*$E$10))
 
Copas kebawah
 
 
Wassalam
~
Bagus ~
 
----- Original Message -----
>From: Aden S
>To: excel
>Sent: Thursday, March 06, 2014 11:30 AM
>Subject: [belajar-excel] If bertingkat (lebih dari atau kurang dari) [1 Attachment]
>

>Dear Excellers,
>
>
>Mohon bantuannya untuk membuat rumus if bertingkat atau rumus lain untuk membuat perhitungan didalam lampiran email ini
>
>
>(Jika kolom D3 (nilai lebih dari 21 maka kolom E3 dikalikan E10, Jika nilai lebih dari 10 dan kurang dari 20 maka kolom E3 dikalikan E11,  nilai kurang dari 10 maka kolom E3 dikalikan E12)
>
>
>
>Terima kasih
>

Thu Mar 6, 2014 1:05 am (PST) . Posted by:

"gantar dowo"

mohon maaf nggak tahu saya yg salah menerapkannya atau memang rumusnya yang
salah, sudah saya coba dua rumus dari miss JR & Mas B hasilnya:
1. pakai rumus miss JR nggak ada yang berubah warnanya
2. pakai rumus Mas B yg beda tanggal berubah warnaya cuma ada beberapa NIK
dg tanggal yg sama ikut berubah warnanya

2014-03-05 16:29 GMT+07:00 Jan Raisin <miss.jan.raisin@gmail.com>:

>
>
> Hai Tia,
>
> langkah2 pembuatan CF-nya sperti ini:
> 1. Blok seluruh area tabel 1 yang ada di sebelah kanan
> 2. Pada ribbon Home, group Styles, klik Conditional Formating, lalu pilih
> New Rule
> 3. Pada rule Type, pilih Use a formula to determine which cells to format
> 4. Pada kotak Format values where this formula is true diisi formula
> seperti berikut ini:
> =CountIf( OffSet( $A$1 , 0 , 0 , Counta( $A:$A ) - 1 , 1 ) , $F2 )
> > 1
>
> 5. Klik tombol Format
> 6. Akan terbuka dialog box Format Cell, klik tab Fill, pilih warna yang
> anda inginkan lalu klik OK
> 7. Setelah itu akan kembali ke dialog box sebelumnya, klik OK lagi
>
> Penjelasan formula di atas:
> Formula awalnya adalah CountIf yang warna hitam,
> syntaxnya =CountIf( area_yang_diuji , kriteria )
> digunakan untuk menghitung jumlah data yang sama dengan kriteria yang
> ditentukan
>
> Area pengujian pada formula di atas ditandai dengan warna biru dan merah,
> yang warna biru digunakan untuk mencari jumlah area dengan tipe dinamis
> menggunakan fungsi OffSet
> syntaxnya =OffSet( titik_awal , posisi_baris , posisi_kolom , jumlah_baris
> , jumlah_kolom )
>
> Titik awal terletak pada cel A1 dan posisinya tidak boleh berubah saat
> formula dicopas ke cel yang lain, oleh karena itu ditulis menggunakan
> alamat cel absolut yang ditandai dengan penggunaan tanda dollar ($)
> Posisi baris dan nomor kolom diisi dengan 0 (nol) karena akan diambil
> seluruh data yang ada dengan menghitung jumlah baris data
>
> Jumlah baris dihitung menggunakan fungsi Counta terhadap kolom A lalu
> dikurangi dengan 1 yaitu header kolom yang harus dikeluarkan dari
> perhitungan
> Nilai 1 pada jumlah kolom menunjukkan bahwa hanya 1 kolom yang akan
> digunakan sebagai area pengujian
>
> Formula ringkasnya sudah diberikan oleh mas Bagus, berhubung Jan ngetiknya
> sudah lama dan sayang kalo dibuang,, maka emailnya tetap Jan kirim xixixixi
> ^_^
>
> Satu hal lagi, Jan coba menggunakan nama tabel yang sudah ada untuk
> membuat alamat range dinamis tetapi selalu error, padahal waktu diuji di
> sebuah cel bisa berjalan normal, error hanya muncul saat dipindah ke CF.
> Mungkin ada Be-Exceller lain yang dapat menjelaskannya?
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
>
> 2014-03-05 15:37 GMT+07:00 gantar dowo <takbengkolang@gmail.com>:
>
>>
>>
>> salam
>>
>> mohon bantuannya membandingkan tgl masuk pada 2 tabel berdasarkan NIK
>> dengan menggunakan conditional formatting
>>
>> TIA
>>
>>
>

Thu Mar 6, 2014 1:07 am (PST) . Posted by:

"irianto"

Dear master excel……..
Sebelumnya salam kenal dari saya,karena saya baru bergabung di grup
Dan saya masih awam dalam macro excel,karenaitu mohon bantuan dan pencerahan para master untuk
Memecahkan masalah ini,file terlampir…………….
Mohon maaf apabila penyampaian saya kurang dimengerti
Trims..


Regards
irianto


***** Mod *****
Lampiran dilepas dari email karena melebihi batas yang diperkenankan.
silakan mengirim ulang contoh file dengan ukuran maksimal 250 KB
tidak perlu semua data kerja, jika perlu lakukan kompresi terlebih dahulu
____________




=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

1 komentar:

readone99 mengatakan...

mas, kalau record tertentu seperti cell “status” yang ada pada kolom ke 9, seperti : proses, kirim, dan terima berbeda-beda warna bagaimana koding vba excelnya ya..??

terimakasih sebelumnya.

Posting Komentar