Error data mismatch ??
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 |
Error data mismatch ??
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 |
Error data mismatch ??
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 |
Error data mismatch ??
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 |
All times are GMT +1. The time now is 01:23 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com