<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 />
Sub test()
    Dim traziString As String
    Dim zadnjiRed As Long
    Dim nadeniRed As Long
     
    traziString = "jabuka" 'string koji se trazi
    zadnjiRed = Cells(Rows.Count, "A").End(xlUp).Row 'trazi zadnji red u koloni A
    
    'FOR EACH
    For Each cell In Range("A1:A" & zadnjiRed) 'pocinje od A1
        If cell.Value = traziString Then
            nadeniRed = cell.Row
        End If
    Next cell
     
    MsgBox nadeniRed
    nadeniRed = 0'resetiram na nulu
    
    'FOR NEXT
    For f = 1 To zadnjiRed
        If Cells(f, 1) = traziString Then
            nadeniRed = f
        End If
    Next f
    MsgBox nadeniRed
    nadeniRed = 0'resetiram na nulu
    
    'MATCH
    On Error Resume Next
    nadeniRed = Application.WorksheetFun