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
Kasus.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
