<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Function Saberi(Region As Range)
'********************************************
'Sabiranje celija sa provjerom dali je u
' celiji numericka vrijedost
'********************************************
    Dim Celija As Range
    Dim Suma As Double
    Dim Vrijednost As Double
    Dim Vrs As String
    On Error Resume Next
    For Each Celija In Region.Cells
        Vrs = Celija.Value
        Vrijednost = Celija.Value
        If Len(Vrs) = Len(Format$(Vrijednost)) Then
            Suma = Suma + Vrijednost
        Else
            MsgBox "Vrijednost u polju" & vbCr _
                    & Celija.Address & vbCr _