Prikazi cijelu temu 06.06.2015 13:50
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


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):
  1. Sub trazi()
  2.  Sheets("List1").Select
  3.  Dim datum As Range
  4.  Dim rndDatum As Range
  5.  Dim red As Integer
  6.  Dim broj As Integer
  7.  Dim red1 As Integer
  8.  Dim ime As String
  9.  ime = "ivan"
  10.  Set rngDatum = Sheets("List2").Range("B1:G1") ' selectiram datume za koje zelim ispis
  11. red = Application.WorksheetFunction.Match(ime, Sheets("List2").Range("A:A"), 0) 'nadem red u kojem je ime ivan
  12.    For Each datum In rngDatum 'za sve datume u redu 1 lista2
  13.        If datum >= "2.1.2015." And datum <= "4.1.2015." Then 'uvjet za koje datume treba ispis
  14.            broj = Val(Trim(Sheets("List2").Cells(red, datum.Column))) 'uzimam broj sa kojim cu traziti u vlookup
  15.            'sa VLOOKUP RADI
  16.            'HTIO SAM OVO:VLookup(broj, Sheets("List3").Range("A1:D7"), {2,3,4}, False)
  17.            'ali mi neda ovo:{2,3,4}
  18.            ' pa sam 3 x napisao vlookup za svaki 2,3 i 4
  19.            kolona2 = Application.WorksheetFunction.VLookup(broj, Sheets("List3").Range("A1:D7"), 2, False)
  20.             kolona3 = Application.WorksheetFunction.VLookup(broj, Sheets("List3").Range("A1:D7"), 3, False)
  21.             kolona4 = Application.WorksheetFunction.VLookup(broj, Sheets("List3").Range("A1:D7"), 4, False)
  22.             Cells(red1, 1) = datum
  23.             Cells(red1, 2) = ime
  24.             Cells(red1, 3) = kolona2
  25.             Cells(red1, 4) = kolona3
  26.             Cells(red1, 5) = kolona4
  27.         End If
  28.         red1 = red1 + 1
  29.     Next datum
  30.    
  31.     'sa INDEX(MATCH) NEZNAM
  32.    
  33. 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 Laughing
zivot je moja domovina.