Hoogste inkoopprijs behouden bij dubbele waarden

[JW at Work]

Hoi ik heb in kolom A dubbele waarden staan.
Bij deze waarden horen inkoopprijzen in kolom B die wel of niet kunnen verschillen.
Ik wil graag de dubbele waarden filteren en de hoogste inkoopprijzen behouden.

Dit alles moet kunnen werken in Excel 2003 middels een macro.
Hopelijk herken je dit probreem of weet je misschien een oplossing?

Grtz JW

Hieronder een voorbeeldje:

 

[DCWDPT]

Voorbeeld

Wij begrijpen het ongetwijfeld beter met een voorbeeldje. Dus als je een klein voorbeeldbestand zonder gevoelige info, kunt plaatsen, krijg je sneller hulp.

 

[Wigi]

Ik zou daar een draaitabel op zetten, en dan MAX als Veldinstelling nemen zodat je het maximum uit kolom B krijgt. Niets VBA aldus.

Wigi

 

[snb]

voeg 1 rij in
zet in A1 : getal, in B1 bedrag

gebruik de volgende macro:

Sub tst()
  Range("D:K").ClearContents
  [A1:B1].Copy [G1]
  Columns(1).AdvancedFilter xlFilterCopy, [D1], [D1], True
  For Each cl In Columns(4).SpecialCells(xlCellTypeConstants, xlNumbers)
    [G2] = cl.Value
    [A1].CurrentRegion.AdvancedFilter xlFilterCopy, [G1].CurrentRegion, [J1:K1]
    cl.Offset(, 1) = WorksheetFunction.Max(Columns(11))
  Next
End Sub

In kolom D worden de unieke nummers uit kolom A gezet.
Per uniek nummer worden de gegevens uit kolom A en B gefilterd en in kolom J en K gezet.
Naast het unieke nummer in kolom D wordt de maximumwaarde uit kolom K gezet.

 

[JW at Work]

Ik zou daar een draaitabel op zetten, en dan MAX als Veldinstelling nemen zodat je het maximum uit kolom B krijgt. Niets VBA aldus.

Wigi

Hoi Wigi bedankt voor je reactie!! Ik heb idd MAX gebruikt om de hoogste prijs te behouden, dat werkt goed. Heb VERT.ZOEKEN gebruikt om de hoogste prijs te zoeken.

 

[JW at Work]

voeg 1 rij in
zet in A1 : getal, in B1 bedrag

gebruik de volgende macro:

Sub tst()
  Range("D:K").ClearContents
  [A1:B1].Copy [G1]
  Columns(1).AdvancedFilter xlFilterCopy, [D1], [D1], True
  For Each cl In Columns(4).SpecialCells(xlCellTypeConstants, xlNumbers)
    [G2] = cl.Value
    [A1].CurrentRegion.AdvancedFilter xlFilterCopy, [G1].CurrentRegion, [J1:K1]
    cl.Offset(, 1) = WorksheetFunction.Max(Columns(11))
  Next
End Sub

In kolom D worden de unieke nummers uit kolom A gezet.
Per uniek nummer worden de gegevens uit kolom A en B gefilterd en in kolom J en K gezet.
Naast het unieke nummer in kolom D wordt de maximumwaarde uit kolom K gezet.

Hey snb! Thanxz voor je macro! Werkt TOP!
Ik gebruik um inmiddels. Moest alleen ff de kolom letters aanpassen..

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost

Mvg

Rudi