Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
If *Total* make row white
Hi Ryan
This works fine on my machine. It turns the rows in Column E back to the normal uncoloured state. If you want it to be white like a ghost try something like this. Take care Marcus Option Explicit Option Compare Text Sub TotalColour() Dim lastrow As Long, j As Long lastrow = Cells(Rows.Count, 5).End(xlUp).Row For j = lastrow To 1 Step -1 If (Cells(j, 5).Value) Like "*Total*" Then Rows(j).Interior.ColorIndex = 2 End If Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
If *Total* make row white
Instead of looking at the .value, look at the .text:
If LCase(.Cells(j, 5).Text) Like LCase("*Total*") Then Or check for an error first: if iserror(.cells(j,5).value) then 'skip it else If LCase(.Cells(j, 5).Value) Like LCase("*Total*") Then 'do the work ... end if end if ryguy7272 wrote: Well, I just found the culprit; I have this in two cells (one of each): #VALUE! #VALUE! Total How can I compensate for this? Thanks, Ryan--- -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. "marcus" wrote: Hi Ryan This works fine on my machine. It turns the rows in Column E back to the normal uncoloured state. If you want it to be white like a ghost try something like this. Take care Marcus Option Explicit Option Compare Text Sub TotalColour() Dim lastrow As Long, j As Long lastrow = Cells(Rows.Count, 5).End(xlUp).Row For j = lastrow To 1 Step -1 If (Cells(j, 5).Value) Like "*Total*" Then Rows(j).Interior.ColorIndex = 2 End If Next End Sub . -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
If *Total* make row white | Excel Programming | |||
Make row white unless the value of a certain cell is 0 | Excel Discussion (Misc queries) | |||
How do I make a total sheet? | Charts and Charting in Excel | |||
EXCEL workbook is off-white, goes white in edit mode | Excel Discussion (Misc queries) | |||
Excel:I have15 #'s that total $65,000...which #'s make up $44,000 | Excel Worksheet Functions |