ขออนุญาตสอบถามเรื่องการใส่สีใน cell อัตโนมัติ หลังใช้ filter

[9KiTTi]

ขออนุญาตสอบถามเรื่องการใส่สีใน cell อัตโนมัติ หลังใช้ filter
ผมสร้างฟอร์มเพื่อทำการตรวจสอบข้อมูลโดยมีปุ่มสำหรับใช้ตรวจสอบค่าต่างๆแต่ต้องการให้หลังจากกดปุ่มตรวจสอบแล้ว ให้ใส่สีใน cell เป็นสีเหลืองหลังจากใช้ตัวกรองแล้ว ต้องทำอย่างไรครับ เพราะผมลองใช้ code แล้วไม่ทำงานครับ

Code: Select all

Private Sub btcheck1_Click()
    ActiveSheet.Range("$A$1:$D$100").AutoFilter Field:=4, Criteria1:=">35000", _
        Operator:=xlAnd
        Interior.Color = vbYellow
End Sub

Private Sub btcheck2_Click()
    ActiveSheet.Range("$A$1:$D$100").AutoFilter Field:=4, Criteria1:="<35000", _
        Operator:=xlOr, Criteria2:=" "
        Interior.Color = vbYellow
End Sub

ขอบพระคุณครับ

[puriwutpokin]

ลองดูตามนี้ครับ

Code: Select all

Private Sub btcheck1_Click()
Dim lr As Long
    lr = Range("d" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$A$1:$D$100").AutoFilter Field:=4, Criteria1:=">35000", _
        Operator:=xlAnd
    Range("d2:d" & lr).SpecialCells(xlCellTypeVisible).Interior.Color = vbYellow
End Sub
Private Sub btcheck2_Click()
Dim lr As Long
    lr = Range("d" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$A$1:$D$100").AutoFilter Field:=4, Criteria1:="<35000", _
        Operator:=xlOr, Criteria2:=" "
    Range("d2:d" & lr).SpecialCells(xlCellTypeVisible).Interior.Color = vbYellow
End Sub

[9KiTTi]

ขอบพระคุณมากครับ ใช้ได้แล้วครับ