Matjazev.NET

Pozdravljeni,
imam 15 različnih excelovih datotek, kjer imam prek 200 grafov. Vsak mesec se te grafi posodobijo in jih moram skopirati v Powerpoint, isti grafi s posodobljenimi podatki vsak mesec. Zanima me, kako bi to najlažje naredil s pomočjo makra.

Najlepša hvala!
Martin

Odlično =)

Najlepša hvala!!

Pozdravljeni, imam tabelo z datumi in casom vozenj s sluzbenim vozilom. v tej tabeli moram poiskati vse voznje, ki so bile opravljene v soboto in nedeljo, in voznje k si so bile opravljene pred ali po doloceni uri. Zanima me, ali obstaja kaksna formula, ki preveri datum ali je dolocen dan npr. nedel...

Sub av() Dim graf As Chart Dim serija As SeriesCollection For Each graf In ThisWorkbook.Charts For Each serija In graf With graf.SeriesCollection.Format .Line.ForeColor.RGB = RGB(255, 0, 255) .Fill.ForeColor.RGB = RGB(255, 0, 255) End With Next serija Next graf End Sub kako bi moral tole popraviti d...

Kako pa bi lahko rešil ta problem?
Ker imam ogromno datotek z grafi...tako, da bi bilo preveč dela grafe drugače narediti.
Ali obstaja kakšna možnost, da bi mi makro spremenil grafe v želene barve?
Kaj bi moral spremeniti oz. dodati?

Najlepša hvala!

Sub Makro3() For i = 1 To 71 ThisWorkbook.Charts(i).SeriesCollection(1).Format.Line.ForeColor.RGB = RGB(255, 0, 255) ThisWorkbook.Charts(i).SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(255, 0, 255) ThisWorkbook.Charts(i).SeriesCollection(2).Format.Line.ForeColor.RGB = RGB(255, 0, 255) ThisWor...

Najlepša hvala, dolgujem Vam najmanj pivo ... =)

Nujno bi Vas potreboval za eno pomoč: Dim j As Integer For j = 2 To 13 Sheets(j).Select ActiveChart.SetSourceData Source:=Union(Sheets("podatki").Range("D3:O8,D2:O2").Offset(0, i), Sheets("podatki").Range("C2,C3:C8")) Next j Zanima me, kako bi for zanko vpeljal v .range ... imam težave če uporabim c...

Deluje tako kot mora.

Najlepša hvala!

Sheets("CE").Select

ActiveChart.SetSourceData Source:=Sheets("podatki").Union(Range("J7:U10,J2:U2").Offset(0, 1), Range("C2,C7:C10"))
Sheets("podatki").Select


tole mi ne deluje ...

javi mi napako Methond of 'range' object '_global' failed

Hvala!

Sheets("CE").Select ActiveChart.SetSourceData Source:=Sheets("podatki").Range( _ "J7:U10,J2:U2,C2,C7:C10") narejen imam graf, ki se mora vsak mesec posodobiti. To pomeni da se se polja J7:U10 in J2:U2 vsak mesec premakneta za en stolpec v desno, ostali deli pa ostanejo enaki. Sedaj mi pa na način da...