COMPARE TODAY WITH DATE IN COLUMN

[Guest]

I want to compare today date with date in a column (column name:
"date_last_op") and fill the bar chart with pattern if > 3 days but alway
have error at
Set Rng2.Value = (DateDiff(TODAY, "date_last_op", "d"))

Don't know how to fix. Need your help. Please respond with your sugestion
thanks
Daniel

------------------------------------

DIM Rng2 As range
DIM Cnt2 AS interger
DIM S AS interger

For Each Rng2 In Range(.Cells(2, 6), .Cells(r, 6))

Set Pts = ActiveChart.SeriesCollection(1).Points(Cnt2)

Set Rng2.Value = (DateDiff(TODAY, "date_last_op", "d"))


If Rng2.Value > 3 Then


Pts.Fill.Patterned Pattern:=msoPatternLightUpwardDiagonal

End If
Cnt2 = Cnt2 + 1
Next Rng2

 

[Rick Rothstein \(MVP - VB\)]

I want to compare today date with date in a column (column name:

"date_last_op") and fill the bar chart with pattern if > 3 days but alway
have error at
Set Rng2.Value = (DateDiff(TODAY, "date_last_op", "d"))

Don't know how to fix. Need your help. Please respond with your sugestion

You are trying to use Excel worksheet function ordering on the VBA DateDiff
function... they are not the same... as well as a worksheet function (TODAY)
which doesn't exist in VBA The first argument in DateDiff is the Interval,
then the start (lowest) date, followed by the end (highest) date. Also,
TODAY does not exist in VBA... use either Date (which returns today's date
only) or Now (which returns today's date and time).

Rick

 

[Guest]

Thanks Rick
I should use date is good enough.
Another question:
How can I reset the function

Interior.ColorIndex

to begin color my bar chart again?
Thanks
Daniel

 

[Rick Rothstein \(MVP - VB\)]

You will need to post a separate question about that (I think this one will
get lost within this thread) as I have not dealt with charting in VBA
before... my post in this thread was simply a syntax comment.

Rick