Index Match functie in VBA

Status
Niet open voor verdere reacties.

Vandelx10

Gebruiker
Lid geworden
1 feb 2012
Berichten
13
Goedemorgen,

Ik hoop dat iemand mij hiermee kan helpen, ik kom er zelf gewoon niet uit.

Ik ben een bestand aan het maken en het liefst wil de index/match formule in een vba gebruiken.
Ik wil hem graag zo maken dat ik kan zien, wanneer ik op de knop druk dat, de resultaten van een persoon op een bepaalde dag van een activiteit.

Hoe langer ik naar mijn scherm staar, hoe minder ik ervan begin te begrijpen.
Kan iemand mij in de juiste richting duwen.

Alvast bedankt

Groet Luuk
 

Bijlagen

  • Voorbeeld.xlsx
    19,2 KB · Weergaven: 38
Probeer het zo eens
Code:
Sub VenA()
  ar = Sheets("Data").Cells(1).CurrentRegion
  With Sheets("Verwerking")
    For j = 2 To UBound(ar)
      r = Application.Match(ar(j, 2), .Columns(1), 0)
      c = Application.Match(CDbl(ar(j, 1)), .Rows(4), 0)
      If IsNumeric(r) And IsNumeric(c) Then .Cells(r, c).Resize(8) = Application.Transpose(Application.Index(ar, j, Array(3, 4, 5, 6, 7, 8, 9, 10)))
    Next j
  End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan