' uprav graf xCielPosl = Range(xCiel).End(xlDown).Row If xCielPosl < 30000 Then xGrafObl = Range(xCiel).Cells(1).Address & ":S" & xCielPosl ActiveSheet.ChartObjects("Chart 3").Activate ActiveChart.PlotArea.Select ActiveChart.SetSourceData Source:=Sheets("List1").Range(xGrafObl), PlotBy:=xlRows Range("L13").Select End If
Užitočné (1) | vladop1 |
graf z filtrovaných dát