I have some questions about this macro, that I used to make a chart. I'm a newbie creating macros. Thanks so much and sorry for so many questions.
How do I make this macro work on a different user's computer?
ActiveChart.ApplyChartTemplate ( _
"C:\Users\student\AppData\Roaming\Microsoft\Templates\Charts\Chart1.crtx")
How to do I change this section to be able to run this macro in different WorkSheet's name (ex:07102015DD, 07102015AA, 07102015BB)?
ActiveChart.SetSourceData Source:=Range( _
"'07102015DD'!$M:$M,'07102015DD'!$H:$H")
How do I rename this chart "Chart2" to a cell name inside of WorkSheet (07102015DD)?
Sheets("Chart2").Select
=======================
Sub Chart_M()
'
' Chart Macro
Range("D1:G1").Select
Selection.Copy
Range("L1").Select
ActiveSheet.Paste
Range("K2").Select
Application.CutCopyMode = False
Range("M:M,H:H").Select
Range("H1").Activate
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.ApplyChartTemplate ( _
"C:\Users\cabido\AppData\Roaming\Microsoft\Templates\Charts\Chart1.crtx")
ActiveChart.SetSourceData Source:=Range( _
"'07102015DD'!$M:$M,'07102015DD'!$H:$H")
ActiveChart.Location Where:=xlLocationAsNewSheet
Sheets("Chart2").Select
With ActiveWorkbook.Sheets("Chart2").Tab
.Color = 49407
.TintAndShade = 0
End With
End Sub
==============================
How do I make this macro work on a different user's computer?
ActiveChart.ApplyChartTemplate ( _
"C:\Users\student\AppData\Roaming\Microsoft\Templates\Charts\Chart1.crtx")
How to do I change this section to be able to run this macro in different WorkSheet's name (ex:07102015DD, 07102015AA, 07102015BB)?
ActiveChart.SetSourceData Source:=Range( _
"'07102015DD'!$M:$M,'07102015DD'!$H:$H")
How do I rename this chart "Chart2" to a cell name inside of WorkSheet (07102015DD)?
Sheets("Chart2").Select
=======================
Sub Chart_M()
'
' Chart Macro
Range("D1:G1").Select
Selection.Copy
Range("L1").Select
ActiveSheet.Paste
Range("K2").Select
Application.CutCopyMode = False
Range("M:M,H:H").Select
Range("H1").Activate
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.ApplyChartTemplate ( _
"C:\Users\cabido\AppData\Roaming\Microsoft\Templates\Charts\Chart1.crtx")
ActiveChart.SetSourceData Source:=Range( _
"'07102015DD'!$M:$M,'07102015DD'!$H:$H")
ActiveChart.Location Where:=xlLocationAsNewSheet
Sheets("Chart2").Select
With ActiveWorkbook.Sheets("Chart2").Tab
.Color = 49407
.TintAndShade = 0
End With
End Sub
==============================