Predmet:Re: VBA Excel Vlookup Vs Index(Match)
PreuzmiIzvorni kôd (Visual Basic):indeksmath:
'sa INDEX(MATCH) NEZNAM
Dim a As Integer
Dim b
Set rngDatum = Sheets("List2").Range("B1:G1")
red = Application.WorksheetFunction.Match(ime, Sheets("List2").Range("A:A"), 0)
For Each datum In rngDatum
If datum >= "2.1.2015." And datum <= "4.1.2015." Then
broj = Val(Trim(Sheets("List2").Cells(red, datum.Column)))
kolona2 = Application.Index(Sheets("List3").Range("b1:b7"), WorksheetFunction.Match(broj, Sheets("List3").Range("A1:A7")))
kolona3 = Application.Index(Sheets("List3").Range("c1:c7"), WorksheetFunction.Match(broj, Sheets("List3").Range("A1:A7")))
kolona4 = Application.Index(Sheets("List3").Range("d1:d7"), WorksheetFunction.Match(broj, Sheets("List3").Range("A1:A7")))
Sheets("List1").Select
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
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.