Highlight Rows with Condition

[PMARI]

Hi Friends,

I desperately need a macro to Highlight /or separate rows when specific conditions met.

sample file enclosed. Link http://www.speedyshare.com/files/29614659/sample.xls

Any help highly appreciated.

With Best Regards,PM.

 

[Joe4]

Have you looked at Conditional Formatting?
Take a look in Excel's built-in Help files for details, explanations, and examples.

 

[villy]

Without looking at your sample...Supposed..

Sub Haylight()
if Range("A1") = "To be highlighted" then
Range("A1").EntireRow.Select
Selection.Interior.ColorIndex = 3 ' Red
EndIf
 
End Sub

 

[Trevor G]

Hi Friends,

I desperately need a macro to Highlight /or separate rows when specific conditions met.

sample file enclosed. Link http://www.speedyshare.com/files/29614659/sample.xls

Any help highly appreciated.

With Best Regards,PM.

I downloaded your sample and here is the code to filter the MANGO item plus the other items in the Customer list then paste onto Sheet 3

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Macro3()<br>    Range("D3").Select<br>    ActiveSheet.Range("$A$3:$E$30").AutoFilter Field:=4, Criteria1:="MANGO"<br>    ActiveSheet.Range("$A$3:$E$30").AutoFilter Field:=3, Criteria1:=Array("one", "RV", "sns"), Operator:=xlFilterValues<br>    Range("A3").CurrentRegion.Copy<br>    Sheets("Sheet3").Select<br>    ActiveSheet.Paste<br>    Sheets("Sheet1").Select<br>    Application.CutCopyMode = <SPAN style="color:#00007F">False</SPAN><br>    <br>    Range("A1").Select<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[PMARI]

Hi Trevor,

Thanks for your response. Column 3 customers name. What if other customer ordered for the item.? 1 need t separate orders with only " Mango"

 

[Trevor G]

If its only about the item then remove this line.

ActiveSheet.Range("$A$3:$E$30").AutoFilter Field:=3, Criteria1:=Array("one", "RV", "sns"), Operator:=xlFilterValues

So you would end up with this

Sub Macro3()
Range("D3").Select
ActiveSheet.Range("$A$3:$E$30").AutoFilter Field:=4, Criteria1:="MANGO"
Range("A3").CurrentRegion.Copy
Sheets("Sheet3").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Application.CutCopyMode = False

Range("A1").Select
End Sub

 

[PMARI]

Thanks again.

My aim is to separate orders having only one item "mango". see my sample only 4 lines, 3 orders having the item, that will be separated.