Ahoj mam dotaz. Snad někdo poradí.
Potřebuji udělat makro aby mi upravolalo data pro graf.
Dělám to takto ale nějak to nefunguje.
Sub uprav_graf
Dim graf as long
Graf = range("a5").end(xlToRight).offset(0, 1).select
ActiveSheet.chartObject("Graf 1").activate
Active.Chart.ChartArea.select
Activated.Chart.SetSourceData Source:=Range("a1" & ":" & "graf")
End sub
Děkuji za rady