maaf bu' siti , file attachnya koq ga bisa diunduh ya ...
--- In [email protected], siti Vi <setiyowati.d...@...> wrote:
>
> setiap nota diterbitkan, diinginkan data nota mengupdate data di tabel induk
> (hanya di kolom TERJUAL saja kan ??)
>
> cara yg telah ditunjukkan pada workbook (contoh kasus.xlsx) oleh Mr. Djadoel
> itu tidak bagus (maaf)
>
> sheet Nota:
> penggunaan fungsi sumproduct untuk total harga seharusnya tidak perlu karena
> cukup dengan perkalian biasa.
> rumus di kolom harga, tidak melibatkan nama baang (jika nama / kode barang
> diganti
> harga tidak ikut berganti)
>
> sheet Data Induk:
> pemindahan data dari nota ke sheet induk hanya dengan merujuk cells di sheet
> nota
> sedangkan Nota itu nantinya akan dihapus dan diganti dengan data baru.
>
> usul penyelesaian
> pemindahan data dari tabel nota ke tabel induk tidak dengan formula
> (yg pasti akan selalu menyamai cell sumbernya; juga ketka data cell sumber
> diganti)
> tetapi dengan makro, dan beberapa hal kecil yg dirincikan di bawah ini
>
> (1)
> Mengisi NOTA hanya cukup dengan mengisi Kolom KODE saja
>
> (2)
> Mengisi Kolom Kode Cukup dengan memilih salah satu ITEM dlm LIST
>
> (3)
> Item-List = muncul; jika dropdown button pada kolom Kode di klik
>
> (4)
> DropDownbutton ada kolom kode = muncul; jika cellnya di select
> (dropdownbutton dibuat dengan menu data > validation > list)
>
> Setelah mengisi nota: klik tombol [UPDATE Tabel Induk]
> = makro mengerjakan :
> data pada tabel nota KOLOM "Banyaknya" di akumulasikan
> (bukan hanya di-copy) ke kolom "TERJUAL" pada tabel Induk.
>
> Dengan cara ini data induk sudah selalu update, tetapi tidak akan
> ada sejarah nota, :
> <> nota pernah diterbitkan berapa kali,
> <> tgl berapa saja,
> <> bgman rincian per
> <> siapa customernya dst
> semua tidak dapat di runut-balik.
> (karena dari nota ke tabel induk tidak dicatat dulu di tabel transaksi.)
>
> siti Vi
> bluewater, 28dec2009
>
> ====
> Private Sub CommandButton1_Click()
> ' siti Vi / 28 des 2009
> Dim dInduk As Range, Nota As Range
> Dim kode, r As Long, n As Long, NotaRows As Integer
>
> ' menentukan dimensi danletak tabel-tabel
> Set Nota = Sheets("Nota").Range("B4").CurrentRegion.Offset(3, 0)
> Set Nota = Nota.Resize(Nota.Rows.Count - 3, Nota.Columns.Count)
> NotaRows = Nota.Rows.Count
> Set dInduk = Sheets("Data Induk").Range("b4").CurrentRegion.Offset(1, 0)
> Set dInduk = dInduk.Resize(dInduk.Rows.Count - 1, 4)
>
> ' mengisi+TAMBAH+kan data nota (khusus kolom 'banyaknya'
> ' ke tabel induk di kolom 'Terjual'
> For n = 1 To NotaRows
> kode = Nota(n, 1)
> For r = 1 To dInduk.Rows.Count
> If dInduk(r, 1) = kode Then
> dInduk(r, 5) = dInduk(r, 5) + Nota(n, 3) '<<---akumulasi
> End If
> Next r
> Next n
>
> 'menghapus nota (hanya kolom 'kode' dan 'banyaknya' saja)
> Nota.Resize(NotaRows, 1).ClearContents
> Nota.Offset(0, 2).Resize(NotaRows, 1).ClearContents
>
> End Sub
> =====
>
>
>
> ----- Original Message -----
> From: Mr Djadoel
> To: [email protected]
> Sent: Sunday, December 27, 2009 7:35 PM
> Subject: [belajar-excel] Akumulasi Data
>
>
> salam hebat buat para master excel ..
> saya mohon bimbingannya ya ..
> saya punya masalah dengan pengakumulasian data ..
> harap maklum baru belajar ...
>
