7 New Messages
Digest #2420
Messages
Sun Jul 14, 2013 2:50 am (PDT) . Posted by:
agam_tole
Dear Master Belajar-Excel dan Sahabat
Saya ada kesulitan untuk menganalisa kesalahan dalam gambar yg saya lampirkan, kira2 itu kesalahannya terletak d mana y?
Maaf File Exclny terlalu besar untuk d lampirkan, jd saya hnya bs ksh screenshootnya saja...
Sebelumya Terima Kasih
Salam
Agam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
Saya ada kesulitan untuk menganalisa kesalahan dalam gambar yg saya lampirkan, kira2 itu kesalahannya terletak d mana y?
Maaf File Exclny terlalu besar untuk d lampirkan, jd saya hnya bs ksh screenshootnya saja...
Sebelumya Terima Kasih
Salam
Agam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
Sun Jul 14, 2013 3:05 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba persis setelah :
set rngfind=blabla
diberi script :
if rngfind is nothing then
exit sub
endif
Wassalam,
Kid.
2013/7/14 <agam_tole@yahoo.com >
> **
>
>
> Dear Master Belajar-Excel dan Sahabat
>
> Saya ada kesulitan untuk menganalisa kesalahan dalam gambar yg saya
> lampirkan, kira2 itu kesalahannya terletak d mana y?
> Maaf File Exclny terlalu besar untuk d lampirkan, jd saya hnya bs ksh
> screenshootnya saja...
>
> Sebelumya Terima Kasih
>
>
> Salam
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
>
set rngfind=blabla
diberi script :
if rngfind is nothing then
exit sub
endif
Wassalam,
Kid.
2013/7/14 <agam_tole@yahoo.
> **
>
>
> Dear Master Belajar-Excel dan Sahabat
>
> Saya ada kesulitan untuk menganalisa kesalahan dalam gambar yg saya
> lampirkan, kira2 itu kesalahannya terletak d mana y?
> Maaf File Exclny terlalu besar untuk d lampirkan, jd saya hnya bs ksh
> screenshootnya saja...
>
> Sebelumya Terima Kasih
>
>
> Salam
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
>
Sun Jul 14, 2013 4:46 am (PDT) . Posted by:
agam_tole
Terima kasih Mr. Kid
Sdh Jalan vbnya.. Tp data yg d paste tidak otomatis menghapus sndiri jika kita mencari data yg lain..
Salam Mr Kid
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Sun, 14 Jul 2013 17:04:53
To: BeExcel<belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Error Macro
Coba persis setelah :
set rngfind=blabla
diberi script :
if rngfind is nothing then
exit sub
endif
Wassalam,
Kid.
2013/7/14 <agam_tole@yahoo.com >
> **
>
>
> Dear Master Belajar-Excel dan Sahabat
>
> Saya ada kesulitan untuk menganalisa kesalahan dalam gambar yg saya
> lampirkan, kira2 itu kesalahannya terletak d mana y?
> Maaf File Exclny terlalu besar untuk d lampirkan, jd saya hnya bs ksh
> screenshootnya saja...
>
> Sebelumya Terima Kasih
>
>
> Salam
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
>
Sdh Jalan vbnya.. Tp data yg d paste tidak otomatis menghapus sndiri jika kita mencari data yg lain..
Salam Mr Kid
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Sun, 14 Jul 2013 17:04:53
To: BeExcel<belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Error Macro
Coba persis setelah :
set rngfind=blabla
diberi script :
if rngfind is nothing then
exit sub
endif
Wassalam,
Kid.
2013/7/14 <agam_tole@yahoo.
> **
>
>
> Dear Master Belajar-Excel dan Sahabat
>
> Saya ada kesulitan untuk menganalisa kesalahan dalam gambar yg saya
> lampirkan, kira2 itu kesalahannya terletak d mana y?
> Maaf File Exclny terlalu besar untuk d lampirkan, jd saya hnya bs ksh
> screenshootnya saja...
>
> Sebelumya Terima Kasih
>
>
> Salam
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
>
Sun Jul 14, 2013 5:28 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Bisa dijelaskan apa maksudnya ?
Wassalam,
Kid.
2013/7/14 <agam_tole@yahoo.com >
> **
>
>
> ** Terima kasih Mr. Kid
> Sdh Jalan vbnya.. Tp data yg d paste tidak otomatis menghapus sndiri jika
> kita mencari data yg lain..
>
> Salam Mr Kid
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Sun, 14 Jul 2013 17:04:53 +0700
> *To: *BeExcel<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Error Macro
>
>
>
> Coba persis setelah :
> set rngfind=blabla
>
> diberi script :
> if rngfind is nothing then
> exit sub
> endif
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2013/7/14 <agam_tole@yahoo.com >
>
>> **
>>
>>
>> Dear Master Belajar-Excel dan Sahabat
>>
>> Saya ada kesulitan untuk menganalisa kesalahan dalam gambar yg saya
>> lampirkan, kira2 itu kesalahannya terletak d mana y?
>> Maaf File Exclny terlalu besar untuk d lampirkan, jd saya hnya bs ksh
>> screenshootnya saja...
>>
>> Sebelumya Terima Kasih
>>
>>
>> Salam
>>
>> Agam
>> Sent from my BlackBerry®
>> powered by Sinyal Kuat INDOSAT
>>
>
>
>
Wassalam,
Kid.
2013/7/14 <agam_tole@yahoo.
> **
>
>
> ** Terima kasih Mr. Kid
> Sdh Jalan vbnya.. Tp data yg d paste tidak otomatis menghapus sndiri jika
> kita mencari data yg lain..
>
> Salam Mr Kid
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Sun, 14 Jul 2013 17:04:53 +0700
> *To: *BeExcel<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Error Macro
>
>
>
> Coba persis setelah :
> set rngfind=blabla
>
> diberi script :
> if rngfind is nothing then
> exit sub
> endif
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2013/7/14 <agam_tole@yahoo.
>
>> **
>>
>>
>> Dear Master Belajar-Excel dan Sahabat
>>
>> Saya ada kesulitan untuk menganalisa kesalahan dalam gambar yg saya
>> lampirkan, kira2 itu kesalahannya terletak d mana y?
>> Maaf File Exclny terlalu besar untuk d lampirkan, jd saya hnya bs ksh
>> screenshootnya saja...
>>
>> Sebelumya Terima Kasih
>>
>>
>> Salam
>>
>> Agam
>> Sent from my BlackBerry®
>> powered by Sinyal Kuat INDOSAT
>>
>
>
>
Sun Jul 14, 2013 5:03 am (PDT) . Posted by:
"Riki Tenardi" riki.tenardi2011
Mr.Kid
Bagaimana kalau datanya tidak konsisten -24
contoh
Daus 5 5 4 5 4 4 4 4 3 4 4 4
Riza 4 4 4 5 3 3 3 5 3 4 4 4
Riki 1 2 3 4 5 6 7 8 --> apakah di h3bisa juga pake formula ini ? =LEFT(B3,LEN(B3)-24)
soalnya saya dapat kasus yang penomorannya berbeda-beda
Terimakasih
----- Pesan yang Diteruskan -----
Dari: "ivanstats@yahoo.com " <ivanstats@yahoo.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 14 Juli 2013 15:42
Judul: Re: [belajar-excel] Re: Bagaimana Memisahkan Nama dan Angka
Â
Terima ksh Mr. Kid.
Akan saya coba ya Mr.
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
________________________________
From: "Mr. Kid" <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Sun, 14 Jul 2013 15:34:57 +0700
To: BeExcel<belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Re: Bagaimana Memisahkan Nama dan Angka
Â
Coba :
di H3 diberi formula : (ambil nama -> dari kiri sebanyak jumlah karakter data tanpa karakter-karakter angka)
=LEFT(B3,LEN(B3)-24)
di i3 diberi formula : (ambil angka dibelakang data nama berdasar jumlah kolom sejak nama)
=MID($B3,LEN($B3)-24+2*COLUMNS($H3:H3),2)*1
copy ke kanan (kolom angka lainnya) sampai T3.
kemudian copy formula h3:t3 ke baris dibawahnya
Jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik dua.
Wassalam,
Kid.
2013/7/14 ivan budiman <ivanstats@yahoo.com >
>Â
>Maaf attachment tertinggal. Trus hasil prinscreen tidak nampak ya?
>Hasil yang diinginkan juga saya masukan dalam attachment.
>Bagaimana cara memisahkannya agar tidak dilakukan manual ya?
>
>Terima kasih.
>
>
>
>
>Â
>Regards,
>M I B
>
>- thankfulness -
>
>
>________________________________
> From: ivan budiman <ivanstats@yahoo.com >
>To: belajar excel <belajar-excel@yahoogroups.com >
>Sent: Sunday, 14 July 2013, 14:50
>Subject: Bagaimana Memisahkan Nama dan Angka
>
>
>
>Selamat siang,
>Mohon bantuannya bagaimana memisahkan nama dan angka seperti data di attachment.
>misal data di attachment untuk baris pertama dari observasi sbb
>
>
>daus 5 5 4 5 4 4 4 4 3 4 4 4
>
>
>Nah nama dan angka2 di atas berada dalam 1 cell. Bagaimana caranya agar outputnya menjadi per nama n huruf masing2 per cell sbb :
>
>
>
>
>
>Mohon bantuannya.
>Terima kasih atas bantuannya
>
>Â
>Regards,
>M I B
>
>- thankfulness -
>
>
Bagaimana kalau datanya tidak konsisten -24
contoh
Daus 5 5 4 5 4 4 4 4 3 4 4 4
Riza 4 4 4 5 3 3 3 5 3 4 4 4
Riki 1 2 3 4 5 6 7 8 --> apakah di h3bisa juga pake formula ini ? =LEFT(B3,LEN(
soalnya saya dapat kasus yang penomorannya berbeda-beda
Terimakasih
----- Pesan yang Diteruskan -----
Dari: "ivanstats@yahoo.
Kepada: belajar-excel@
Dikirim: Minggu, 14 Juli 2013 15:42
Judul: Re: [belajar-excel] Re: Bagaimana Memisahkan Nama dan Angka
Â
Terima ksh Mr. Kid.
Akan saya coba ya Mr.
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
____________
From: "Mr. Kid" <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Sun, 14 Jul 2013 15:34:57 +0700
To: BeExcel<belajar-excel@
ReplyTo: belajar-excel@
Subject: Re: [belajar-excel] Re: Bagaimana Memisahkan Nama dan Angka
Â
Coba :
di H3 diberi formula : (ambil nama -> dari kiri sebanyak jumlah karakter data tanpa karakter-karakter angka)
=LEFT(B3,LEN(
di i3 diberi formula : (ambil angka dibelakang data nama berdasar jumlah kolom sejak nama)
=MID($B3,LEN(
copy ke kanan (kolom angka lainnya) sampai T3.
kemudian copy formula h3:t3 ke baris dibawahnya
Jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik dua.
Wassalam,
Kid.
2013/7/14 ivan budiman <ivanstats@yahoo.
>Â
>Maaf attachment tertinggal. Trus hasil prinscreen tidak nampak ya?
>Hasil yang diinginkan juga saya masukan dalam attachment.
>Bagaimana cara memisahkannya agar tidak dilakukan manual ya?
>
>Terima kasih.
>
>
>
>
>Â
>Regards,
>M I B
>
>- thankfulness -
>
>
>________
> From: ivan budiman <ivanstats@yahoo.
>To: belajar excel <belajar-excel@
>Sent: Sunday, 14 July 2013, 14:50
>Subject: Bagaimana Memisahkan Nama dan Angka
>
>
>
>Selamat siang,
>Mohon bantuannya bagaimana memisahkan nama dan angka seperti data di attachment.
>misal data di attachment untuk baris pertama dari observasi sbb
>
>
>daus 5 5 4 5 4 4 4 4 3 4 4 4
>
>
>Nah nama dan angka2 di atas berada dalam 1 cell. Bagaimana caranya agar outputnya menjadi per nama n huruf masing2 per cell sbb :
>
>
>
>
>
>Mohon bantuannya.
>Terima kasih atas bantuannya
>
>Â
>Regards,
>M I B
>
>- thankfulness -
>
>
Sun Jul 14, 2013 5:21 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Oh gitu,
coba
di H3 :
> array formula (akhiri menekan CTRL SHIFT ENTER)
=LEFT($B3,MATCH(1,1*ISNUMBER(1*MID($B3,ROW($1:$99),1)),0)-2)
> jika tidak ingin array formula, coba formula H3 :
=LEFT($B3,MATCH(1,*Index(*1*ISNUMBER(1*MID($B3,ROW($1:$99),1))*,0)*,0)-2)
di i3 : (bukan array formula)
=IFERROR(1*MID(SUBSTITUTE($B3,$H3,""),COLUMNS($H3:H3)*2,1),"")
lalu copy sampai T3
Kemudian copy H3:T3 ke record lainnya
Jika regional setting komputer setempat adalah Indonesia, ganti seluruh
karakter koma dengan karakter titik koma
Wassalam,
Kid.
2013/7/14 Riki Tenardi <riki.tenardi2011@yahoo.co.id >
> **
>
>
> Mr.Kid
>
> Bagaimana kalau datanya tidak konsisten -24
> contoh
>
> Daus 5 5 4 5 4 4 4 4 3 4 4 4
> Riza 4 4 4 5 3 3 3 5 3 4 4 4
> Riki 1 2 3 4 5 6 7 8 --> apakah di h3bisa juga pake formula ini ?
> =LEFT(B3,LEN(B3)-24)
>
> soalnya saya dapat kasus yang penomorannya berbeda-beda
>
> Terimakasih
>
> ----- Pesan yang Diteruskan -----
> *Dari:* "ivanstats@yahoo.com " <ivanstats@yahoo.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 14 Juli 2013 15:42
> *Judul:* Re: [belajar-excel] Re: Bagaimana Memisahkan Nama dan Angka
>
>
> Terima ksh Mr. Kid.
> Akan saya coba ya Mr.
>
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Sun, 14 Jul 2013 15:34:57 +0700
> *To: *BeExcel<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Re: Bagaimana Memisahkan Nama dan Angka
>
>
> Coba :
> di H3 diberi formula : (ambil nama -> dari kiri sebanyak jumlah karakter
> data tanpa karakter-karakter angka)
> =LEFT(B3,LEN(B3)-24)
>
> di i3 diberi formula : (ambil angka dibelakang data nama berdasar jumlah
> kolom sejak nama)
> =MID($B3,LEN($B3)-24+2*COLUMNS($H3:H3),2)*1
> copy ke kanan (kolom angka lainnya) sampai T3.
>
> kemudian copy formula h3:t3 ke baris dibawahnya
>
> Jika regional setting komputer setempat adalah Indonesia, ganti seluruh
> karakter koma dalam formula menjadi karakter titik dua.
>
> Wassalam,
> Kid.
>
>
>
> 2013/7/14 ivan budiman <ivanstats@yahoo.com >
>
> **
>
> Maaf attachment tertinggal. Trus hasil prinscreen tidak nampak ya?
> Hasil yang diinginkan juga saya masukan dalam attachment.
> Bagaimana cara memisahkannya agar tidak dilakukan manual ya?
>
> Terima kasih.
>
>
>
> Regards,
> M I B
>
> - thankfulness -
> ------------------------------
> *From:* ivan budiman <ivanstats@yahoo.com >
> *To:* belajar excel <belajar-excel@yahoogroups.com >
> *Sent:* Sunday, 14 July 2013, 14:50
> *Subject:* Bagaimana Memisahkan Nama dan Angka
>
> Selamat siang,
> Mohon bantuannya bagaimana memisahkan nama dan angka seperti data di
> attachment.
> misal data di attachment untuk baris pertama dari observasi sbb
>
> daus 5 5 4 5 4 4 4 4 3 4 4 4
>
> Nah nama dan angka2 di atas berada dalam 1 cell. Bagaimana caranya agar
> outputnya menjadi per nama n huruf masing2 per cell sbb :
>
>
> Mohon bantuannya.
> Terima kasih atas bantuannya
>
> Regards,
> M I B
>
> - thankfulness -
>
>
>
>
>
>
>
coba
di H3 :
> array formula (akhiri menekan CTRL SHIFT ENTER)
=LEFT($B3,MATCH(
> jika tidak ingin array formula, coba formula H3 :
=LEFT($B3,MATCH(
di i3 : (bukan array formula)
=IFERROR(1*MID(
lalu copy sampai T3
Kemudian copy H3:T3 ke record lainnya
Jika regional setting komputer setempat adalah Indonesia, ganti seluruh
karakter koma dengan karakter titik koma
Wassalam,
Kid.
2013/7/14 Riki Tenardi <riki.tenardi2011@
> **
>
>
> Mr.Kid
>
> Bagaimana kalau datanya tidak konsisten -24
> contoh
>
> Daus 5 5 4 5 4 4 4 4 3 4 4 4
> Riza 4 4 4 5 3 3 3 5 3 4 4 4
> Riki 1 2 3 4 5 6 7 8 --> apakah di h3bisa juga pake formula ini ?
> =LEFT(B3,LEN(
>
> soalnya saya dapat kasus yang penomorannya berbeda-beda
>
> Terimakasih
>
> ----- Pesan yang Diteruskan -----
> *Dari:* "ivanstats@yahoo.
> *Kepada:* belajar-excel@
> *Dikirim:* Minggu, 14 Juli 2013 15:42
> *Judul:* Re: [belajar-excel] Re: Bagaimana Memisahkan Nama dan Angka
>
>
> Terima ksh Mr. Kid.
> Akan saya coba ya Mr.
>
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Sun, 14 Jul 2013 15:34:57 +0700
> *To: *BeExcel<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Re: Bagaimana Memisahkan Nama dan Angka
>
>
> Coba :
> di H3 diberi formula : (ambil nama -> dari kiri sebanyak jumlah karakter
> data tanpa karakter-karakter angka)
> =LEFT(B3,LEN(
>
> di i3 diberi formula : (ambil angka dibelakang data nama berdasar jumlah
> kolom sejak nama)
> =MID($B3,LEN(
> copy ke kanan (kolom angka lainnya) sampai T3.
>
> kemudian copy formula h3:t3 ke baris dibawahnya
>
> Jika regional setting komputer setempat adalah Indonesia, ganti seluruh
> karakter koma dalam formula menjadi karakter titik dua.
>
> Wassalam,
> Kid.
>
>
>
> 2013/7/14 ivan budiman <ivanstats@yahoo.
>
> **
>
> Maaf attachment tertinggal. Trus hasil prinscreen tidak nampak ya?
> Hasil yang diinginkan juga saya masukan dalam attachment.
> Bagaimana cara memisahkannya agar tidak dilakukan manual ya?
>
> Terima kasih.
>
>
>
> Regards,
> M I B
>
> - thankfulness -
> ------------
> *From:* ivan budiman <ivanstats@yahoo.
> *To:* belajar excel <belajar-excel@
> *Sent:* Sunday, 14 July 2013, 14:50
> *Subject:* Bagaimana Memisahkan Nama dan Angka
>
> Selamat siang,
> Mohon bantuannya bagaimana memisahkan nama dan angka seperti data di
> attachment.
> misal data di attachment untuk baris pertama dari observasi sbb
>
> daus 5 5 4 5 4 4 4 4 3 4 4 4
>
> Nah nama dan angka2 di atas berada dalam 1 cell. Bagaimana caranya agar
> outputnya menjadi per nama n huruf masing2 per cell sbb :
>
>
> Mohon bantuannya.
> Terima kasih atas bantuannya
>
> Regards,
> M I B
>
> - thankfulness -
>
>
>
>
>
>
>
Sun Jul 14, 2013 5:28 am (PDT) . Posted by:
"Sony Ario"
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
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_
Application.
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.
Subledger = Me.cboSubledger.
PeriodeAwal = (cboBulanAwal.
PeriodeAkhir = (cboBulanAkhir.
txtTahunAkhir.
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("
Range("
Do Until ActiveCell.Value >= PeriodeAwal And ActiveCell.Value <=
PeriodeAkhir And ActiveCell.Offset(
ActiveCell.Offset(
Loop
End Sub
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar