<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 proba()

if Two_Con_Vlookup(Range(Cells(odReda, odKolone), Cells(doReda, doKolone)), traziA, traziB) = False Then
                    'ako nije nasao
                    msgbox "greska"
end if
end sub

Function Two_Con_Vlookup(Table_Range As Range, Col1_Fnd, Col2_Fnd) As Boolean
    
    Dim rCheck As Range
    Dim bFound As Boolean
    Dim lLoop As Long

    On Error Resume Next

    Set rCheck = Table_Range.Columns(1).Cells(1, 1)
    With WorksheetFunction
        For lLoop = 1 To .CountIf(Table_Range.Columns(1), Col1_Fnd)
           Set rCheck = Table_Range.Columns(1).Find(Col1_Fnd, rCheck, xlValues, xlWhole, xlNext, xlRows, False)
           If UCase(rCheck(1, 2)) = UCase(Col2_Fnd) Then
                bFound = True
                Exit For
            End If
        Nex