marjankaj červené môžeš odstrániť
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b
a = Array(5, 6, 140, 31, 53)
b = Array(10, 12, 141, 36, 57)
For i = 0 To 4
cas1 = "=UDAJE!R" & a(i) & "C4:R" & a(i) & "C" & (Range("hárok1!Q2") + 3)
cas2 = "=UDAJE!R" & b(i) & "C4:R" & b(i) & "C" & (Range("hárok1!Q2") + 3)
'ActiveSheet.ChartObjects(i + 1).Chart.SeriesCollection(1).Values = cas1
ActiveSheet.ChartObjects(i + 1).Chart.SeriesCollection(2).Values = cas2
Next i
End Sub
Ahoj tak so sa pohral včera s funkciou "Find" a upravil tabuľku.
Usporiadal som to na hárku UDAJE tak ako to má byť chronologicky (postupne pribúdali zdroje dát)
Tým som samozrejme narušil makro ktoré zabezpečuje mazanie nepotrebných núl v dňoch ktoré ešte len nastanú.
Skúšam ho opraviť, ale neposlúcha.
Až budeš mať chvíľku poprosím:
i = 0 To 4 prečo?
udaje 5:10;6:12;140:141;31:36;53:57 sú zdrojové riadky grafov ktoré upravujeme?
Skúšam ich meniť ale nezaberá to ):
UDAJE!R je čo?
C4:R je čo ?
Q2 + 3 prečo ?
Chcel by som porozumieť tomu makierku.
Ďakujem veľmi pekne
No neviem asi sa mi to podarilo -metóda - pokus - omyl
Menil som v makre tie oblasti na ktoré sa to odkazovalo ale stále to nešlo.
Až som mu zadal že grafy sú na Hárku1 až potom to pochopilo čo sa od neho chce.
Neviem prečo zrazu nešlo ActiveSheet
ale hádam to takto pôjde
PS: Makierku stále nerozumiem, len som ho použil ):