Cell reference based on active cell

**fugima** · 01-21-2011, 11:59 AM

Is there a way to create the chart below based on the active cell I select in a worksheet. Say if I select cell R1 a chart will be created based on that reference so the reference L and M will increase by two letters to T and U reference?

   ActiveChart.ChartType = xlXYScatterLines
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).XValues = "='" & ActiveSheet.Name & "'!$L$37:$L$49"
    ActiveChart.SeriesCollection(2).Values = "='" & ActiveSheet.Name & "'!$M$37:$M$49"

**Andy Pope** · 01-22-2011, 08:16 AM


   Dim rngData As Range

   Set rngData = Intersect(ActiveCell.Offset(, 2).EntireColumn, ActiveSheet.Range("37:49"))

    With ActiveChart
        .ChartType = xlXYScatterLines
        With .SeriesCollection.NewSeries
            .XValues = rngData
            .Values = rngData.Offset(, 1)
        End With
    End With

Cell reference based on active cell

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Cell reference based on active cell

Re: Cell reference based on active cell

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions