VBA příkaz RangePleas radu... Mám tři grafy, které se budou současně měnit podle zadaných hodnot, jedny hodnoty zůstávají konstantní, druhé se posunují o řádek směrem dolů... neustále mi to háže chyby už si s tím nevím rady... Přikládám i kód který jsem tak nějak sesmolil...
Sub Grafchange()
Dim rnational As String, rregion As String, rozsah As String
rnational = "5"
rregion = "6"
rozsah = "Q" + rnational + "," + "Q" + rregion + "T" + rnational + "," + "T" + rregion
rozsah = "Q5,Q6,T5,T6,W5,W6,Z5,Z6,AC5,AC6,AC5,AC6"
Sheets("List2").Select
ActiveSheet.ChartObjects("graf 16").Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.PlotArea.Select
' ActiveChart.SetSourceData Source:=Sheets("bonus").Range("T5,T7,W5,W7,Z5,Z7") _ '
' ActiveChart.SetSourceData Source:=Sheets("bonus").Range("Q5,Q6,T5,T6,W5,W6,Z5,Z6,AC5,AC6,AC5,AC6") _ '
' ActiveChart.SetSourceData Source:=Sheets("bonus").Range("Q" + rnational, "Q" + rregion, "T" + rnational, "T" + rregion, "W" + rnational, "W" + rregion, "Z" + rnational, "Z" + rregion) _ '
ActiveChart.SetSourceData Source:=Sheets("bonus").Range("Q5,Q6,T5,T6,W5,W6,Z5,Z6,AC5,AC6,AC5,AC6") _
, PlotBy:=xlRows
End Sub
|