Hi

I am working on programing VBA to make PatternDarkUpwardDiagonal of my bar
chart if date in range Rng7 more than 3 days

But I have error of date mismatch of S

Below is my code

Need your help to figure out the problem

Thanks
Daniel

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
Dim Rng7 as range
Dim S as integer
Dim Cnt7 as integer

For Each Rng7 In Range(.Cells(2, 6), .Cells(20, 6))

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

Pts.HasDataLabel = True


S = DateDiff("d", Now, Rng7.Value)


If S 3 Then

Pts.Fill.Patterned Pattern:=msoPatternDarkUpwardDiagonal

End If
Cnt7 = Cnt7 + 1

Next Rng7

I tried to duplicate your error and can't get the same error message with
excel 2003. Tried with diffeent types of erros and only get an overflow
error. I also noticed you don't have Cnt7 set to any value.

"Daniel" wrote:


Hi

I am working on programing VBA to make PatternDarkUpwardDiagonal of my bar
chart if date in range Rng7 more than 3 days

But I have error of date mismatch of S

Below is my code

Need your help to figure out the problem

Thanks
Daniel

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
Dim Rng7 as range
Dim S as integer
Dim Cnt7 as integer

For Each Rng7 In Range(.Cells(2, 6), .Cells(20, 6))

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

Pts.HasDataLabel = True


S = DateDiff("d", Now, Rng7.Value)


If S 3 Then

Pts.Fill.Patterned Pattern:=msoPatternDarkUpwardDiagonal

End If
Cnt7 = Cnt7 + 1

Next Rng7

Dim Cnt7 as integer

Don't know that if i change
Rng7.Value to Rng7.dataseries will work or not

Thanks
Daniel

"Joel" wrote:

I tried to duplicate your error and can't get the same error message with
excel 2003. Tried with diffeent types of erros and only get an overflow
error. I also noticed you don't have Cnt7 set to any value.

"Daniel" wrote:


Hi

I am working on programing VBA to make PatternDarkUpwardDiagonal of my bar
chart if date in range Rng7 more than 3 days

But I have error of date mismatch of S

Below is my code

Need your help to figure out the problem

Thanks
Daniel

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
Dim Rng7 as range
Dim S as integer
Dim Cnt7 as integer

For Each Rng7 In Range(.Cells(2, 6), .Cells(20, 6))

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

Pts.HasDataLabel = True


S = DateDiff("d", Now, Rng7.Value)


If S 3 Then

Pts.Fill.Patterned Pattern:=msoPatternDarkUpwardDiagonal

End If
Cnt7 = Cnt7 + 1

Next Rng7

Cnt7=1 was set

"Joel" wrote:

I tried to duplicate your error and can't get the same error message with
excel 2003. Tried with diffeent types of erros and only get an overflow
error. I also noticed you don't have Cnt7 set to any value.

"Daniel" wrote:


Hi

I am working on programing VBA to make PatternDarkUpwardDiagonal of my bar
chart if date in range Rng7 more than 3 days

But I have error of date mismatch of S

Below is my code

Need your help to figure out the problem

Thanks
Daniel

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
Dim Rng7 as range
Dim S as integer
Dim Cnt7 as integer

For Each Rng7 In Range(.Cells(2, 6), .Cells(20, 6))

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

Pts.HasDataLabel = True


S = DateDiff("d", Now, Rng7.Value)


If S 3 Then

Pts.Fill.Patterned Pattern:=msoPatternDarkUpwardDiagonal

End If
Cnt7 = Cnt7 + 1

Next Rng7