5 New Messages
Digest #1914
4a
Re: Fw: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir by "hendrik karnadi" hendrikkarnadi
Messages
Sun Nov 18, 2012 6:07 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Mardi,
Biasanya menggunakan event change milik si textbox. Pada prosedur event
tersebut diberi proses format number.
Contoh untuk textbox bernama txtPunyaku, pada event change-nya bisa diberi
perintah :
txtpunyaku.text = format$( txtpunyaku.text , "#,###" )
Tanda koma atau titik sebagai pemisah desimal akan mengikuti setting
regional komputer setempat (lihat di Windows Control Panel kan ya)
Wassalam,
Kid.
2012/11/18 Mardi <sumardiana596@gmail.com >
> **
>
>
> Dear all master excel,
> Mardi lagi nih biasa nanya melulu..he..
> Bisakah textbox di vba dibuat pemisah digit ribuan,dengan titik atau
> koma juga boleh ? Jadi kalo kursor kita pindah ketempat lain,angka di
> textbox itu sudah dipisahkan digit ribuan ,ataupun begitu nulis langsung
> muncul pemisah .Maklum kalo dah lihat 0000000 suka salah input....he..he..
> Suwun
> mardi
> _
>
Biasanya menggunakan event change milik si textbox. Pada prosedur event
tersebut diberi proses format number.
Contoh untuk textbox bernama txtPunyaku, pada event change-nya bisa diberi
perintah :
txtpunyaku.text = format$( txtpunyaku.text , "#,###" )
Tanda koma atau titik sebagai pemisah desimal akan mengikuti setting
regional komputer setempat (lihat di Windows Control Panel kan ya)
Wassalam,
Kid.
2012/11/18 Mardi <sumardiana596@
> **
>
>
> Dear all master excel,
> Mardi lagi nih biasa nanya melulu..he..
> Bisakah textbox di vba dibuat pemisah digit ribuan,dengan titik atau
> koma juga boleh ? Jadi kalo kursor kita pindah ketempat lain,angka di
> textbox itu sudah dipisahkan digit ribuan ,ataupun begitu nulis langsung
> muncul pemisah .Maklum kalo dah lihat 0000000 suka salah input....he.
> Suwun
> mardi
> _
>
Sun Nov 18, 2012 6:16 am (PST) . Posted by:
"Mardi" hekerkampoeng
wuih bener...
Kesulitanku selalu terpecahkan berkat Master Kid
Terima kasih banyak Master
salam
mardi
On 18/11/2012 21:07, Mr. Kid wrote:
>
> Pak Mardi,
>
> Biasanya menggunakan event change milik si textbox. Pada prosedur
> event tersebut diberi proses format number.
> Contoh untuk textbox bernama txtPunyaku, pada event change-nya bisa
> diberi perintah :
> txtpunyaku.text = format$( txtpunyaku.text , "#,###" )
>
> Tanda koma atau titik sebagai pemisah desimal akan mengikuti setting
> regional komputer setempat (lihat di Windows Control Panel kan ya)
>
> Wassalam,
> Kid.
>
> 2012/11/18 Mardi <sumardiana596@gmail.com
> <mailto:sumardiana596@gmail.com >>
>
> Dear all master excel,
> Mardi lagi nih biasa nanya melulu..he..
> Bisakah textbox di vba dibuat pemisah digit ribuan,dengan titik atau
> koma juga boleh ? Jadi kalo kursor kita pindah ketempat lain,angka di
> textbox itu sudah dipisahkan digit ribuan ,ataupun begitu nulis
> langsung
> muncul pemisah .Maklum kalo dah lihat 0000000 suka salah
> input....he..he..
> Suwun
> mardi
>
> _
>
>
> _
Kesulitanku selalu terpecahkan berkat Master Kid
Terima kasih banyak Master
salam
mardi
On 18/11/2012 21:07, Mr. Kid wrote:
>
> Pak Mardi,
>
> Biasanya menggunakan event change milik si textbox. Pada prosedur
> event tersebut diberi proses format number.
> Contoh untuk textbox bernama txtPunyaku, pada event change-nya bisa
> diberi perintah :
> txtpunyaku.text = format$( txtpunyaku.text , "#,###" )
>
> Tanda koma atau titik sebagai pemisah desimal akan mengikuti setting
> regional komputer setempat (lihat di Windows Control Panel kan ya)
>
> Wassalam,
> Kid.
>
> 2012/11/18 Mardi <sumardiana596@
> <mailto:sumardiana596@
>
> Dear all master excel,
> Mardi lagi nih biasa nanya melulu..he..
> Bisakah textbox di vba dibuat pemisah digit ribuan,dengan titik atau
> koma juga boleh ? Jadi kalo kursor kita pindah ketempat lain,angka di
> textbox itu sudah dipisahkan digit ribuan ,ataupun begitu nulis
> langsung
> muncul pemisah .Maklum kalo dah lihat 0000000 suka salah
> input....he.
> Suwun
> mardi
>
> _
>
>
> _
Sun Nov 18, 2012 6:23 am (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Dear dhen.baguse,
Maaf, saya memang belum mendalami persoalan yang sedang anda hadapi karena belum mengikuti secara mendetail.
Mengutip pernyataan anda (warna biru) coba lihat kembali 2 kalimat kutipan dari jawaban saya:
"Mencoba menjawab sebagian pertanyaan anda......, kebetulan saya
sedang mengutak atik macro yang mungkin mirip dengan kebutuhan anda".
"Semoga dapat menjadi bahan renungan untuk pengembangan lebih lanjut".
Salam,
Hendrik Karnadi
________________________________
From: dhen.baguse <bagusejogja@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Sunday, 18 November 2012, 15:51
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
Salam Mas Hendri Karnadi khususnya dan master master lainnya umumnya,
mungkin saya salah menafsirkan pikiran saya dengan apa yang saya tuliskan. Kalau yang di lampirkan mas Hendri itu menhapus sheet dan yang saya tanyakan menghapus isi sheet yang lebih dari 1 sheet dalam workbook. Coding yang sudah ada (sharing dari Miss Jan di milis belajar excel juga) sbb :
If ws.Name <> "Input" Then
Kalau dari sepenggal koding tersebut menerangkan bahwa data yang akan dihapus selain sheet "input", nah... bagimana menambahi di coding tersebut agar tidak hanya sheet "input" saja, melaninkan ada sheet lainnya. saya coba menambahkan tetapi pasti erorr:)
terimakasih atas semuanya
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Sunday, November 18, 2012 2:07 PM
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
Dear dhen.baguse,
Mencoba menjawab sebagian pertanyaan anda (warna merah), kebetulan saya sedang mengutak atik macro yang mungkin mirip dengan kebutuhan anda.
Macro dalam file terlampir terdiri dari dua bagian:
1. Membuat daftar sheet dalam suatu file (Range("A1:A8"))
2. Menghapus sheet selain sheet yang disebut dalam Range("B1:B3")
Semoga dapat menjadi bahan renungan untuk pengembangan lebih lanjut.
Salam,
Hendrik Karnadi
________________________________
Maaf, saya memang belum mendalami persoalan yang sedang anda hadapi karena belum mengikuti secara mendetail.
Mengutip pernyataan anda (warna biru) coba lihat kembali 2 kalimat kutipan dari jawaban saya:
"Mencoba menjawab sebagian pertanyaan anda......, kebetulan saya
sedang mengutak atik macro yang mungkin mirip dengan kebutuhan anda".
"Semoga dapat menjadi bahan renungan untuk pengembangan lebih lanjut".
Salam,
Hendrik Karnadi
____________
From: dhen.baguse <bagusejogja@
To: "belajar-excel@
Sent: Sunday, 18 November 2012, 15:51
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
Salam Mas Hendri Karnadi khususnya dan master master lainnya umumnya,
mungkin saya salah menafsirkan pikiran saya dengan apa yang saya tuliskan. Kalau yang di lampirkan mas Hendri itu menhapus sheet dan yang saya tanyakan menghapus isi sheet yang lebih dari 1 sheet dalam workbook. Coding yang sudah ada (sharing dari Miss Jan di milis belajar excel juga) sbb :
If ws.Name <> "Input" Then
Kalau dari sepenggal koding tersebut menerangkan bahwa data yang akan dihapus selain sheet "input", nah... bagimana menambahi di coding tersebut agar tidak hanya sheet "input" saja, melaninkan ada sheet lainnya. saya coba menambahkan tetapi pasti erorr:)
terimakasih atas semuanya
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Sunday, November 18, 2012 2:07 PM
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
Dear dhen.baguse,
Mencoba menjawab sebagian pertanyaan anda (warna merah), kebetulan saya sedang mengutak atik macro yang mungkin mirip dengan kebutuhan anda.
Macro dalam file terlampir terdiri dari dua bagian:
1. Membuat daftar sheet dalam suatu file (Range("A1:A8"
2. Menghapus sheet selain sheet yang disebut dalam Range("B1:B3"
Semoga dapat menjadi bahan renungan untuk pengembangan lebih lanjut.
Salam,
Hendrik Karnadi
____________
Sun Nov 18, 2012 7:05 am (PST) . Posted by:
"Emi" emilestariklcc
Terima kasih Pak Kid, udah berhasil sesuai harapan.
Emi Lestari
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Sunday, November 18, 2012 6:21 PM
Subject: Re: [belajar-excel] Menggantikan formula dengan makro
Ops sorry, ternyata lastwor beneran lastrow yang sudah ada datanya.
Kalau gitu ubah dari :
If Sheet15.Range("c28").Value <> Sheet15.Range("b28").Value Then
LastRow.Offset(1, -1).Value = Application.WorksheetFunction.Max( _
LastRow.Offset(1 - LastRow.Row, -1).Resize(LastRow.Row - 1, 1) _
) + 1
Sheet15.Range("c28").Value = "'" & Sheet15.Range("b28").Value
End If
jadi :
If Sheet15.Range("c28").Value <> Sheet15.Range("b28").Value Then
LastRow.Offset(1, -1).Value = Application.WorksheetFunction.Max( _
LastRow.Offset(1 - LastRow.Row, -1).Resize(LastRow.Row, 1) _
) + 1
Sheet15.Range("c28").Value = "'" & Sheet15.Range("b28").Value
End If
Baris itu digunakan untuk hitung nilai maksimum nomor urut sheet16 mulai baris 1 excel sampai baris terakhir data lalu ditambah dengan 1, ketika di sheet15 ada perbedaan isi antara c28 dengan b28.
Wassalam,
Kid.
2012/11/18 Emi <emilestariklcc@yahoo.com >
>
>Pak Kid,
>
>
>Makro ini tidak berhasil jika sheet tujuan belum pernah diiisi., kecuali ada value di cell B2.
>
>
>Diharapkan dapat dijelaskan apakah maksud offset dan lastRow dalam kasus ini.
>
>
>Terima kasih
>
>
>Emi Lestari
>
>
>
>
>________________________________
> From: Mr. Kid <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Sunday, November 18, 2012 12:05 PM
>Subject: Re: [belajar-excel] Menggantikan formula dengan makro
>
>
>
>
>Coba setelah set lastrow diberi :
> If Sheet15.Range("c28").Value <> Sheet15.Range("b28").Value Then
> LastRow.Offset(1, -1).Value = Application.WorksheetFunction.Max( _
> LastRow.Offset(1 - LastRow.Row, -1).Resize(LastRow.Row - 1, 1) _
> ) + 1
> Sheet15.Range("c28").Value = "'" & Sheet15.Range("b28").Value
> End If
>
>
>Wassalam,
>Kid.
>
>
>2012/11/18 Emi <emilestariklcc@yahoo.com >
>
>
>>
>>Dear Teman dan Guru BeExcel,
>>
>>
>>Saya ingin mempelajari bagaimana No Urut di Kolom A tidak lagi bergantung kepada kolom bantu, tetapi otomatis muncul di saat data ini di transfer dari sheet data entry.
>>
>>Filenya dilampirkan.
>>
>>
>>Terima kasih.
>>
>>
>>Emi Lestari
>>
>>
>>
>>No Urut Doc Date Post Date DT Currency
>>1 02112012 18112012 KA USD
>> 02112012 18112012
>> 02112012 18112012
>> 02112012 18112012
>> 02112012 18112012
>>2 02112012 18112012 SJ
>> 02112012 18112012
>>3 02112012 18112012 SJ USD
>> 02112012 18112012
>> 02112012 18112012
>> 02112012 18112012
>>4 08112012 16112012 KA USD
>> 08112012 16112012
>>,=IF( LEFT(AA15, LEN(AA15) -1 )<>LEFT( AA14, LEN( AA14 )-1 ), MAX( A$1:A14 ) +1, "" )
>
>
>
Emi Lestari
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Sunday, November 18, 2012 6:21 PM
Subject: Re: [belajar-excel] Menggantikan formula dengan makro
Ops sorry, ternyata lastwor beneran lastrow yang sudah ada datanya.
Kalau gitu ubah dari :
If Sheet15.Range(
LastRow.Offset(
LastRow.Offset(
) + 1
Sheet15.Range(
End If
jadi :
If Sheet15.Range(
LastRow.Offset(
LastRow.Offset(
) + 1
Sheet15.Range(
End If
Baris itu digunakan untuk hitung nilai maksimum nomor urut sheet16 mulai baris 1 excel sampai baris terakhir data lalu ditambah dengan 1, ketika di sheet15 ada perbedaan isi antara c28 dengan b28.
Wassalam,
Kid.
2012/11/18 Emi <emilestariklcc@
>
>Pak Kid,
>
>
>Makro ini tidak berhasil jika sheet tujuan belum pernah diiisi., kecuali ada value di cell B2.
>
>
>Diharapkan dapat dijelaskan apakah maksud offset dan lastRow dalam kasus ini.
>
>
>Terima kasih
>
>
>Emi Lestari
>
>
>
>
>___________
> From: Mr. Kid <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Sunday, November 18, 2012 12:05 PM
>Subject: Re: [belajar-excel] Menggantikan formula dengan makro
>
>
>
>
>Coba setelah set lastrow diberi :
> If Sheet15.Range(
> LastRow.Offset(
> LastRow.Offset(
> ) + 1
> Sheet15.Range(
> End If
>
>
>Wassalam,
>Kid.
>
>
>2012/11/18 Emi <emilestariklcc@
>
>
>>
>>Dear Teman dan Guru BeExcel,
>>
>>
>>Saya ingin mempelajari bagaimana No Urut di Kolom A tidak lagi bergantung kepada kolom bantu, tetapi otomatis muncul di saat data ini di transfer dari sheet data entry.
>>
>>Filenya dilampirkan.
>>
>>
>>Terima kasih.
>>
>>
>>Emi Lestari
>>
>>
>>
>>No Urut Doc Date Post Date DT Currency
>>1 02112012 18112012 KA USD
>> 02112012 18112012
>> 02112012 18112012
>> 02112012 18112012
>> 02112012 18112012
>>2 02112012 18112012 SJ
>> 02112012 18112012
>>3 02112012 18112012 SJ USD
>> 02112012 18112012
>> 02112012 18112012
>> 02112012 18112012
>>4 08112012 16112012 KA USD
>> 08112012 16112012
>>,=IF( LEFT(AA15, LEN(AA15) -1 )<>LEFT( AA14, LEN( AA14 )-1 ), MAX( A$1:A14 ) +1, "" )
>
>
>
Sun Nov 18, 2012 7:47 am (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Dear rekan2 Be-Excel,
Supaya tidak menimbulkan mimpi yang berkepanjangan (mumpung belum tidur), saya coba menjawab sendiri pertanyaan saya sesuai anjuran Mr. Kid.
Kembali ke Sheet GL (bahasa manusianya) saya terjemahkan menjadi Sheets("GL").Select.
Code selengkapnya adalah sbb:
Sub Lihat()
Dim rng As Range
Dim ttl As Range
Range("Counter") = Range("Mulai")
For i = Range("Mulai") To Range("Sampai")
Debug.Print "i:" & i, "shtAktif:" & Range("g9").Parent.Name, "shtKriteria:" & Range("a5").Parent.Name, "shtCopyTo:" & Range("f8").Parent.Name
'Sheets("GL").Select
Range(Range("G9"), Range("G9").End(xlDown)).ClearContents
Sheets("Jurnal").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A4:C5"), CopyToRange:=Range("A8:F8"), _
Unique:=True
Set rng = Range("A8").CurrentRegion
Set ttl = Range("A8").Offset(rng.Rows.Count)
ttl(, 4).Value = "Total"
ttl(, 5).FormulaR1C1 = "=Sum(R8C:R[-1]C)"
ttl(, 6).FormulaR1C1 = "=Sum(R8C:R[-1]C)"
Range("G9").FormulaR1C1 = "=R6C7+SUM(R8C5:RC[-2])-SUM(R8C6:RC[-1])"
If Range("A10") <> "" Then
Range("G9").AutoFill Destination:=Range("G9").Resize(rng.Rows.Count - 1, 1), Type:=xlFillDefault
End If
'rng.Resize(rng.Rows.Count + 1).PrintPreview
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("GL").Range("A6")
Sheets("GL").Columns("A:G").Copy
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Sheets("GL").Select
If Range("Counter") = Range("Sampai") Then
Exit Sub
Else
Range("Counter") = Range("Counter") + 1
End If
Next i
End Sub
Jika Code tersebut (Sheets("GL").Select) saya letakkan sebelum perintah pencabagan ini: If Range("Counter") = Range("Sampai") Then
Exit Sub
Else
Range("Counter") = Range("Counter") + 1
End If
maka isi dari jendela Immediate (hasil dari Code debug.print......) adalah sbb:
i:3 shtAktif:GL shtKriteria:GL shtCopyTo:GL
i:4 shtAktif:GL shtKriteria:GL shtCopyTo:GL
i:5 shtAktif:GL shtKriteria:GL shtCopyTo:GL
tetapi jika Code tersebut (Sheets("GL").Select- tanpa apostropi) saya letakkan sebelum perintahini:
Range(Range("G9"), Range("G9").End(xlDown)).ClearContents
Sheets("Jurnal").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A4:C5"), CopyToRange:=Range("A8:F8"), _
Unique:=True
maka isi dari jendela Immediate (hasil dari Code debug.print......) adalah sbb:
i:3 shtAktif:GL shtKriteria:GL shtCopyTo:GL
i:4 shtAktif:Bank Mulia shtKriteria:Bank Mulia shtCopyTo:Bank Mulia
i:5 shtAktif:Bank Sejahtera shtKriteria:Bank Sejahtera shtCopyTo:Bank Sejahtera
Mengapa tampilan pada jendela Immediate berbeda walaupun hasil pada Sheet terakhir (No Rek. 1123) tetap sama dan benar ?
Saya coba jawab sendiri...
Pada alternatif 1, Code tersebut (Sheets("GL").Select) dibuat sebelum Code debug.print sehingga pada saat i = 4 sheet yang tampil adalah Sheet GL
pada alternatif 2, Code tersebut (Sheets("GL").Select) dibuat setelah Code debug.print sehingga pada saat i = 4 sheet yang tampil adalah Sheet baru (Bank Mulia)
begitu pula pada saat i = 5
Hasil pada Sheet terakhir tetap sama dan benar, karena pada saat dilakukan sortir posisi Sheet aktif adalahSheet GL, sehingga yang dicopy ke Sheet terakhir (No Rek. 1123) adalah hasil sortir terakhir yang ada pada Sheet GL.
Untuk tidak menambah kebingungan, saya coba lampirkan kembali filenya.
Salam
Hendrik Karnadi
Catatan: Sebelum melaksanakan salah satu dari kedua alternatif tersebut sheet - sheet hasil proses (setelah Sheet GL) harus dihapus terlebih dahulu
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Sunday, 18 November 2012, 13:29
Subject: Re: Fw: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir
Kita coba tunggu rekan2 yang lain dulu Mr. Kid.
Insya Allah besok sore sudah akan saya sampaikan jawabannya.
Salam,
Hendrik Karnadi
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Sunday, 18 November 2012, 11:18
Subject: Re: Fw: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir
hehehe...
biasanya ada rasa puas tersendiri dalam menikmati hasil usaha sendiri.
mungkin Pak Hendrik bersedia menceritakan lebih lengkap kisah meminta kembalinya si sheet GL.
Wassalam,
Kid.
2012/11/17 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>Setelah terbangun dari mimpi baru saya temukan solusinya, yaitu selalu kembali ke Sheet("GL").
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>----- Forwarded Message -----
>From: Mr. Kid <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>
>Sent: Saturday, 17 November 2012, 22:32
>Subject: Re: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir
>
>
>
>hehehe...
>sebenarnya, kalau sejak awal dipandang rumit, biasanya akan ada banyak pintu solusi yang tertutup atau tak sadar jika pintu itu ada disitu. Jadinya malah jadi sedikit jumlah pilihan solusinya. Baris debug.print adalah salah satu usaha untuk mengembalikan cara pandang terhadap masalah agar jadi lebih simple dan tidak dipandang rumit.
>
>Semoga kedepan akan makin banyak BeExceller yang bersedia dengan sukarela belajar mencari error beserta solusinya. Kemudian rajin posting solusi pada kasus-kasus tentang error di script VBA.
>
>Wassalam,
>Kid.
>
>
>
>
>2012/11/17 dhen.baguse <bagusejogja@yahoo.com >
>
>
>>
>>wah ternyata rumit juga ya, tapi mantap bener nih para master-master excel. Saya coba pelajari, jika ada pertanyakan nanti saya "lempar" kemaster-master lagi...
>>
>>
>>ayo kawan kita belajar bersama...tq para master...
>>
>>
>>
>>________________________________
>>
>>
>
>
>
Supaya tidak menimbulkan mimpi yang berkepanjangan (mumpung belum tidur), saya coba menjawab sendiri pertanyaan saya sesuai anjuran Mr. Kid.
Kembali ke Sheet GL (bahasa manusianya) saya terjemahkan menjadi Sheets("GL")
Code selengkapnya adalah sbb:
Sub Lihat()
Dim rng As Range
Dim ttl As Range
Range("Counter"
For i = Range("Mulai"
Debug.Print "i:" & i, "shtAktif:" & Range("g9").
'Sheets("GL"
Range(Range(
Sheets("Jurnal"
CriteriaRange:
Unique:=True
Set rng = Range("A8").
Set ttl = Range("A8").
ttl(, 4).Value = "Total"
ttl(, 5).FormulaR1C1 = "=Sum(R8C:R[
ttl(, 6).FormulaR1C1 = "=Sum(R8C:R[
Range("G9").
If Range("A10") <> "" Then
Range("G9").
End If
'rng.Resize(
Sheets.Add After:=Sheets(
ActiveSheet.
Sheets("GL")
Selection.PasteSpec
Selection.PasteSpec
Application.
Sheets("GL")
If Range("Counter"
Exit Sub
Else
Range("Counter"
End If
Next i
End Sub
Jika Code tersebut (Sheets("GL"
Exit Sub
Else
Range("Counter"
End If
maka isi dari jendela Immediate (hasil dari Code debug.print.
i:3 shtAktif:GL shtKriteria:
i:4 shtAktif:GL shtKriteria:
i:5 shtAktif:GL shtKriteria:
tetapi jika Code tersebut (Sheets("GL"
Range(Range(
Sheets("Jurnal"
CriteriaRange:
Unique:=True
maka isi dari jendela Immediate (hasil dari Code debug.print.
i:3 shtAktif:GL shtKriteria:
i:4 shtAktif:Bank Mulia shtKriteria:
i:5 shtAktif:Bank Sejahtera shtKriteria:
Mengapa tampilan pada jendela Immediate berbeda walaupun hasil pada Sheet terakhir (No Rek. 1123) tetap sama dan benar ?
Saya coba jawab sendiri...
Pada alternatif 1, Code tersebut (Sheets("GL"
pada alternatif 2, Code tersebut (Sheets("GL"
begitu pula pada saat i = 5
Hasil pada Sheet terakhir tetap sama dan benar, karena pada saat dilakukan sortir posisi Sheet aktif adalahSheet GL, sehingga yang dicopy ke Sheet terakhir (No Rek. 1123) adalah hasil sortir terakhir yang ada pada Sheet GL.
Untuk tidak menambah kebingungan, saya coba lampirkan kembali filenya.
Salam
Hendrik Karnadi
Catatan: Sebelum melaksanakan salah satu dari kedua alternatif tersebut sheet - sheet hasil proses (setelah Sheet GL) harus dihapus terlebih dahulu
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Sunday, 18 November 2012, 13:29
Subject: Re: Fw: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir
Kita coba tunggu rekan2 yang lain dulu Mr. Kid.
Insya Allah besok sore sudah akan saya sampaikan jawabannya.
Salam,
Hendrik Karnadi
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Sunday, 18 November 2012, 11:18
Subject: Re: Fw: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir
hehehe...
biasanya ada rasa puas tersendiri dalam menikmati hasil usaha sendiri.
mungkin Pak Hendrik bersedia menceritakan lebih lengkap kisah meminta kembalinya si sheet GL.
Wassalam,
Kid.
2012/11/17 hendrik karnadi <hendrikkarnadi@
>
>Setelah terbangun dari mimpi baru saya temukan solusinya, yaitu selalu kembali ke Sheet("GL").
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>----- Forwarded Message -----
>From: Mr. Kid <mr.nmkid@gmail.
>To: belajar-excel@
>
>Sent: Saturday, 17 November 2012, 22:32
>Subject: Re: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir
>
>
>
>hehehe...
>sebenarnya, kalau sejak awal dipandang rumit, biasanya akan ada banyak pintu solusi yang tertutup atau tak sadar jika pintu itu ada disitu. Jadinya malah jadi sedikit jumlah pilihan solusinya. Baris debug.print adalah salah satu usaha untuk mengembalikan cara pandang terhadap masalah agar jadi lebih simple dan tidak dipandang rumit.
>
>Semoga kedepan akan makin banyak BeExceller yang bersedia dengan sukarela belajar mencari error beserta solusinya. Kemudian rajin posting solusi pada kasus-kasus tentang error di script VBA.
>
>Wassalam,
>Kid.
>
>
>
>
>2012/11/17 dhen.baguse <bagusejogja@
>
>
>>
>>wah ternyata rumit juga ya, tapi mantap bener nih para master-master excel. Saya coba pelajari, jika ada pertanyakan nanti saya "lempar" kemaster-master lagi...
>>
>>
>>ayo kawan kita belajar bersama...tq para master...
>>
>>
>>
>>__________
>>
>>
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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