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>menulis:
> **
>
>
> Assalamualaikum Wr Wb.****
>
> ** **
>
> Saya sedang membuat sebuah template untuk kepentingan pembukuan di kantor.
> Pada ilustrasi terlampir, sejatinya user akan melakukan input jurnal
> padaTable 01.,
> kemudian akan di-review. Journal ini akan di-import ke ledger melaluiTable 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 terhadapTable
> 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****
>
>
>
re-Menghilangkan Row & Mengganti Angka_with_VBA.xlsb
Description: Binary data
