Mr Kid, terima kasih respond nya. Kelihatan nya di macro menggunakan Advance Filter yah ?
pertanyaan saya : 1. Object Sheet1 itu yg mana ya ? kok bisa ada kriteria nya yg di K2 & L2 ? 2. Apa beda fungsi Format$ dengan Format yg biasa itu ? 3. dan ada fungsi refresh Pivot Table di event Form Initialize, sheet nya yg mana ? Hehehe... saya khawatir ilmu saya belum cukup nih untuk menerima penjelasan Mr. Kid :D 2013/7/14 Mr. Kid <[email protected]> > ** > > > hehehe... > > kalau seperti file terlampir bagaimana ? > > maaf ya kalau ndak sesuai harapan, soale saya masuk regunya yang rada ogah > pake loop kalau ndak terpaksa... > > hik..hik..hik... jadi ingat mbake, > pernah debat japri gara-gara loop... > > Wassalam, > Kid. > > > > 2013/7/14 Sony Ario <[email protected]> > >> ** >> >> >> Yth. Teman2 Be Excel, >> >> Saat ini saya sedang ada masalah dengan permintaan atas format report >> terlampir. Report ini adalah report yang sehari2 saya gunakan untuk membuat >> sebuah laporan nanti nya. >> >> Masalah yang saya hadapi adalah : >> >> 1. Bagaimana macro nya untuk mengambil data dengan multi kriteria - bukan >> macro advance filter karena saya hanya butuh beberapa field saja. >> >> 2. Range data periode yang akan saya ambil, parameter nya berasal dari >> sebuah combo box di userform, dengan memasukan bulan ,tahun (dengan >> menggunakan karakter wildcard) dan subledger >> >> 3. Kolom Kriteria yg ingin saya ambil adalah : >> a. Periode >> b. Akun >> c. Subledger >> >> Contoh Output yang saya harapkan adalah : saya bisa tau berapa total >> untuk subledger tertentu dalam rentan periode tertentu. >> >> Berikut adalah potongan macro yang sudah saya coba. Tapi setelah di run, >> seperti nya loop nya berjalan terus. >> >> Mohon bantuan yah teman2... terima kasih sebelumnya. >> >> Salam >> >> Private Sub cmdCetakLaporan_Click() >> Application.ScreenUpdating = False >> >> Dim KodeLap, Subledger, PeriodeAwal, PeriodeAkhir As String >> Dim Tanggal, NoJnl, Periode, Keterangan, Akun As String >> Dim Umur, Total, Jumlah, i, n, r As Long >> >> KodeLap = Me.cboKodeLap.Value >> Subledger = Me.cboSubledger.Value >> PeriodeAwal = (cboBulanAwal.ListIndex + 1) & "/1/" & >> txtTahunAwal.Value >> PeriodeAkhir = (cboBulanAkhir.ListIndex + 1) & "/1/" & >> txtTahunAkhir.Value >> >> Select Case KodeLap >> Case "Piutang Usaha" >> Akun = "1.1.4" >> >> Case "Piutang Pinjaman Anggota" >> Akun = "1.1.5" >> >> Case "Piutang Pinjaman non Anggota" >> Akun = "1.1.6" >> >> Case "Hutang Usaha" >> Akun = "2.1.3" >> >> Case "Simpanan Anggota" >> Akun = "2.1.1" >> >> Case "SHU Bagian Anggota" >> Akun = "2.1.2" >> >> Case "Hutang Bank dan Lain-Lain" >> Akun = "2.1.4" >> End Select >> >> Sheets("tblGL").Activate >> Range("C2").Select >> >> Do Until ActiveCell.Value >= PeriodeAwal And ActiveCell.Value <= >> PeriodeAkhir And ActiveCell.Offset(0, 3).Value <> Akun >> ActiveCell.Offset(1, 0).Select >> Loop >> >> End Sub >> >> > >
