[IvanVk]

Autor gorkix

...ovdje se radi o istom principu kao i kod tvog primjera zbroji broj na već postojeći u čeliji

ufff
morat ćeš naći nekog tko aktivno programira u VBA

Ovo je primjer za prva dva reda ali to nije dobro jer ti imaš puno redova a uduplavanjem bi se jako puno povećao kod. Ne kažem da možda ne bi uspio riješiti ali bi mi trebalo puno vremena koje sada nemam. Ako ti se nitko ne javi probaj na nekom drugom forumu (da ih ne reklamiram)

Ovo ti je za prva dva reda tri stupca

Sub DodajBrojZbroji()

' pribraja broj u celiji B5 (a) broju u celiji H5 (b)
a = Worksheets("Sheet1").Cells(5, 2).Value 'celija B5
b = Worksheets("Sheet1").Cells(5, 8).Value 'celija H5
b = b + a
Worksheets("Sheet1").Cells(5, 8).Value = b
'------------------------------------------------------------------
' pribraja broj u celiji C5 (a) broju u celiji I5 (b)
c = Worksheets("Sheet1").Cells(5, 3).Value 'celija C5
d = Worksheets("Sheet1").Cells(5, 9).Value 'celija I5
d = d + c
Worksheets("Sheet1").Cells(5, 9).Value = d
'------------------------------------------------------------------
' pribraja broj u celiji D5 (a) broju u celiji J5 (b)
e = Worksheets("Sheet1").Cells(5, 4).Value 'celija D5
f = Worksheets("Sheet1").Cells(5, 10).Value 'celija J5
f = f + e
Worksheets("Sheet1").Cells(5, 10).Value = f
' pribraja broj u celiji B6 (a) broju u celiji H6 (b)
g = Worksheets("Sheet1").Cells(6, 2).Value 'celija B6
h = Worksheets("Sheet1").Cells(6, 8).Value 'celija H6
h = h + g
Worksheets("Sheet1").Cells(6, 8).Value = h
'------------------------------------------------------------------
' pribraja broj u celiji C6 (a) broju u celiji I6 (b)
h = Worksheets("Sheet1").Cells(6, 3).Value 'celija C6
i = Worksheets("Sheet1").Cells(6, 9).Value 'celija I6
i = i + h
Worksheets("Sheet1").Cells(6, 9).Value = i
'------------------------------------------------------------------
' pribraja broj u celiji D6 (a) broju u celiji J6 (b)
j = Worksheets("Sheet1").Cells(6, 4).Value 'celija D6
k = Worksheets("Sheet1").Cells(6, 10).Value 'celija J6
k = k + j
Worksheets("Sheet1").Cells(6, 10).Value = k
End Sub