Sub lookup()


Dim Look1 As String
Dim Look2 As String
Dim Res
Dim ws As Worksheet
Dim LookRange As Range
Dim R1 As Long
Dim R2 As Long
Dim RR As Long
Dim UB As Long
Dim i As Long


'R1 = InputBox("Zadajte prvú úroveň hľadania")
'R2 = InputBox("Zadajte druhú úroveň hľadania")
'RR = InputBox("Zadajte úroveň vrátenia")


R1 = 1
R2 = 2
R3 = 3


Set ws = Sheets("LookUP")
Set LookRange = ws.Range(Cells(6, 3), Cells(14, 5))
UB = LookRange.Rows.Count


Look1 = ws.Cells(6, 9)
Look2 = ws.Cells(6, 10)


For i = 1 To UB
    
    If LookRange(i, R1) = Look1 Then
        If LookRange(i, R2) = Look2 Then
            Res = LookRange(i, R3)
        End If
    End If
    
Next i
    
If Res = "" Then
Res = "#N/A"
End If


ws.Cells(6, 11).Value = Res
End Sub
Function DOUBLELOOKUP(LookUpValue1, LookUpValue2, LookUpColumn1 As Long, LookUpColumn2 _
As Long, ReturnColumn As Long, TableArray As Range)


Dim UB As Long
Dim i As Long


UB = TableArray.Rows.Count


For i = 1 To UB
    
    If TableArray(i, LookUpColumn1) = LookUpValue1 Then
        
        If TableArray(i, LookUpColumn2) = LookUpValue2 Then
            DOUBLELOOKUP = TableArray(i, ReturnColumn)
        End If
        
    End If
    
Next i
    
If DOUBLELOOKUP = "" Then
DOUBLELOOKUP = "#N/A"
End If

End Function