asdzxc
04-25-2012, 11:23 PM
What's with this code
ActiveChart.SetSourceData Source:=Range("A2:C2", "C" & LR).Select
Range("C8").Select
ActiveCell.FormulaR1C1 = "=(R[-3]C2)*2-R[-6]C2"
Range("C8").Select
Selection.AutoFill Destination:=Range("C8:C50"), Type:=xlFillDefault
Range("C8:C50").Select
Range("A1:C14").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
With Range("A" & Rows.Count).End(xlUp)
.AutoFill .Resize(4)
Dim LR As Long
LR = Range("B2").End(xlDown).Offset(3, 0).Row
ActiveChart.SetSourceData Source:=Range("A2:C2", "C" & LR).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
End With
End Sub
ActiveChart.SetSourceData Source:=Range("A2:C2", "C" & LR).Select
Range("C8").Select
ActiveCell.FormulaR1C1 = "=(R[-3]C2)*2-R[-6]C2"
Range("C8").Select
Selection.AutoFill Destination:=Range("C8:C50"), Type:=xlFillDefault
Range("C8:C50").Select
Range("A1:C14").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
With Range("A" & Rows.Count).End(xlUp)
.AutoFill .Resize(4)
Dim LR As Long
LR = Range("B2").End(xlDown).Offset(3, 0).Row
ActiveChart.SetSourceData Source:=Range("A2:C2", "C" & LR).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
End With
End Sub