Data uit rijen halen bij dubbele waarde in kolom

[Spectrum7Vlr]

Allen,

Op basis van ruwe data uit ons boekhoudsysteem wil ik graag aanmaanbrieven opmaken voor openstaande facturen van klanten door deze eerst in Excel te trekken (automatische verzendlijst in Word). In principe geen probleem tot er verschillende facturen openstaan voor éénzelfde klant. In het voorbeeldbestand kan je zien dat ik graag de factuurnummer, datum en saldo van de dubbele klantnummerwaarde wil verplaatsen naar de eerste lijn van het klantnummer om het toch op één aanmaanbrief te krijgen i.p.v. één brief per factuur (na verplaatsen dienen de rijen van de verplaatste waarden verwijderd te worden).

Jullie enig idee?

Bekijk bijlage Voorbeeldbestand.xlsx

Alvast bedankt !

 

[gast0660]

Hoi,
Helpt deze u verder?

 

[Spectrum7Vlr]

Perfect. Thanks gast0660 ! :thumb:

 

[gast0660]

Hoi,
Dank voor de terugkoppeling.
Als je voor de factuurbedragen 2 cijfers na de komma wilt kan je volgende regel

Cells(cid.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = zoekE

vervangen door

With Cells(cid.Row, Columns.Count).End(xlToLeft).Offset(0, 1)
    .Value = zoekE
    .NumberFormat = "$#,##0.00"