<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 Suma(R)
Dim Celija As Object
Dim Duz(1 To 2)  As Integer
Dim FormatCelije As String
Dim a
Dim BrA As Double
Dim StrA As String
Dim S As Double


For Each Celija In R.Cells
a = Celija()
If IsNumeric(a) = False Then
MsgBox "Neispravan unos u celiji:" & Celija.Address
GoTo Kraj
End If
BrA = a
StrA = a
Duz(1) = Len(Format$(BrA))
Duz(2) = Len(StrA)
If Duz(1) <> Duz(2) Then
MsgBox "Nevalja format u celiji:" & Celija.Address
GoTo