Need a macro that will find and highlight certain cells

[Pandrade]

Hello,
I need a VBA macro that will find and highlight cells in the salary columns that have values less than 10,000 and find and highlight values in the quantity columns that are more than 100 or less than 1. Can someone help me with this? The columns look like this but there are more than a thousand columns:

 

[mikerickson]

Have you looked at AutoFilter as a method to get your result?

 

[Pandrade]

I need a VBA macro that will look through the columns automatically because I have about 2,000 columns.

 

[Pandrade]

The difficulty with this is that the salary and quantity columns alternate and there are thousands of columns.

 

[snjpverma]

Try this code in a copy of your workbook as VBA doesn't have Undo option and I am a beginner in VBA.

Sub highlightrecords()
Dim lastrow As Long

lastrow = Cells.Find(What:="*", _
            After:=Range("A1"), _
            LookAt:=xlPart, _
            LookIn:=xlFormulas, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious, _
            MatchCase:=False).Row

Selection.AutoFilter
Range("A1").EntireRow.Find("Salary").Select
Selection.AutoFilter Field:=ActiveCell.Column, Criteria1:="<10000"
Range(ActiveCell.Offset(1), Cells(lastrow, ActiveCell.Column)).Interior.Color = rgbGreen

Selection.AutoFilter
Range("A1").EntireRow.Find("Quantity").Select
Selection.AutoFilter Field:=ActiveCell.Column, Criteria1:=">100", Operator:=xlOr, Criteria2:="<1"
Range(ActiveCell.Offset(1), Cells(lastrow, ActiveCell.Column)).Interior.Color = rgbGreen

End Sub

 

[Pandrade]

Thank you! I'll try it.