selecting non-contiguous cells

[snazster]

Hi,

I need help please selecting cells which are non-contiguous and which are the same for every row. The number of rows is variable, but I am unsure of the syntax for this.

I need to select the cells in column A, B, D, F and M for every row, one row at a time.

Any help is much appreciated.

 

[VoG]

Maybe like this

Sub test()
Dim i As Long
i = 10
Range("A1:A" & i & ",B1:B" & i & ",D1:D" & i & ",F1:F" & i & ",M1:M" & i).Select
End Sub

 

[snazster]

Thanks for that.

I seem to have a problem with the following line of code when i have to select cells in columns I to L:

 ActiveChart.SeriesCollection(2).Values = "=Range(Cells(9, i), Cells(12, i))"

 

[VoG]

Maybe

ActiveChart.SeriesCollection(2).Values = Range(Cells(9, i), Cells(12, i))

 

[snazster]

Thanks, but with the code you suggest, I get the error:

Object variable or With block variable not set

Do you have any idea where my mistake is?

Sub graph()

Dim i As Integer
For i = 4 To 15

    
    
    Range("A1:A" & i & ",B1:B" & i & ",D1:D" & i & ",F1:F" & i & ",M1:M" & i).Select
    Range("AD4").Activate
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Writing").Range("A1:A" & i & ",B1:B" & i & ",D1:D" & i & ",F1:F" & i & ",M1:M" & i) _
        , PlotBy:=xlRows
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Values = Range(Cells(9, i), Cells(12, i))
    


    ActiveChart.SeriesCollection(2).Name = "=""Target"""
    ActiveChart.SeriesCollection(3).Values = "=Writing!R4C39:R4C42"
    ActiveChart.SeriesCollection(3).Name = "=""Nat. Exp."""
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Writing"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Writing"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "End of Year"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Points"
    End With

    ActiveChart.SeriesCollection(2).Select
    ActiveChart.SeriesCollection(2).ChartType = xlLineMarkers
    ActiveChart.SeriesCollection(3).Select
    ActiveChart.SeriesCollection(3).ChartType = xlLineMarkers
    
    
Next i
End Sub

 

[VoG]

Not sure but look here for example charting code http://peltiertech.com/Excel/ChartsHowTo/QuickChartVBA.html