Minggu, 22 September 2013

[belajar-excel] Digest Number 2552

3 New Messages

Digest #2552

Messages

Sun Sep 22, 2013 3:52 am (PDT) . Posted by:

"Bayu Arsyad"

Tambah bingung dengan Pivot Table.. hehehe
Maksud saya Mr. Kid, record yang akan berubah hanya record di Sheet Poin
saja, tanpa merubah tatanan database yang telah tersusun. Karena ada di
sheets input saya menyisipkan kode

Sub tambahpoin()
recordnow = Sheets("Input").Range("idpoin").value
With Sheets("poin")
.Cells(recordnow - 997, 1).value = Sheets("Input").Range("idpoin").value
.Cells(recordnow - 997, 2).value = Sheets("Input").Range("c8").value
.Cells(recordnow - 997, 3).value = Sheets("Input").Range("c16").value +
.Cells(recordnow - 997, 3).value
End With
End Sub
untuk client yang dapatkan poin

dan
Sub kurangpoin()
recordnow = Sheets("Input").Range("idpoin").value
With Sheets("poin")
.Cells(recordnow - 997, 1).value = Sheets("Input").Range("idpoin").value
.Cells(recordnow - 997, 2).value = Sheets("Input").Range("c8").value
.Cells(recordnow - 997, 3).value = .Cells(recordnow - 997, 3).value -
Sheets("Input").Range("d16").value
End With
End Sub
jika poin telah ditukar

Kemudian di sheet data piutang saya menyisipkan kode
Sub datapoinutang()
With Sheets("datapiutang";)
cekutang =
Application.WorksheetFunction.IfError(Application.VLookup(Range("C14").value,
Sheets("datapiutang";).Range("B5:K1000"), 10, False), "")
End With
With Sheets("data")
criteria = Range("C14")
Set cr = Sheets("Data").Range("I6:P10000")
Set sr = Sheets("data").Range("P6:P10000")
caripoin = Application.SumIf(cr, criteria, sr)
End With
'MsgBox caripoin
If cekutang <> 0 Then
recordnow = Sheets("Input").Range("idpoin").value
With Sheets("poin")
.Cells(recordnow - 997, 1).value = Sheets("Input").Range("idpoin").value
.Cells(recordnow - 997, 3).value = caripoin + .Cells(recordnow - 997,
3).value
End With
End If
End Sub
- fungsinya adalah mengecek jika ada nota yang masih utang, maka poin belum
akan di tambahkan ke sheet POIN.. (itulah mengapa di sheet Data kolom P
masih menjadi arsip untuk penambahan poin piutang)

Jadi ketika dengan menambahkan fitur Pivot Tabel, akan merubah banyak kode
yang sudah saya coba buat sebelumnya. Karena setiap harinya ada transaksi
yang di lakukan oleh client baru dengan nama baru, maka saya berasumsi
lebih banyak record database daripada memperbanyak formula atau fitur
lainnya. Karena jika dengan menggunakan formula, otomatis kita harus
mengcopykan formula dari cell awal sampai tak terhingga, dan untuk Pivot
Tabel saya benar2 belum mengerti. Maka yang saya harapkan bantuan untuk
membuat kode untuk mencari poin di row mana saja berdasarkan kriteria
tanggal dan nama yang telah jatuh tempo di sheet data untuk dikurangkan
dengan total akumulasi poin pada sheet poin.

Maaf kalo telah merepotkan, dan kalau kode diatas agak belepotan mohon
diperbaiki
Trims

2013/9/22 Mr. Kid <mr.nmkid@gmail.com>

> **
>
>
> Hai Bayu Arsyad,
>
> File terlampir masih belum pakai VBA.
> Formula sederhana disisi data kemudian di-summary dengan pivot table,
> untuk data sampai 900ribu record masih akan terasa ringan.
> Coba saja untuk data sampai 900ribu record.
>
> Wassalam,
> Kid.
>
>
>
> 2013/9/22 Bayu Arsyad <ske8ay@gmail.com>
>
>> **
>>
>>
>> Trims Mr. Kid
>> Untuk hasilnya sudah sesuai harapan, tetapi dalam hal teknisnya saya
>> mengharapkan menggunakan VBA. Karena jika datanya sudah ribuan proses
>> komputer akan lelet jika menggunakan formula sumproduct yang dicopykan
>> sampe baris xxxx.
>>
>> Saya mencoba menggunakan proses loop dengan logika cari dulu baris
>> pertama pada tanggal 90 hari kebelakang dari tanggal hari ini, kemudian
>> cari nama yang mendapatkan poin pada baris pertama tanggal tersebut. Lalu
>> kurangkan total poin dengan poin yang telah diperoleh pada tanggal
>> tersebut. Lalu lanjutkan dengan baris berikutnya. (tanggal yang sama tetapi
>> nama client yang beda lagi)
>> Tapi hasil percobaan saya yang di proses hanya baris pertamanya terus.
>> Belum begitu mudeng dengan syntax2 loop.... :(
>>
>> File terlampir sudah disempitkan hanya transaksi untuk 2 nama yang sudah
>> jatuh tempo
>> Harap Mr. Kid dan kawan2 bisa berikan pencerahan
>> Trims
>>
>>
>> 2013/9/22 Mr. Kid <mr.nmkid@gmail.com>
>>
>> **
>>>
>>>
>>>
>>> Hai Bayu Arsyad,
>>>
>>> Jumlah hari masa berlaku yang telah dilalui suatu nilai poin (yang
>>> dimulai sejak 1 hari setelah tanggal transaksi) adalah tanggal hari ini
>>> dikurangi tanggal transaksi.
>>> Jika masa berlaku adalah 90 hari, berarti jumlah hari masa berlaku yang
>>> telah dilalui lebih dari masa berlaku 90 hari tidak perlu dihitung dalam
>>> total poin. Artinya, yang dihitung dalam total poin adalah seluruh poin
>>> milik satu client yang masa berlaku yang telah dilalui masih kurang dari
>>> atau sama dengan (<=) masa berlaku 90 hari.
>>> Dengan demikian, maka ada tuntutan terhadap tabel data agar berisi
>>> seluruh data transaksi minimal dalam 90 hari terakhir.
>>>
>>> File terlampir.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2013/9/20 Bayu Arsyad <ske8ay@gmail.com>
>>>
>>>> **
>>>>
>>>>
>>>> Dear master2 excel
>>>>
>>>> Saya punya database transaksi, dimana para pelanggan akan mendapatkan
>>>> poin pada tiap kali transaksinya. Saya ingin poin tersebut mempunyai masa
>>>> berlaku, apabila pada berapa bulan berikutnya yang telah kita tentukan
>>>> sendiri, poin yang didapatkan pada waktu yang lalu, otomatis akan hilang
>>>> dengan sendirinya ketika masa berlaku telah tiba.
>>>> Agar lebih jelasnya, mohon lihat file terlampir
>>>>
>>>> Trims pada master2 yang akan membantu
>>>>
>>>>
>>>
>>
>>
>> --
>> Best Regard
>>
>>
>
>

--
Best Regard

Sun Sep 22, 2013 4:13 am (PDT) . Posted by:

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

hehehehehe...

Pivot table bisa diletakkan disheet lain. Setiap ada perubahan pada data
(bertambah, berkurang, berganti nilai), cukup lakukan refresh pivot table
(bisa di refresh melalui VBA juga), selama data source pivot table bisa
selalu merujuk ke seluruh tabel (termasuk header).

Excel memiliki fitur bernama Excel Table (ada di ribbon Home) yang bisa
membuat Anda tidak perlu repot meng-copy formula ke semua baris Excel.
Setiap penambahan data dibaris baru, akan serta merta diatur oleh Excel
Table untuk di-copy-kan formulanya, selama satu kolom itu berisi formula
yang sama bunyinya dan hanya berbeda karena rujukan rangenya saja.

Proses input Anda dengan VBA, entry manual, copy paste dari data lainnya,
get external data dari database engine seperti oracle pun akan membuat
fitur Excel table bisa berkembang sesuai kebutuhan.

Jika ingin otomatis pivot table ter-refresh setiap kali ada data baru, maka
gunakan event worksheet change. Isi event tersebut dengan proses refresh
pivot table.

Contohnya file terlampir. Coba anda isi record baru sampai kolom poinnya
juga terisi atau ubah nilai poin salah satu record yang ada. Kemudian lihat
sheet pivot table (pastikan macro security di-enable).

btw,
boleh tanya,
Setiap proses VBA yang Anda buat, ada berapa record ?
Satu record masuk lalu di jalankan VBA Anda atau memungkinkan langsung
banyak record sekali entry dan diproses dengan VBA yang sama ?
Hal ini penting diketahui dalam membangun proses VBA yang Anda maksud,
karena akan mengarahkan pendekatan yang berbeda antara record-per-record
dengan sekaligus banyak record. Pastinya, apapun bentuknya, sehari pasti
bisa berulang kali dijalankan.

Wassalam,
Kid.

2013/9/22 Bayu Arsyad <ske8ay@gmail.com>

> **
>
>
> Tambah bingung dengan Pivot Table.. hehehe
> Maksud saya Mr. Kid, record yang akan berubah hanya record di Sheet Poin
> saja, tanpa merubah tatanan database yang telah tersusun. Karena ada di
> sheets input saya menyisipkan kode
>
> Sub tambahpoin()
> recordnow = Sheets("Input").Range("idpoin").value
> With Sheets("poin")
> .Cells(recordnow - 997, 1).value =
> Sheets("Input").Range("idpoin").value
> .Cells(recordnow - 997, 2).value = Sheets("Input").Range("c8").value
> .Cells(recordnow - 997, 3).value = Sheets("Input").Range("c16").value
> + .Cells(recordnow - 997, 3).value
> End With
> End Sub
> untuk client yang dapatkan poin
>
> dan
> Sub kurangpoin()
> recordnow = Sheets("Input").Range("idpoin").value
> With Sheets("poin")
> .Cells(recordnow - 997, 1).value =
> Sheets("Input").Range("idpoin").value
> .Cells(recordnow - 997, 2).value = Sheets("Input").Range("c8").value
> .Cells(recordnow - 997, 3).value = .Cells(recordnow - 997, 3).value -
> Sheets("Input").Range("d16").value
> End With
> End Sub
> jika poin telah ditukar
>
> Kemudian di sheet data piutang saya menyisipkan kode
> Sub datapoinutang()
> With Sheets("datapiutang";)
> cekutang =
> Application.WorksheetFunction.IfError(Application.VLookup(Range("C14").value,
> Sheets("datapiutang";).Range("B5:K1000"), 10, False), "")
> End With
> With Sheets("data")
> criteria = Range("C14")
> Set cr = Sheets("Data").Range("I6:P10000")
> Set sr = Sheets("data").Range("P6:P10000")
> caripoin = Application.SumIf(cr, criteria, sr)
> End With
> 'MsgBox caripoin
> If cekutang <> 0 Then
> recordnow = Sheets("Input").Range("idpoin").value
> With Sheets("poin")
> .Cells(recordnow - 997, 1).value = Sheets("Input").Range("idpoin").value
> .Cells(recordnow - 997, 3).value = caripoin + .Cells(recordnow - 997,
> 3).value
> End With
> End If
> End Sub
> - fungsinya adalah mengecek jika ada nota yang masih utang, maka poin
> belum akan di tambahkan ke sheet POIN.. (itulah mengapa di sheet Data kolom
> P masih menjadi arsip untuk penambahan poin piutang)
>
> Jadi ketika dengan menambahkan fitur Pivot Tabel, akan merubah banyak kode
> yang sudah saya coba buat sebelumnya. Karena setiap harinya ada transaksi
> yang di lakukan oleh client baru dengan nama baru, maka saya berasumsi
> lebih banyak record database daripada memperbanyak formula atau fitur
> lainnya. *Karena jika dengan menggunakan formula, otomatis kita harus
> mengcopykan formula dari cell awal sampai tak terhingga, dan untuk Pivot
> Tabel saya benar2 belum mengerti.* Maka yang saya harapkan bantuan untuk
> membuat kode untuk mencari poin di row mana saja berdasarkan kriteria
> tanggal dan nama yang telah jatuh tempo di sheet data untuk dikurangkan
> dengan total akumulasi poin pada sheet poin.
>
> Maaf kalo telah merepotkan, dan kalau kode diatas agak belepotan mohon
> diperbaiki
> Trims
>
>
>

Sun Sep 22, 2013 3:53 am (PDT) . Posted by:

akhmad_bjb

Dear Mr. Kid

الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَِ
Problem saya B̶̲̥̅̊ïS̤̥̈̊ª ϑίselesaikan
Trims Mr. Kid



Rgrds,
A. Zainal H.

by Telkomsel BlackBerry®

-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 22 Sep 2013 15:17:27
To: BeExcel<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Data sebelum dan sesudah [1 Attachment]

Wa'alaikumussalam Wr. Wb.

Coba file terlampir.

Wassalamu'alaikum Wr. Wb.
Kid.



2013/9/22 A. Zainal H. <a_zainal_hilmi@yahoo.com>

> **
>
>
> لسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُl‎
>
> Dear All,
> Mohon Bantuannya bagaimana formula untuk mencari data sebagaiman file
> terlampir
> Atas bantuan & pencerahannya, saya ucapkan terimakasih
>
>
> وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> *Zainal*
>
>
>

GROUP FOOTER MESSAGE
=====================================================================
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar