Posts by rtom0001

Re: Select multiple cells in a column

Thank you shknbk2 for the explanation - I understand!!

I appreciate you tolerating these novice questions.

Rick

Re: Select multiple cells in a column

shknbk2

If i may bother you with another question?

i am confused about the purpose of the two "set r =" statements. it seems to me that the second statement overwrites and nullifies the first statement. obviously not because the macro works.

Re: Select multiple cells in a column

Thanks again!!!

Re: Select multiple cells in a column

Dear shknbk2,

in the code, the statement: "For Each c In Selection", is "C" a variable or shorthand for active cell?

i understand the logic of the code but i don't understand how VBA knows what "C" is.

Thanks again for the help!!

Rick

Re: Select multiple cells in a column

Dear shknbk2,

That works!!!!!

Thank you very much!!!!

Rick

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 With

below is the data table

[TABLE="width: 628"]

[TD="colspan: 7"]DISTANCE FROM TIP END, inches[/TD]

SHAFT

41

36

31

26

21

16

11

Xcaliber5 A

155

181

215

268

335

479

779

Xcaliber6 A

163

180

210

251

322

454

750

X CaliberSL A

163

183

208

242

303

416

705

Xcaliber5 L

148

175

210

260

330

470

765

X CaliberSL L

159

182

211

251

316

430

736

Xcaliber5 R

163

187

220

277

342

485

788

Xcaliber6 R

171

193

227

269

340

464

766

Xcaliber6+ R

168

190

227

278

354

485

811

X CaliberSL R

169

193

225

269

337

464

759

XcaliberWEDGE SPIN AS0037 R

0

0

256

317

388

481

767

XCAL TOUR SL AS0031 R

163

183

210

243

289

356

558

Xcaliber5 S

172

194

226

283

348

490

800

Xcaliber6 S

177

203

240

289

356

489

800

Xcaliber6+ S

178

203

238

287

360

499

827

Xcaliber7 S

183

215

251

302

370

490

781

Xcaliber7 Tour S

189

219

260

313

395

520

845

X CaliberSL T S

183

206

241

294

368

500

831

X CaliberSL S

181

207

240

287

358

487

784

FUJIKURAGOLD S

190

193

216

255

306

426

680

WISHON S2S WHITE LITE S

175

204

238

281

359

485

800

XCAL TOUR SL S

170

192

222

268

334

439

704

ALDILA TOUR BLUE ATX 55 S

170

188

218

259

319

410

596

[/TABLE]

Thank you very much for the help!!!

Rick