Selamat siang agan2 semua, ane lagi ngerjain macro pada excel tapi ngalamin kebuntuan, hehe
semoga ada yg bisa bantu ane / ngasih pencerahan untuk code ane.

ane mempunyai data dan data tersebut akan difilter berdasarkan nilainya , jika diatas 0 maka akan merubah warna cells nya



kemudian ane membuat 1 button dimana jika di klik akan memfilter data nilai diatas 100

Sub Button1_Click()



 RowsCount = Range("B6", Range("B6").End(xlDown)).Rows.Count

 

 Range("B6").Select



*disini looping row dari range B6 sampe selesai* 



 For x = 1 To RowsCount 

 If ActiveCell.Value >= 100 Then

 ActiveCell.Interior.ColorIndex = 4

 

 End If

 

 ActiveCell.Offset(1, 0).Select

 Next



End Sub

nah dari code tersebut difilter untuk down (row),

dan dsni ane ingin membuat filter tetapi ke samping, misal Row 6 saja
sehingga akan menjadi seperti berikut:



Adakah yang bisa bantu ane gimana solusinya agan2.. mohon bantuannya