Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function Saberi(Region As Range) '******************************************** 'Sabiranje celija sa provjerom dali je u ' celiji num,ericka vrijedost '******************************************** Dim Celija As Range Dim Suma As Double Dim Vrijednost As Double Dim Vrs As String For Each Celija In Region.Cells Vrs = Celija.Value Vrijednost = Celija.Value If Len(Vrs) = Len(Format$(Vrijednost)) Then Suma = Suma + Vrijednost Else MsgBox "Vri