Lookup vraag

[Revdutchie]

Grrr ik had gehoopt in dit project geen lookup nodig te hebben omdat ik er nog niets van begrijp, maar ik ontkom er niet aan.

Hoe doe ik in VBA de volgende lookup

Cel C6 moet de laatste waarde (onderste) zijn van Range D10 t/m D32

Alweer bedankt.

Jacques

 

[Warme bakkertje]

Bedoel je hiermee de kleinste waarde in het bereik ?

 

[Revdutchie]

Bedoel je hiermee de kleinste waarde in het bereik ?

Het zal idd de kleinste waarde zijn, al zou die 2 of 3 x voor kunnen komen maar dan wel onder elkaar, dus kleinste is goed.

Groeten,
Jacques

 

[Warme bakkertje]

Sub tst()
[c6] = WorksheetFunction.Small([D10:D32], 1)
End Sub

En hoe wil je deze lookup starten? Met een knop of na een bepaalde gebeurtenis?

 

[Revdutchie]

Sub tst()
[c6] = WorksheetFunction.Small([D10:D32], 1)
End Sub

En hoe wil je deze lookup starten? Met een knop of na een bepaalde gebeurtenis?

Die staat nu in me

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

In Kolom H vul ik scores in die die aftrekken van de laatste cel in Kolom D en het werkt

Nou moet ik nog uitvissen hoe ik kan sturen na enter naar de juiste cel te gaan.

Groeten,
Jacques

 

[Warme bakkertje]

Zo kan het ook, en tegelijkertijd wordt de cel met de kleinste waarde geselecteerd

Sub tst()
[c6].Value = Application.Min([D10:D32])
With [Blad1!D10:D32]
    Application.Goto Range(.Find(Application.Min([D10:D32]), , xlValues, xlWhole).Address)
End With
End Sub