Code:
Public Function Svega(p As Range) As Double
Dim tabla As Worksheet
Dim a As Integer
Dim b As Integer
a = p.Row
b = p.Column
For Each tabla In ThisWorkbook.Sheets
If tabla.Name <> "Ukupno" Then
svega = svega + tabla.Cells(a, b)
End If
Next tabla
End Function
Public Function Svega(p As Range) As Double
Dim tabla As Worksheet
Dim a As Integer
Dim b As Integer
a = p.Row
b = p.Column
For Each tabla In ThisWorkbook.Sheets
If tabla.Name <> "Ukupno" Then
svega = svega + tabla.Cells(a, b)
End If
Next tabla
End Function
Kad je prvi put postavim sve radi OK, medjutim ako nesto menjam ili dodam jos neki sheet ne
preracunava automatski.
U options imam postavljeno calculation na automatic.
Kad prebacim na manual i pozovem radi OK.
Sta da uradim da preracunava automatski?