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 dipilih pada
> 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
>
>
>
>
>
