postcode range met bij behorend tarief

[thst]

Hoi excel experts,

Heb een kolom met postcode range, een kolom met tarieven en een kolom met afstanden.

1000-1119 0,39 200
1120-1159 0,42 123
1160-1179 0,37 45
1180-1199 0,39 78
1200-1249 0,45 56
1250-1269 0,32 90

wat ik graag zou willen is dat ik op een ander werkblad een postcode intyp bijvoorbeeld 1162 als uitkomst 45 x 0,37 = 16,35 te zien krijg.

Kan iemand me hiermee helpen ?

Bedankt Angela

 

[richard1970]

Beste Angela,

Als je je tabel anders opbouwd zoals in de bijlage, èn je zorgt ervoor dat de ranges sluitend zijn, dan is het met vertikaalzoeken prima op te lossen. Zie bijlage.

Groeten,

Richard

 

[Roncancio]

Onderstaande macro kan je in de Visual Basic Editor via:

* Alt -F11
* Extra - Macro - Visual Basic Editor

De postcode (die in cel E1 staat) wordt vergeleken met het laatste getal van de postcode op elke regel. Zodoende wordt bepaald in welke categorie de postcode valt.
Vervolgens worden de cellen in de B en C kolom van de gevonden postcode met elkaar vermenigvuldigt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rij, Pc As Integer
Pc = Range("E1")
Rij = 1
While Pc > Val(Right(Worksheets(2).Cells(Rij, "A"), 4))
Rij = Rij + 1
Wend
[e2] = Worksheets(2).Cells(Rij, "B") * Worksheets(2).Cells(Rij, "C")
End Sub

Bijgevoegde jpg-file geeft aan waar je code moet plaatsen.

 

[CorVerm]

Angela,

Een oplossing vind je in het bestandje.

 

[thst]

Hartelijk dank allemaal