terimakasih atas bimbingan dan koreksinya ya bu' siti , maklum baru belajar jadinya ga karuan.
--- 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 ... >
