Prikazi cijelu temu 07.06.2015 12:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: VBA Excel Vlookup Vs Index(Match)
PreuzmiIzvorni kôd (Visual Basic):
  1. indeksmath:
  2.     'sa INDEX(MATCH) NEZNAM
  3.    Dim a As Integer
  4.     Dim b
  5.      Set rngDatum = Sheets("List2").Range("B1:G1")
  6.      red = Application.WorksheetFunction.Match(ime, Sheets("List2").Range("A:A"), 0)
  7.      For Each datum In rngDatum
  8.         If datum >= "2.1.2015." And datum <= "4.1.2015." Then
  9.             broj = Val(Trim(Sheets("List2").Cells(red, datum.Column)))
  10.             kolona2 = Application.Index(Sheets("List3").Range("b1:b7"), WorksheetFunction.Match(broj, Sheets("List3").Range("A1:A7")))
  11.             kolona3 = Application.Index(Sheets("List3").Range("c1:c7"), WorksheetFunction.Match(broj, Sheets("List3").Range("A1:A7")))
  12.             kolona4 = Application.Index(Sheets("List3").Range("d1:d7"), WorksheetFunction.Match(broj, Sheets("List3").Range("A1:A7")))
  13.             Sheets("List1").Select
  14.             Cells(red1, 1) = datum
  15.             Cells(red1, 2) = ime
  16.             Cells(red1, 3) = kolona2
  17.             Cells(red1, 4) = kolona3
  18.             Cells(red1, 5) = kolona4
  19.         End If
  20.         red1 = red1 + 1
  21.     Next datum

Moze to i mnogo krace ali da bude isto ko tvoje.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.