Mr. Kid, Seperti biasa, terima kasih atas respon nya. Sambil saya pelajari solusi yg diberikan, kl boleh bertanya, calculation automatic itu fungsi nya sbg apa ya ?
Salam Sony Powered by Telkomsel BlackBerry® -----Original Message----- From: "Mr. Kid" <[email protected]> Sender: [email protected] Date: Sat, 15 Jun 2013 23:27:14 To: BeExcel<[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] Help - Macro hanya berjalan lwt VBE 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 > > > >
