Ahojte
Už tu bežala táto
téma ale kedže by sa Otázočka stratila v Debatách dovolil som si založiť novú tému.
Marjankaj mi tu už dávnejšie vytvoril makierko na úpravu zobrazovanej oblasti.
Private Sub Worksheet_Activate()
Dim a, b
a = Array(36)
'b = Array(34, 36, 38, 35)
For i = 0 To 0
cas1 = "=UDAJE!R" & a(i) & "C14:R" & a(i) & "C" & (Range("1!H2") + 13)
'cas2 = "=UDAJE!R" & b(i) & "C14:R" & b(i) & "C" & (Range("3!K2") + 13)
MsgBox ActiveSheet.ChartObjects(i + 1).Chart.Name
ActiveSheet.Chart(i + 1).Chart.SeriesCollection(1).Values = cas1
'Sheets("3").ChartObjects(i + 1).Chart.SeriesCollection(2).Values = cas2
Next i
End Sub
Problém je v tom že upravuje grafy v poradí aké im pridelil Excel.
Nepomáha mi presun grafu dopredu, potrebujem upraviť graf číslo 5 ale makro stále vyhodí chybu.
Viete mi s tým prosím niekto pomôcť?
Ďakujem veľmi pekne všetkým ktorí dočítali až sem