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
