Excel macro offset

[ApolloID]

Hi, i have this part of a code:

ActiveChart.SetSourceData Source:=Range( _
"'Sheet1'!$E$4:$P$4,'Sheet1'!$E$5:$P$5")
and i need this part to be:

ActiveChart.SetSourceData Source:=Range( _
"'Sheet1'!$E$4:$P$4,'Sheet1'!activerange.select.offset(3.0)")

Can this be done?

Thanks!

 

[Sektor]

What is activerange variable? May be ActiveCell?

 

[jasonb75]

Found on google, not tested, just edited to your range.

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range _
        ("E4:P4", ActiveCell.Offset(3))

 

[ApolloID]

Hi, i put a piece of the code...this is the entire code:

Sub Macro2()
    Range("E4:P4,E5:P5").Select
    Range("P5").Activate
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range( _
        "'Sheet1'!$E$4:$P$4,'Sheet1'!$E$5:$P$5")
    ActiveChart.ChartType = xlLineMarkers
End Sub

I need this code to loop until last filled row, and to insert a chart from 3 to 3 rows.
But the second part of the range to be everytime with 3 rows below.

Can this be done?
Thanks in advance!

 

[gregtx81]

I'd guess that "activerange" refers to "selection".

 

[ApolloID]

yes. but if this can be done in a different way....

 

[ApolloID]

How can i name a range?

My range is : Range("E4:P4,E5:P5").Select

I need to refer to range as "range1" or any other name.

 

[Weaver]

How can i name a range?

My range is : Range("E4:P4,E5:P5").Select

I need to refer to range as "range1" or any other name.

Range("E4:P4,E5:P5").name = "MyRange"

 

[ApolloID]

Thanks.

how can i add offset to the second range (offset only for E5:P5?)

Set myrange = Range("E4:P4,E5:P5")

to something like this?

Set myrange = Range("E4:P4,((E5:P5).offset(3,0))")

Thanks!