Dear Siti Vi, Terimakasih ya atas bantuannya... permasalahan yg saya hadapi terselesaikan dgn sempurna.. Ada satu formula yg saya rasa masih perlu ditambah, yakni:
rumus di baris 7 > (mohon dilihat di sheets 'idrtabel') > D7 > =-FLOOR($C7,D$3)/D$3 Formulasinya belum membaca jumlah uang yg kita miliki (D6), sehingga syarat D7 <= D6 (lebih kecil atau sama dengan) belum terpenuhi. Seharusnya shell D7 ini berlaku juga syarat seperti di shell E7.. Formula di E7 dan Macro utk kedua tombolnya sesuai sprt yg saya harapkan...hebat. Mohon pencerahaannya utk yg satu lagi ya --> D7 Thks VM DonaldS --- In [email protected], siti Vi <villager.g...@...> wrote: > > rumus di baris 7 > (mohon dilihat di sheets 'idrtabel') > D7 > =-FLOOR($C7,D$3)/D$3 > E7 > =-IF(FLOOR($C7+SUMPRODUCT($D$3:D$3,$D7:D7),E$3)/E$3>E6,E6,-FLOOR ($C7+SUMPRODUCT($D$3:D$3,$D7:D7),E$3)/E$3) > bisa dicopy-paste ke cells kanannya s/d o7 > P7 > (belum tahu maksudnya) > > makro untuk dua tombol (withdraw dan depo) > ditulis di module object sheet1 > > Private Sub CommandButton1_Click() > '--by siti Vi / 28feb2009 > Dim NewRow As Integer > NewRow = WorksheetFunction.CountA(Range("D24:D100")) + 1 > Range("D8:P8").Copy > Range("D24").Cells(NewRow, 1).PasteSpecial Paste:=xlPasteValues > Range("C7").ClearContents > End Sub > > Private Sub CommandButton2_Click() > '--by siti Vi / 28feb2009 > Dim NewRow As Integer > NewRow = WorksheetFunction.CountA(Range("D24:D100")) + 1 > Range("D12:P12").Copy > Range("D24").Cells(NewRow, 1).PasteSpecial Paste:=xlPasteValues > Range("D17:P17").Copy > Range("D24").Cells(NewRow, 1).PasteSpecial Paste:=xlPasteValues, > Operation:=xlAdd > Sheets("IDR Calculator").Range("H20").ClearContents > End Sub > > kalau ternyata tidak salah; mudah mudahan berkenan > (maaf belum di test...) > kalau salah dihapus saja... > > > On 2/25/09, Donald Sibarani <donald_sumur...@...> wrote: > > > > Hallo teman-teman dan team XL-Mania.. > > > > Saya mau membuat Tabel Cash Balancing yg otomatis. Saya lampirkan contoh > > tabelnya. > > Ada beberapa hal yg saya ingin dibantu / diberi pencerahan. > > > > *1.*Bagaimana cara kita mengambil hanya angka yg bulat saja * (tanpa > > melakukan pembulatan keatas atau kebawah)* dari hasil suatu bilangan yg > > ada pecahannya (desimal) misal: (126.000/100.000)=1,26 ----> yang saya > > inginkan adalah angka 1 nya saja, > > (12.450.000/100.000)=124,5 ----> yg saya inginkan adalah 124 nya saja. > > > > *2.* Bagaimana cara membuat macro untuk meng COPY suatu data dan kemudian > > di PASTE - Value pada suatu shell pada kolom yg sama yakni pada baris paling > > terakhir yg kosong. Dimana macro tsb di asign pada sebuah command botton. > > Tujuannya utk membuat arsip secara berurutan. Jadi tidak kerja manual. > > > > *3.* Inti dari tabel ini adalah: utk memudah kan kita dlm melakukan > > pekerjaan teller/cashier. > > misal: Jika ada *penarikan tunai*, maka kita hanya memasukkan jumlah angka > > yg mau ditarik saja. Setelah itu XL akan menunjukkan kpd kita pecahan/denom > > uang berapa saja yg harus dikeluarkan berikut jumlah lembarnya. Tentu sesuai > > dengan jumlah uang yg ada, artinya tidak boleh melebihi stock uang yg kita > > miliki. > > Demikian jg kalau ada *setoran tuani*, maka kita hanya memasukan jumlah > > uang yg akan disetor (yg tertulis pada slip setor) kemudian kita jg > > memasukkan jumlah phisik (lembar/coin) sesuai denom nya masing2. Jika uang > > yg disetor lebih dari jmlh yg tertulis di slip, maka XL akan menghitung > > jumlah *kembalian*nya berikut denom dan jumlah uang yg harus kita > > keluarkan utk kembalian tsb. > > Sedangkan command botton (macro) tsb akan melakukan > > pencatatan/copy_paste_value semua uang yg telah dikeluarkan dan disetor > > secara berurutan (cashflownya). Command button di clik setiap satu transaksi > > selesai diproses. > > > > Untk lebih jelasnya ada penjelasan lebih detail di attachmentnya. Mohon > > teman-teman dan team XL-Mania kiranya bisa memberikan saya > > solusi/pencerahan. > > > > Terimasih dan sukes yaa.. > > Donald > > > > >
