ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Charts and Charting in Excel (https://www.excelbanter.com/charts-charting-excel/)
-   -   Change chart range with macro (https://www.excelbanter.com/charts-charting-excel/225813-change-chart-range-macro.html)

Greg Snidow

Change chart range with macro
 
Greetings. I am trying to name a variable that is the last row of data in a
range, then use that variable in a chart's range. I tried inserting it where
the last row would be, but it is not working, like this "A20:A & LstRow,...
Anyone have any ideas?

LstRow = [B51].End(xlUp).Row

MsgBox (LstRow)

Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Mar").Range( _
"A20:A & LstRow,C20:C46,E20:E46,G20:G46,I20:I46,K20:K46,M20 :M46"),
PlotBy:=xlColumns
ActiveChart.Location Whe=xlLocationAsObject, Name:="Mar"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight

Greg Snidow

Change chart range with macro
 
Ok, I got it. It should be like this RANGE("A20:A" & LstRow & ",C20:...

"Greg Snidow" wrote:

Greetings. I am trying to name a variable that is the last row of data in a
range, then use that variable in a chart's range. I tried inserting it where
the last row would be, but it is not working, like this "A20:A & LstRow,...
Anyone have any ideas?

LstRow = [B51].End(xlUp).Row

MsgBox (LstRow)

Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Mar").Range( _
"A20:A & LstRow,C20:C46,E20:E46,G20:G46,I20:I46,K20:K46,M20 :M46"),
PlotBy:=xlColumns
ActiveChart.Location Whe=xlLocationAsObject, Name:="Mar"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight



All times are GMT +1. The time now is 08:20 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com