Sub trazi()
 Sheets("List1").Select
 Dim datum As Range
 Dim rndDatum As Range
 Dim red As Integer
 Dim broj As Integer
 Dim red1 As Integer
 Dim ime As String
 ime = "ivan"
 Set rngDatum = Sheets("List2").Range("B1:G1") ' selectiram datume za koje zelim ispis
 red = Application.WorksheetFunction.Match(ime, Sheets("List2").Range("A:A"), 0) 'nadem red u kojem je ime ivan
    For Each datum In rngDatum 'za sve datume u redu 1 lista2
        If datum >= "2.1.2015." And datum <= "4.1.2015." Then 'uvjet za koje datume treba ispis
            broj = Val(Trim(Sheets("List2").Cells(red, datum.Column))) 'uzimam broj sa kojim cu traziti u vlookup
            'sa VLOOKUP RADI
            'HTIO SAM OVO:VLookup(broj, Sheets("List3").Range("A1:D7"), {2,3,4}, False)
            'ali mi neda ovo:{2,3,4}
            ' pa sam 3 x napisao vlookup za svaki 2,3 i 4
            kolona2 = Application.WorksheetFunction.VLookup(broj, Sheets("List3").Range("A1:D7"), 2, False)
            kolona3 = Application.WorksheetFunction.VLookup(broj, Sheets("List3").Range("A1:D7"), 3, False)
            kolona4 = Application.WorksheetFunction.VLookup(broj, Sheets("List3").Range("A1:D7"), 4, False)
            Cells(red1, 1) = datum
            Cells(red1, 2) = ime
            Cells(red1, 3) = kolona2
            Cells(red1, 4) = kolona3
            Cells(red1, 5) = kolona4
        End If
        red1 = red1 + 1
    Next datum
    
    'sa INDEX(MATCH) NEZNAM
    
End Sub