Alhamdulillah...terima kasih atas bantuannya Miss Jan Raisin. Saya akan coba untuk mengaplikasikan script-nya.
Wassalam, Ferry From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Jan Raisin Sent: Wednesday, March 20, 2013 11:58 AM To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] Menghilangkan Row & Mengganti Angka Wa'alaikumsalam wr. wb., pak Ferry, Jan coba bantu dengan vba saja ya.. kata mr Kid sih bisa menggunakan formula, tapi berhubung ilmu Jan belum mumpuni jadi belum ada bayangan solusi dengan formulanya. insya ALLAH jika mr Kid sudah ngumpul setorannya akan coba bantu solusi yang lain scriptnya ditulis di dalam sebuah modul: Option Explicit Sub HapusBarisGantiAngka() Dim lRow As Long, lData As Long, lHasil As Long Dim rngData As Range, rgData As Range Dim dNilai As Double Application.ScreenUpdating = False lRow = Cells(Rows.Count, 3).End(xlUp).Row Set rngData = Range(Cells(5, 3), Cells(lRow, 3)) For Each rgData In rngData lData = rgData.Row lHasil = Cells(Rows.Count, 8).End(xlUp).Row + 1 If rgData.Value <> 220110 Then Range(Cells(lData, 2), Cells(lData, 5)).Copy Cells(lHasil, 7).PasteSpecial xlPasteValues Application.CutCopyMode = False Else dNilai = Cells(lHasil - 1, 10).Value Cells(lHasil - 1, 10).Value = dNilai + Cells(lData, 5).Value End If Next rgData Application.ScreenUpdating = True End Sub lalu dijalankan dengan menekan sebuah tombol, untuk hasilnya bisa langsung dicoba pada file terlampir. Wassalam, -Miss Jan Raisin- Pada 19 Maret 2013 17.00, Ferry Rahdiansyah <frahdians...@paitonenergy.com<mailto:frahdians...@paitonenergy.com>> menulis: Assalamualaikum Wr Wb. Saya sedang membuat sebuah template untuk kepentingan pembukuan di kantor. Pada ilustrasi terlampir, sejatinya user akan melakukan input jurnal pada Table 01., kemudian akan di-review. Journal ini akan di-import ke ledger melalui Table 02 dengan menghilangkan salah satu accounting code tertentu (Pajak). Bagaimana cara untuk melakukan hal ini? Output yang sedang saya usahakan persis seperti Table 02; Menghilangkan komponen pajak, menaikkan secara otomatis row yang dibawahnya, kemudian mengganti angka jurnal pada baris pertama menjadi angka yang sama sebelum dipotong pajak (angka pada baris pertama di setiap journal). Sebelumnya saya menggunakan rumus sebagai berikut pada Table 02 terhadap Table 01 =if(C5="220110","",C5) Rumus tersebut berhasil menghilangkan account code tertentu meskipun akibatnya ada row yang kosong pada Table 02. (kurang rapi). Masalah saya temukan ketika hendak mengaplikasikan rumus terhadap angka karena selain menghilangkan angka, saya juga harus mengubah angka sesuai dengan angka pada baris pertama pada tiap2 jurnal. Barangkali ada diantara rekan-rekan disini yang berkenan memberikan pencerahan, formula excel apakah yang tepat?. Terima kasih sebelumnya. Wassalam, Ferry
