Citiraj:
Autor gremlin33
valjda imaš razloga što si to tako postavio..
nabrzinu sam radio i sad moram ić na sastanak pa nisam mogao dotjerat točno no
Sub pokreni()
For Each c In Worksheets("Sheet1").Range("d1:d1000")
d = c.Value
c.Value = d + c.Offset(0, -1).Range("A1").Value
Next c
End Sub
'd = c.Value uzima postojeću vrijednost
'c.value= nova vrijednost
'c.value=postojeća vrijednost+vrijednost prvog polja s lijeve strane
bitno je da imaš neki rezultat u polju d
btw.
a zakaj nemaš još jedno skriveno polje bilo gdje na kraju tabele...
u njeg stavljaš ukupnu vrijednos i na nju dodaješ novu...
ne bi narušio vizualni izgled tabele a bilo bi elegantnije..
|
Zahvaljujem na odgovoru, ali ovo gore mi pak nije jasno. Šta trebam makro pokrenuti? Ili opet moram sa kalkulatorom nešto računati i upisivati u skrivena polja?
Jedan 'Primjer.xls' gore navedenog bi mi mnogo pomoglo.
Lijep pozdrav.