Alhamdulillah, sudah ketemu. Ternyata pakai step, jadi seharusnya :
For j = 0 To 11 Step 2
Range("L2:M2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 18 +
j).Value
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
ActiveSheet.Cells(9, 18 + j).Select
ActiveSheet.Paste
Next
Wassalam,
Tio
Tio Adi Bayu Adjie
02/21/2013 03:28 PM
To: belajar-excel@yahoogroups.com
cc:
Subject: Kode looping yang gagal
Dear Be-Exceller,
Saya punya data looping, setelah saya pakai for next, kok gak berhasil yah
?
Ini code VBA awal :
Range("R9").Select
Range("L3:M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 18).Value
Selection.Copy
ActiveSheet.Cells(9, 18).Select
ActiveSheet.Paste
Range("L3:M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 20).Value
Selection.Copy
ActiveSheet.Cells(9, 20).Select
ActiveSheet.Paste
Range("L3:M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 22).Value
Selection.Copy
ActiveSheet.Cells(9, 22).Select
ActiveSheet.Paste
Range("L3:M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 24).Value
Selection.Copy
ActiveSheet.Cells(9, 24).Select
ActiveSheet.Paste
Range("L3:M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 26).Value
Selection.Copy
ActiveSheet.Cells(9, 26).Select
ActiveSheet.Paste
Ini code VBA setelah pakai for next :
Dim i As integer
i=1
Range("R9").Select
For i=1 to 9
Range("L3:M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=ActiveSheet.Cells(8, 17+i).Value
Selection.Copy
ActiveSheet.Cells(9, 17+i).Select
ActiveSheet.Paste
i=i+2
Next
Tapi kok gagal yah ?
Ada yang salah dengan code looping saya ?
Terima kasih,
Wassalam,
Tio
