Postcodes plaatsen

[Knuffelbeer]

Hallo iedereen,

Ik probeer al weken wat te vinden om postcodes te plaatsen, via vert.zoeken lukt het niet omdat in België sommige gemeenten eenzelfde postcode hebben.
De bedoeling is dat ik in dit geval een venstertje krijg met de gemeenten die in aanmerking komen en door met een eenvoudige klik de gemeente te selecteren en in andere cel te plaatsen.
Wat ik al geprobeerd heb staat in bijgevoegd werkblad. Ik sta ook altijd open voor verbeteringen op wat ik al maakte.

Dank dat jullie het willen bekijken

Julien (Knuffelbeer)

 

[huijb]

Het is mij een raadsel waarom je mij via een misbruikmelding verteld dat de data in het bestand fictief zijn.

 

[emields]

probeer deze eens

 

[DANIEL162]

Of deze eens.

 

[VenA]

Automatiseren in Excel gaat het beste als je gebruik maakt van een gestructureerde opzet en slim gebruik maakt van de ingebouwde mogelijkheden.

Nog niet geheel monkeyproof maar er zitten wel een aantal slimmigheden in

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, ListObjects(1).DataBodyRange.Columns(4)) Is Nothing Then
    ar = Sheets("Plaatsnamen alfabetisch").ListObjects(1).DataBodyRange
    For j = 1 To UBound(ar)
      If Target.Value = ar(j, 1) Then c00 = c00 & "," & ar(j, 3)
    Next j
    Target.Offset(, 1).ClearContents
    c00 = IIf(Len(c00) = 0, " Geen_postcode", c00)
    Target.Offset(, 1).Validation.Modify 3, , , Mid(c00, 2)
    If UBound(Split(Mid(c00, 2), ",")) = 0 Then Target.Offset(, 1) = Split(Mid(c00, 2))(0)
    Application.Goto Target.Offset(, 1)
  End If
End Sub

 

[Knuffelbeer]

probeer deze eens

Mooie oplossing, ik probeer ermee aan de slag te gaan dank U

 

[emields]

Als er geen verdere vragen zijn plaats dan in uw eerste post de vraag als opgelost.

 

[Knuffelbeer]

Het weekend heeft m de tijd gegeven om alles te proberen, ik weet nu dat jullie dat zeer goed gedaan hebben! Daarvoor hartelijke dank, mijn probleem is opgelost.