Macro om gegevens in andere cellen aan te passen

[Thomas1985]

Beste Forum genoten,

Thans ben ik verantwoordelijk voor een deel van de boekhouding op mijn werk.

Ben tegen het volgende probleem aangelopen, dat in kolom A op een aantal hoofdrekeningen onjuist zijn, gezien de Postcode (kolom B). Dit is met name het geval bij de volgende postcodes:
- Postcode 03.01 moet hoofdrekening 2993 worden
- Postcode 03.02 moet hoofdrekening 2992 worden
- Postcode 03.03 moet hoofdrekening 2998 worden

Nu kan het ook met een formule, maar elke week wordt deze lijst langer en langer, en daarmee ook steeds onbewerkbaarder. Is er een macro code te bedenken die alle gegevens in kolom B kan checken in in geval van de bovenstaande postcodes de hoofdrekening in kolom A zou kunnen aanpassen?

Mocht er nog meer informatie nodig zijn, dan hoor ik het graag.

 

[AD1957]

probeer dit eens, zal zeker wel eenvoudiger kunnen.

Sub Aanpassen()
i = Range("B" & Rows.Count).End(xlUp).Row

For Each ct In Range("B2:B" & i)
 Select Case ct
    Case "03.01"
        ct.Offset(, -1) = 2993
    Case "03.02"
        ct.Offset(, -1) = 2992
    Case "03.03"
        ct.Offset(, -1) = 2998
  End Select
Next
End Sub

 

[Thomas1985]

Meteen even je code toegepast. Mijn dank is zeer groot! Het werkt perfekt!

Mijn dank is groot!

Met vriendelijke groet,

Thomas1985

 

[AD1957]

Graag gedaan.

 

[JEC.]

Formule (office 365)
Met in G1:I1 je betreffende postcodes. Respectievelijk 03.01, 03.02, 03.03

=IFERROR(CHOOSE(MMULT(SIGN(COUNTIFS(B2:B549;G1:I1;B2:B549;B2:B549));SEQUENCE(3));2993;2992;2998);A2:A549)

 

[edmoor]

Of zo.
Wel zelf even de juiste postcodes invullen: