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