Using VBA in Excel 2010 to create Charts

[Warda]

HI

I am working on huge amount of Data and I need to create charts for more than 277 sheets each with over 10000 rows and 92 Columns.

The Data are measurmnets for some force over the year and these measurments are recorded in a table for 365 days and for each day there are 24 records a record for ecah hour.

Some titles of the Columns are Titeld as Following : MM=Month , DD=Day , HH=Hour , Force=WG.

What I want is a VBA code to create a chart with HH on x-axis and WG on Y-axis I tried a code from this forum it did work but the plots are overlapping so on x-axis it is showing just from 0-24 and the ploting. I wnat the x-axis to be continous 0-24 then again 0-24 and so on.

Please if you can help me with that?

The table below shows a sample of what I mean.

MM	DD	HH	WG
1	1	1	6,1
1	1	2	9,2
1	1	3	10,2
1	1	4	9,7
1	1	5	10,8
1	1	6	10,2
1	1	7	10,2
1	1	8	10,2
1	1	9	9,7
1	1	10	9,7
1	1	11	10,2
1	1	12	8,7
1	1	13	10,8
1	1	14	9,2
1	1	15	8,2
1	1	16	7,7
1	1	17	6,6
1	1	18	7,2
1	1	19	7,2
1	1	20	5,6
1	1	21	5,6
1	1	22	5,6
1	1	23	7,2
1	1	24	7,2
1	2	1	8,2
1	2	2	8,2
1	2	3	9,2
1	2	4	9,2
1	2	5	9,2
1	2	6	9,7
1	2	7	12,3

<tbody>
</tbody>

the code I did use is
Private Sub CommandButton3_Click()


Application.ScreenUpdating = False
Dim LastRow As Long
Dim xTitle As Range
Dim xData As Range
Dim yColumn As Long
Dim yTitle As Range
Dim yData As Range
Dim GraphRange As Range


'Find last row with Data
LastRow = ActiveSheet.Cells(ActiveSheet.Rows.count, "A").End(xlUp).Row


'Set x-axis title and Data
Set xTitle = Range("C1")
Set xData = Range("C2:C" & LastRow)


'Find Temperature, set y-axis title
With Rows(1)
Set yTitle = .Find("WG", LookIn:=xlValues)
yColumn = yTitle.Column
End With


'set y-axis data
Set yData = Range(Cells(2, yColumn), Cells(LastRow, yColumn))


'set total graph range
Set GraphRange = Union(xTitle, xData, yTitle, yData)


'create chart
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=GraphRange
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.SetElement (msoElementLegendNone)
ActiveChart.ChartTitle.Text = "Chart Title Here"
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
Selection.Caption = xTitle
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
Selection.Caption = yTitle

Application.ScreenUpdating = True


End Sub

 

[oldbrewer]

xaxis as values	yaxis		xaxis as text	yaxis
1	15		1	15
3	11		3	11
5	12		5	12
1	14		1	14
3	9		3	9
5	10		5	10
1	16		1	16
3	14		3	14
5	13		5	13
by converting the x axis values to text
I made a bar chart where the x axis was
1,3,5,1,3,5,1,3,5

<colgroup><col><col span="2"><col><col span="2"></colgroup><tbody>
</tbody>

 

[Warda]

Hi oldbrewer

Do you mean I need to change cells form to text for the whole table or just for the x-axis valuse I need?

I tried it but it didn't work.

thanks in advanced

 

[oldbrewer]

as my post says, I converted x axis labels to text, the Y values have to be values, my bar chart was fine.

do what i did make a new spreadsheet with simple dummy data to test ogut the methodology........

 

[oldbrewer]

you have 6,1 etc change to 6.1

 

[oldbrewer]

		number of characters	position of comma	characters before comma	characters after comma	pre decimal point number	post decimal point number	actual decimal number	final number
	17,2	4	3	2	1	17	2	0.2	17.2
	4,567	5	2	1	3	4	567	0.567	4.567
	6543454,54547	13	8	7	5	6543454	54547	0.54547	6543454.545
	using LEN, SEARCH, LEFT and MID the text number is converted to a proper number to enable it to be charted

<colgroup><col><col><col><col><col><col><col span="3"><col><col></colgroup><tbody>
</tbody>