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... ________________________________ From: hendrik karnadi <[email protected]> To: "[email protected]" <[email protected]> Sent: Saturday, November 17, 2012 10:45 AM Subject: Fw: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir Ada ralat pada kata2 di bawah ini : sehingga yang dicopy selalu No Rek Awal atau "1121"seharusnya sehingga yang dicopy selalu No Rek Akhir yang dipilih. Salam, Hendrik Karnadi ----- Forwarded Message ----- From: hendrik karnadi <[email protected]> To: "[email protected]" <[email protected]> Sent: Saturday, 17 November 2012, 7:56 Subject: Re: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir Dear Mr. Kid dan rekan2 Be-Excel, Pertama-tama saya ingin mengucapkan terima kasih kepada Mr. Kid yang telah memberikan "dongeng" yang begitu indah, khususnya fungsi debug.print nya Dongeng memang baik tidak hanya untuk anak2 melainkan juga untuk orang dewasa karena di dalam nya terdapat banyak solusi "yang tidak terpikirkan sebelumnya".Setelah dongeng tersebut saya renungkan dan bawa mimpi akhirnya "terlihat" solusinya yang seakan-akan nun jauh di sana padahal ada di depan mata. Namun untuk tidak mengulangi kekeliruan yang sama yaitu "nafsu" untuk memecahkan masalah secara instan, saya ajak rekan2 Be-Excel untuk menjadikan kasus ini sebagai pembelajaran dan langkah awal untuk belajar "logika" programming. Tips untuk menyelesaikan masalah ini adalah posisi kita pada saat melakukan sortir dan penempatan hasil sortir sehingga yang dicopy selalu No Rek Awal atau "1121" Selamat mencoba. Salam, Hendrik Karnadi ________________________________ From: Mr. Kid <[email protected]> To: [email protected] Sent: Friday, 16 November 2012, 13:27 Subject: Re: [belajar-excel] Looping yang tidak ngeloop pada bagian akhir Begini saja, Bagaimana kalau Pak Hendrik mencoba baris berikut, diletakkan tepat setelah baris For. debug.print "i:" & i , "shtAktif:" & range("g9").parent.name, "shtKriteria:" & range("a5").parent.name, "shtCopyTo:" & range("f8").parent.name pastikan window immediate pada VBE sudah diaktifkan (tampak). run prosedur dan lihat hasil di immediate window. baris info di atas bisa jadi memberi ide buat Pak Hendrik untuk berbuat sesuatu. jika ada kebingungan, coba off-kan dulu bagian pembuat sheet yang baru beserta proses copy paste valuesnya. run ulang prosedur dan lihat immediate lagi. kemudian on-kan lagi baris pembuat sheet baru beserta proses copy. run ulang prosedur dan lihat immediate lagi. baris info proses dengan debug.print di atas adalah salah satu cara mengikuti suatu proses dalam sebuah prosedur. jangan lupa untuk bagi-bagi penyebabnya dan tindakan yang diambil untuk membetulkannya ke milis. kalau masih belum nemu juga, coba re-post disertai salah satu copas hasil debug.print -nya.... selamat mencoba... Wassalam, Kid. 2012/11/16 hendrik karnadi <[email protected]> > >Dear Rekan2 Be-Excel, > >Dalam rangka mencoba menjawab pertanyaan seorang member "Bagaimana tambahan >codingnya jika GL nya tidak dicetak saja melainkan dibuatkan masing-masing >sheet", saya mencoba merevisi Code warna hijau dengan Code warna biru dalam >macro berikut ini: > > >Sub Lihat() > Dim rng As Range > Dim ttl As Range > Range("Counter") = Range("Mulai") > For i = Range("Mulai") To Range("Sampai") > 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 > If Range("Counter") = Range("Sampai") Then > Exit Sub > Else > Range("Counter") = Range("Counter") + 1 > End If > Next i >End Sub > > >dimana, ketika kita menekan tombol PREVIEW GL, fungsi PrintPreview diganti >dengan menampilkan sheet masing2 sesuai No Rek yang dipilihpada sheet GL(file >terlampir). > > >Permasalahan: >Looping pada No Rek akhir (No Rek 1123) koq bisa2nya mengambil No Rek Awal (No >Rek 1121) > > >Saya yakin dongeng Mr. Kid atau petuah Miss Jan Raisin dan para pakar lainnya >bisa menjelaskan hal ini. > > >Terima kasih. > > > >Salam, >Hendrik Karnadi > > > > > > >
