Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function Provjera()
Dim red As Long
Dim tmp
Dim Dat As Date
For red = 2 To Cells(Rows.Count, "A").End(xlUp).Row
tmp = Range("A" & red).Value
On Error Resume Next
Dat = tmp
If Err.Number = 0 Then