Nummeren

[Mansv1966]

Hoi,

ik heb een bestandje waar ik op Blad 2 Namen heb staan en daar een sortering op uitvoer en de gesorteerde lijst plak naar blad 1.
So far so good.

Alleen nu wil ik de geplakte records Automatisch nummeren in kolom A echter er komen Dubbele namen voor waarvan alleen de eerste genummerd dient te worden

Wie kan en wil me vertellen hoe ik dit het beste kan aanpakken?

Gr MansV1966

 

[VenA]

Je kan eens beginnen met het sorteren en verplaatsen te vereenvoudigen.

Sub VenA()
  With Cells(3, 3).CurrentRegion
    .Sort .Cells(1, 2), , .Cells(1), , , , , xlNo
    .Copy Sheets("Blad1").Cells(2, 3)
    'Sheets("Blad1").Cells(2, 3).Resize(.Rows.Count, 2) = .Value
  End With
End Sub

Kan je in het voorbeeldje even handmatig aangeven hoe je de nummering wil hebben? Of wil je alleen unieke namen overhouden?

 

[AlexCEL]

Deze voor B2 misschien?

=ALS(AANTAL.ALS(C$2:C2;C2)=1;MAX(B$1:B1)+1;"")

 

[VenA]

En dat is ook wel weer in de macro in te passen. Meerdere varianten zijn mogelijk maar deze is denk ik het beste te volgen.

Sub VenA()
  With Cells(3, 3).CurrentRegion
    .Sort .Cells(1, 2), , .Cells(1), , , , , xlNo
    .Copy Sheets("Blad1").Cells(2, 3)
  End With
  
  With Sheets("Blad1").Cells(2, 3).CurrentRegion.Offset(, -2)
    .FormulaR1C1 = "=IF(COUNTIF(R2C[2]:RC[2],RC[2])=1,MAX(R1C:R[-1]C)+1,"""")"
    .Value = .Value
  End With
End Sub

 

[Mansv1966]

Heren dank u wel voor de aangeboden oplossingen beiden werken prima
heb alleen nog een vraagje

@VenA

Met de volgende code:

Sub VenA()
  With Cells(3, 3).CurrentRegion
    .Sort .Cells(1, 2), , .Cells(1), , , , , xlNo
    .Copy Sheets("Blad1").Cells(2, 3)
  End With
  
  With Sheets("Blad1").Cells(2, 3).CurrentRegion.Offset(, -2)
    .FormulaR1C1 = "=IF(COUNTIF(R2C[2]:RC[2],RC[2])=1,MAX(R1C:R[-1]C)+1,"""")"
    .Value = .Value
  End With
End Sub

Plaatst hij ook in kolom B en dat hoeft niet hoe krijg ik er dat uit?

 

[VenA]

With Sheets("Blad1").Cells(2, 3).CurrentRegion.Offset(, -2)[COLOR="#FF0000"].Resize(, 1)[/COLOR]

 

[Mansv1966]

Thanks