Predmet:Re: VBA Excel Vlookup Vs Index(Match)
test1 radi upravo to
problem je to napraviti sa index(match)
pokreni test1 i vidjeces da radi,
jbg , shvatio sam da sam informaticki nepismen i neznam objasniti pa zato ne kuzis sto hocu reci.
PreuzmiIzvorni kôd (Visual Basic):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
hmm, ja mislim da ti malo mene mucis. Uglavnom mi das neku smjernicu pa me prisaljavas da zakljucim i rijesim to. Ne dajes mi konacno rijesenje vec oces da sam uz tvoje naputke dodem do tog istog rijesenja.
dobro, nema veze.
Vidim ja da ti nemas pametnija posla nego samnomtu čatati
zivot je moja domovina.