Vertikaal zoeken

[Oude leerling]

Geacht forum

De waarden in F3 en F4 moeten worden opgeteld bij de betreffende persoon in Blad2
Kunt u me hierbij helpen?





jaapBekijk bijlage Test VERT.ZOEKEN.xlsx

 

[Wigi]

bijvoorbeeld:

=VERT.ZOEKEN(A4;Blad1!$A$3:$G$30;6;ONWAAR)

 

[Oude leerling]

Wigi , maar hoe dan met een VBA-code

 

[HSV]

Bedoel je dit Jaap?

Sub optel()
Dim cl As Range, c As Range
For Each cl In Sheets("blad1").Columns(6).SpecialCells(-4123)
  Set c = Sheets("blad2").Columns(3).Find(cl.Offset(, -3))
    If Not c Is Nothing Then c.Offset(, 1) = c.Offset(, 1) + cl.Value
 Next cl
End Sub

alsook:

Sub optel()
Dim cl As Range, c As Range
For Each cl In Sheets("blad1").Columns(3).SpecialCells(2)
  Set c = Sheets("blad2").Columns(3).Find(cl).Offset(, 1)
    If Not c Is Nothing Then c = c + cl.Offset(, 3).Value
 Next cl
End Sub

 

[Wigi]

Sub Macro1()
    Range("D4:D31").Formula = "=VLOOKUP(A4,Blad1!$A$3:$G$30,6,FALSE)"
End Sub

 

[Oude leerling]

HSV,
Ja hoor dat was wat ik bedoelde. Het werkt
Bedankt voor de snelle reactie ,
Jaap

 

[Oude leerling]

HSV,
Als het mag nog een vraag
De code behandeld alle namen
Hoe ziet de code er uit als het alleen om de eerste 2 namen gaat. F3 en F4
Jaap

 

[HSV]

Zeker mag dat, al is het wel speciaal aan mij gericht wat niet de bedoeling is natuurlijk van een forum.

De eerste code werkt op de formules in kolom F ("specialcells(-4123)") , en dat waren er maar twee (F3 en F4).
Moet het iets anders?

 

[Oude leerling]

Sorry HSV , ik had me meer moeten verdiepen in wat ("specialcells(-4123)") betekende.
Omdat ik dat niet snapte heb ik gekozen voor die 2e oplossing.
Ik begrijp het nu.
Dank je wel.
Jaap