Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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) =