Conditional Formatting Multiple `IF Then's

Closed
indi visual Posts 2 Registration date Friday October 15, 2010 Status Member Last seen October 15, 2010 - Oct 15, 2010 at 09:32 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Oct 16, 2010 at 07:57 AM
Hello,
Quite simply, I would like to sort and filter names and dates (in specified colors given the specified dates).

What has taken me four days to figure out will likely take someone in this forum seconds.
I am very new to all of this, and I come modestly, respectfully, and appreciative for any help.
I have a few questions, but they are all connected, and with a few short answers I can have my entire sheet functioning beautifully.

Conditional formatting is the most simple way to do this. However, I have a =ColorFunction sub that conditional formatting would interfere with (because it is my understanding the "=ColorFunction" does not recognize colors highlighted conditionally (or with private subs either). For this reason, I have thrown together an alternative sub macro that creates the same result that my colorfunction formula could recognize.

<Sub Highlight_Date_Today_Red()
'searches finds and highlights today date in range in a specified color without the use of standard conditional formatting
' Highlight_Date_Today_Red Macro

Range("E4:E1000").Select
Application.FindFormat.Clear
'On Error Resume Next
Cells.Find(What:=DateValue(Today), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub>

It worked but it only highlighted one cell. Sad for me, and yes it is okay to laugh at my code (but at least give me credit for attempting this Frankenstein monstrosity) Lol

Here are my four questions:

How do I get it to highlight the current date today in the entire row accordingly?

As for multiple values, how would I get it to highlight yesterday's date in another the color the same way accordingly?

Next, how would I write this same code with something along the lines of:

If Range("H4") contains "/", then highlight cell ("E4") in this color?

Finally,

If Range("H4") contains no fill color, then highlight cell ("E4") in this color?


Any help on this would be super extremely appreciated you have no idea. I tried so many variations from so many forums for so long that it's time I sought help from someone. Anyone who can help me this will have a speedy response from me guaranteed. I will be monitoring any responses round the clock. Thanks in advance.

Quick note: I did make sure the dates I attempted to find and highlight were formatted as "date cells" and not "text cells".



3 responses

venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 811
Oct 15, 2010 at 10:09 PM
TOO MANY QUESTION.

to get other values use findnext.see help for this
You have RECOREDED the macro taking the steps. That is a very good way of learning how to WRITE a macro. Keep it up. in course of time you will know how to write a macro. Any doubt you can always post to the newsgroups. In RECORDING a macro you will find some arguments which are default and so they can be omitted in edited version

"do not present him/her a fish but teach him/her how to fish"
0
indi visual Posts 2 Registration date Friday October 15, 2010 Status Member Last seen October 15, 2010
Oct 15, 2010 at 10:57 PM
Thanks venkat1926.

I need something that searches for the current date, and then fills it in with red (but not with conditional formatting). As for the current date find next search, the code listed on the url you provided does not help me. If it does, I have no idea how to modify that code to work for what I need it for.

I need to find dates that are formatted like this: 10/15
0
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 811
Oct 16, 2010 at 07:57 AM
post a small extract of your data sheet and explain with reference to that data
0