Wie weet deze Oplossing??

[stonechest]

In het bijgevoegde excel bestand wil ik graag het een en het ander veranderen.

Op tablad 'Magazijn Balans' heb ik allemaal verschillende soorten aantallen en de bijbehorende prijs genoteerd in twee kolommen.

Op het tweede tabblad 'Uitgewerkte Balans' zijn vervolgens alle aantallen met dezelfde prijs bij elkaar opgeteld. Hoe kan ik nou zorgen dat de dubbele prijzen eruit verdwijnen, zodat die prijs nog maar 1 keer voorkomt.

Wie helpt mij aub?

Groeten,

Roy

 

[Wigi]

Hier is het maar weer Roy.

Sub deletededubbele()
Dim l As Long, lngRow As Long
lngRow = Range("B" & Rows.Count).End(xlUp).Row
For l = lngRow To 3 Step -1
    If WorksheetFunction.CountIf(Range("B1").Resize(l - 2), Range("B" & l)) > 0 Then Rows(l).Delete
Next
Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).FillDown
End Sub

Wigi

 

[Wigi]

[Roy heeft mij gemaild.]

- Doe Alt-F11, je komt in de VBE editor
- zoek je bestand op in Project, dubbelklik erop
- doe Invoegen > Module
- plak de code die ik schreef, in de module, dus in het witte scherm
- doe Alt-F11 om terug te keren
- doe Alt-F8 en voer de (juiste) macro uit op het werkblad dat je wilt

Wigi