If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
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 |
Thread Tools | |
Display Modes | |
|
|