Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function Saberi(Polja As Range)
Dim Skupina As Range
Dim Polje As Object
Dim Vrijednost
Dim Zbir As Double
Dim Celija As String
Set Skupina = Polja
Saberi = 0
For Each Polje In Skupina.Cells
Vrijednost = Polje
If IsNumeric(Polje) Then
Zbir = Zbir + Vrijednost
El