Keuze excel adhv criteria

[rickoa]

Hallo,

Een vraagje van mijn kant.
Ik heb een aantal dubbelingen in het artikel systeem door een migratie van 2 bedrijven
Aan de hand van verschillende criteria wil ik voor het juiste artikel kiezen

Het excel bestand spreekt denk ik voor zich.

Leveranciersnummer is gelijk

Criteria 1 is leidend daarna 2, 3, 4 etc.

Mochten alle criteria gelijk zijn heb ik op basis van het laatste veld (Criteria 6, een veld gemaakt wat altijd kiest voor het kortste artikelnr.)

Hoe kan ik de keuze per artikel maken.

Alvast bedankt

 

[JEC.]

Er zijn criteria, maar hoe zie je de afweging voor je? Wanneer kies je voor de een en wanneer voor de ander? "Ja" en "Nee" schaar ik niet onder beoordelingen
Kun je ook een paar gewenste antwoorden in je bestand zetten?

 

[rickoa]

Criteria 1 is het belangrijkst, daarna 2 etc.

Artikel 1 komt 2x voor als de 1e bij Criteria 1 Ja heeft is de keuze al gemaakt. bij gelijke stand kijk naar criteria 2 etc naar criteria 3

Criteria 2 komt er alleen bij als ze beide wel of niet over criteria 1 beschikken (bij een gelijke stand)

 

[rickoa]

Bijgevoegd nog een extra voorbeeldje hoop dat het duidelijker is zo.

 

[JEC.]

Heb je office 365?
Kan een artikel in werkelijkheid meer dan 2 keer voorkomen?

Als er van alles maar 2 artikelnummers zijn:

Sub jv()
 With Sheets(1).ListObjects(1)
  For i = 1 To .ListRows.Count Step 2
     For ii = 5 To 10
       If ii = 10 Then .DataBodyRange(i, 11) = "Ja"
         If .DataBodyRange(i, ii) > .DataBodyRange(i + 1, ii) Then
                .DataBodyRange(i, 11) = "Ja"
                GoTo Volgende
         ElseIf .DataBodyRange(i, ii) < .DataBodyRange(i + 1, ii) Then
                .DataBodyRange(i + 1, 11) = "Ja"
                GoTo Volgende
         End If
     Next
Volgende:
  Next
 End With
End Sub

 

[rickoa]

Het kan ook voorkomen dat een artikel vaker dan 2 keer voor komt..

 

[VenA]

Is niet zo'n heel inhoudelijke reactie. Volgens mij heb je hetzelfde toetsenbord als ik.. Blijft de punt ook wel eens vasthangen.
De code heb je getest?
Werk je met Office 365?
Plaats een representatief bestand....

 

[cow18]

zo met VBA ?
of anders ook met formules en sorteren ...