Hello,
i have a table of data (see below) from which i create a chart.
the table can be any row length in cols b through i.
if i select a cell from col b, (which labeled "SHAFT" in the data table below) which becomes the active cell, i have a macro which selects the rest of the row and creates a chart with the selected data.
if i select select several contiguous cells from col b, i can plot the data using he same macro.
however, if i select-non contiguous cells from col b, the macro just plots the data first active cell/row selected.
my question: is how to select multiple non-contiguous cells from col b and plot the data from the rows selected?
below is part of the macro:
Sub PLOTSHAFTFREQUENCIES()
'
' THIS MICRO PLOTS SHAFT FREQUENCIES
'
ActiveSheet.Select
XValues = ("C6:I6")
yValues = ActiveCell
Range(Selection, Selection.End(xlToRight)).Select
ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
With ActiveChart
.HasTitle = True
.ChartTitle.Text = "SHAFT FREQUENCY COMPARISONS"
End Withbelow is the data table
[TABLE="width: 628"]
[TD="colspan: 7"]DISTANCE FROM TIP END, inches[/TD]
SHAFT
[/td]41
[/td]36
[/td]31
[/td]26
[/td]21
[/td]16
[/td]11
[/td]Xcaliber5 A
[/td]155
[/td]181
[/td]215
[/td]268
[/td]335
[/td]479
[/td]779
[/td]Xcaliber6 A
[/td]163
[/td]180
[/td]210
[/td]251
[/td]322
[/td]454
[/td]750
[/td]X CaliberSL A
[/td]163
[/td]183
[/td]208
[/td]242
[/td]303
[/td]416
[/td]705
[/td]Xcaliber5 L
[/td]148
[/td]175
[/td]210
[/td]260
[/td]330
[/td]470
[/td]765
[/td]X CaliberSL L
[/td]159
[/td]182
[/td]211
[/td]251
[/td]316
[/td]430
[/td]736
[/td]Xcaliber5 R
[/td]163
[/td]187
[/td]220
[/td]277
[/td]342
[/td]485
[/td]788
[/td]Xcaliber6 R
[/td]171
[/td]193
[/td]227
[/td]269
[/td]340
[/td]464
[/td]766
[/td]Xcaliber6+ R
[/td]168
[/td]190
[/td]227
[/td]278
[/td]354
[/td]485
[/td]811
[/td]X CaliberSL R
[/td]169
[/td]193
[/td]225
[/td]269
[/td]337
[/td]464
[/td]759
[/td]XcaliberWEDGE SPIN AS0037 R
[/td]0
[/td]0
[/td]256
[/td]317
[/td]388
[/td]481
[/td]767
[/td]XCAL TOUR SL AS0031 R
[/td]163
[/td]183
[/td]210
[/td]243
[/td]289
[/td]356
[/td]558
[/td]Xcaliber5 S
[/td]172
[/td]194
[/td]226
[/td]283
[/td]348
[/td]490
[/td]800
[/td]Xcaliber6 S
[/td]177
[/td]203
[/td]240
[/td]289
[/td]356
[/td]489
[/td]800
[/td]Xcaliber6+ S
[/td]178
[/td]203
[/td]238
[/td]287
[/td]360
[/td]499
[/td]827
[/td]Xcaliber7 S
[/td]183
[/td]215
[/td]251
[/td]302
[/td]370
[/td]490
[/td]781
[/td]Xcaliber7 Tour S
[/td]189
[/td]219
[/td]260
[/td]313
[/td]395
[/td]520
[/td]845
[/td]X CaliberSL T S
[/td]183
[/td]206
[/td]241
[/td]294
[/td]368
[/td]500
[/td]831
[/td]X CaliberSL S
[/td]181
[/td]207
[/td]240
[/td]287
[/td]358
[/td]487
[/td]784
[/td]FUJIKURAGOLD S
[/td]190
[/td]193
[/td]216
[/td]255
[/td]306
[/td]426
[/td]680
[/td]WISHON S2S WHITE LITE S
[/td]175
[/td]204
[/td]238
[/td]281
[/td]359
[/td]485
[/td]800
[/td]XCAL TOUR SL S
[/td]170
[/td]192
[/td]222
[/td]268
[/td]334
[/td]439
[/td]704
[/td]ALDILA TOUR BLUE ATX 55 S
[/td]170
[/td]188
[/td]218
[/td]259
[/td]319
[/td]410
[/td]596
[/td]
[/TABLE]
Thank you very much for the help!!!
Rick