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 cells(i,j) ... ali obstaja način,
kot naprimer "B"&j ali kako podobno ... nikakor mi ne uspe
Najlepša hvala
Uporaba for zanke v multi area range
Re: Uporaba for zanke v multi area range
Glede na to, da ne želite uporabiti objekat cells, ki je namenjen lažjemu dostopu do celic preko pozicije vrstica/kolona, je v vašem primeru sintaksa sledeča:
Koda: Izberi vse
Dim j As Integer
For j = 2 To 13
Sheets(j).Select
ActiveChart.SetSourceData Source:=Union(Sheets("podatki").Range("D3:O8,D" & j & ":O" & j & ").Offset(0, i), Sheets("podatki").Range("C" & j & ",C3:C8"))
Next j
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Uporaba for zanke v multi area range
Najlepša hvala, dolgujem Vam najmanj pivo ... =)
Re: Uporaba for zanke v multi area range
hosta90 napisal/-a:Najlepša hvala, dolgujem Vam najmanj pivo ... =)
![Smile :)](./images/smilies/icon_smile.gif)
Če torej resnično želite pomagati vas PROSIM, da po svojih močeh mojo stran promovirate in zanjo poveste tudi svojim prijateljem, znancem, sodelavcem... Najdite zanimiv zapis na blogu ali kar na osnovni spletni strani in ga komentirajte, delite, "twitnite", "lajkajte" ali karkoli je že teh novih besed v jeziku....
![Wink ;)](./images/smilies/icon_wink.gif)
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator