Please help w/ putting dates on x-axis with .XValues.

hi,

i'm trying to create charts and add series using VBA and reading from cells
from a different worksheet in the workbook. I have it all figured out, but
when i try and read the dates from the cells using this:
Sheet8.Range(Sheet8.Cells(2, 2), Sheet8.Cells(2, 18)) or this:
Sheet8.Range(Sheet8.Cells(FirstColumn, FirstRow), Sheet8.Cells(FirstColumn,
LastRow)), i get dates that are all over the place and look more like julian
dates, but when i use this: .XValues = Sheet8.Range("B2:B18"), it works fine.
Could someone please tell me what the issue is with this and a workaround if
you know of one.
My example is below.

Thanks,
Lee Holsenbeck

'Hard code the column value for the Y axis
YColumn = "6"
'Add a series
ChtObj.Chart.SeriesCollection.NewSeries
With ChtObj.Chart.SeriesCollection(1)
'Get the Y axis values from worksheet 8
.Values = Sheet8.Range(Sheet8.Cells(FirstRow, YColumn),
Sheet8.Cells(LastRow, YColumn))
'Sample Y axis values
'.Values = Sheet8.Range(Sheet8.Cells(2, 6), Sheet8.Cells(18,
6))
'Get the X axis values from worksheet 8
.XValues = Sheet8.Range(Sheet8.Cells(FirstColumn, FirstRow),
Sheet8.Cells(FirstColumn, LastRow))
'Sample x axis values
'.XValues = Sheet8.Range(Sheet8.Cells(2, 2), Sheet8.Cells(2,
18))
'.XValues = Sheet8.Range("B2:B18")
.Interior.ColorIndex = 3
.Border.ColorIndex = 3
.Name = "Gross Oil/Cond"
End With

This simple test in the Immediate Window worked for me:

activechart.seriescollection(1).xvalues =
activesheet.range(activesheet.cells(5,4),activeshe et.cells(11,4))

This is the same syntax that didn't work in your example.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______

"Lee Holsenbeck" wrote in message
...
hi,

i'm trying to create charts and add series using VBA and reading from
cells
from a different worksheet in the workbook. I have it all figured out, but
when i try and read the dates from the cells using this:
Sheet8.Range(Sheet8.Cells(2, 2), Sheet8.Cells(2, 18)) or this:
Sheet8.Range(Sheet8.Cells(FirstColumn, FirstRow),
Sheet8.Cells(FirstColumn,
LastRow)), i get dates that are all over the place and look more like
julian
dates, but when i use this: .XValues = Sheet8.Range("B2:B18"), it works
fine.
Could someone please tell me what the issue is with this and a wor
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______
und if
you know of one.
My example is below.

Thanks,
Lee Holsenbeck

'Hard code the column value for the Y axis
YColumn = "6"
'Add a series
ChtObj.Chart.SeriesCollection.NewSeries
With ChtObj.Chart.SeriesCollection(1)
'Get the Y axis values from worksheet 8
.Values = Sheet8.Range(Sheet8.Cells(FirstRow, YColumn),
Sheet8.Cells(LastRow, YColumn))
'Sample Y axis values
'.Values = Sheet8.Range(Sheet8.Cells(2, 6),
Sheet8.Cells(18,
6))
'Get the X axis values from worksheet 8
.XValues = Sheet8.Range(Sheet8.Cells(FirstColumn,
FirstRow),
Sheet8.Cells(FirstColumn, LastRow))
'Sample x axis values
'.XValues = Sheet8.Range(Sheet8.Cells(2, 2),
Sheet8.Cells(2,
18))
'.XValues = Sheet8.Range("B2:B18")
.Interior.ColorIndex = 3
.Border.ColorIndex = 3
.Name = "Gross Oil/Cond"
End With