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 Next lLoop End With If bFound = True Then Two_Con_Vlookup = True Else Two_Con_Vlookup = False End If End Function