Wa'alaikumussalam Wr. Wb.
Untuk penggunaan SumIFs di blok For Next Cetak Neraca yang berbunyi :
Application.WorksheetFunction.SumIfs(Sheets("BukuBesar").Range("I:I"),
Sheets("BukuBesar").Range("E:E"), Range("A" & N))
ganti dengan bunyi :
Application.WorksheetFunction.SumIfs(Sheets("BukuBesar").Range("I:I"),
Sheets("BukuBesar").Range("E:E"), *Sheets("Neraca").*Range("A" & N))
Jika ingin mencoba cara lain copy paste dan pasang formula, coba prosedur
berikut :
Public Sub Buat_Laporan_Neraca()
'berdasar formula yang sudah ada di tabel tabel perkiraan,
'sepertinya alur yang dibuat berasumsi bahwa tabel perkiraan selalu
tetap demikian
'dan selalu ter-sort berdasar kolom Keterangan yang memiliki urutan
item pertama selalu TB yang diikuti PL
Dim RecTB As Long 'jumlah item pertama tabel perkiraan, sebagai
penanda lokasi insert baris di tabel neraca
Application.ScreenUpdating = False 'turn off update
screen
Application.Calculation = xlCalculationAutomatic 'pastikan
calculation option automatic
Sheets("Neraca").Columns("a:b").ClearContents 'bersihkan target
(hapus hasil proses yang lalu)
With Sheets("TabelPerkiraan") 'pada tabel
perkiraan
RecTB = .Range("f2").Value 'simpan
jumlah record item pertama
.Range("a1").CurrentRegion.Resize(, 1).Offset(1, 1).Copy 'copy
kolom B mulai B2
End With 'selesai kerja
dengan tabel perkiraan
With Sheets("Neraca").Range("a1") 'pada tabel neraca
cell A1
.PasteSpecial xlPasteValues 'paste special
values ke kolom A
With .CurrentRegion.Offset(0, 1) 'pada kolom
B-nya
.Formula =
"=SumIf('BukuBesar'!E:E,'Neraca'!A1,'BukuBesar'!I:I)" 'pasang formula
SumIF ambil nilai BukuBesar
.Value =
.Value 'formula
di-values-ken
End With 'selesai kerja
di kolom B-nya
.Offset(RecTB).EntireRow.Insert 'lompat dari A1
sebanyak jumlah item pertama, lalu insert baris
End With 'selesai kerja di
tabel neraca pada cell A1
Application.ScreenUpdating = True 'turn on screen
update
End Sub
Wassalamu'alaikum Wr. Wb.
Kid.
2013/6/15 Sony Ario <[email protected]>
> **
>
>
> Assalamualaikum Be Excelers.
>
> Sebelumnya saya ucapkan terima kasih kepada Mr kid atas penjelasan nya di
> email saya yang terakhir. Pada akhir nya saya ambil cara pak De Premor.
> Hanya beda nya cara saya lebih konvensional saja.. :)
>
> Di email ini kembali lagi saya mohon bantuan kepada teman2 semua. Saya
> menghadapi masalah dengan Macro yang saya buat. Macro yang saya buat ini
> apabila saya link tombol "Buat Laporan Neraca" (di Module2) dengan Macro
> "Buat Laporan Neraca", dan saya klik tombol tersebut, Angka yang dihasilkan
> selalu 0 (Nol). Akan tetapi apabila saya jalankan macro tersebut melalui
> VBE (F5) angka total nya selalu muncul. Apakah ada yang salah dengan macro
> saya ? atau saya telah salah melakukan assign macro dengan cara meng-klik
> kanan pada tombol nya ?
>
> Masalah kedua adalah, masih pada macro tersebut, saya menggunakan
> worksheet function berupa rumus SUMIFS (Proses "Cetak Neraca" dan "Cetak
> Rugi Laba"). Kelihatan nya rumus nya jadi panjang ke kanan ya ? hehe..
> adakah cara nya supaya rumus tersebut bisa lebih ringkas penulisan nya ?.
>
> Terima kasih sebelumnya.
>
> Wassalam
> Sony
>
>
>
>
