Ontdubbelen exel 2003

[Djaf]

ik wil graag de macro in kolom B laten zoeken op dubbelen, omdat in Kolom A een getal staat dat automatisch + 1 op dit werkblad wordt opgeslagen. Dit getal heb ik nodig voor in een lijst met invoegveld.

Wat de formule doet is de bovenste regel verwijderen als er dubbele zijn.

Dus klopt mijn nummer in kolom A niet meer.

voorbeeld op regel 2 staat het zelfde als in regel 18 in kolom B, nu heeft het artikel na de macro een ander nummer gekregen, namelijk 18 in plaats van 2.

Als ik nu op mijn lijst met invoegveld kijk, ben ik nummer 2 kwijt hier staat #NB

Nu Mijn vraag.... is het mogelijk om de bovenste regel te laten staan en de onderste regel te verwijderen als ik de macro ontdubbelen afspeel?

Zo ja, wil je dit hier dan kenbaar maken.

Groetjes en bedankt :shocked:

 

[m@rio]

Welkom,

Ik heb je vraag een eigen plaats gegeven aangezien het op Helpmij niet de bedoeling is om in andermans vraag je eigen vraag te stellen.

 

[Warme bakkertje]

Een voorbeeldbestandje met macro zal allicht helpen om een oplossing te bedenken

 

[wiki]

Volgens mij moet deze code werken.
De regel nextcell.EntireRow.Interior.ColorIndex = 3 'kleurt de dubbele in
om deze te verwijderen moet de volgende regel gebruikt worden.

Sub Uniek()
'
' Uniek Macro
'

'
Application.Calculation = xlManual
Application.ScreenUpdating = False


Set currentCell = Range("b2")
Do While Not IsEmpty(currentCell)
Set nextcell = currentCell.Offset(1, 0)
If nextcell.Value = currentCell.Value Then
nextcell.EntireRow.Interior.ColorIndex = 3 'kleurt de dubbele in
'nextcell.EntireRow.Delete 'verwijdert bij een dubbele waarde de eerste rij
End If
Set currentCell = nextcell
Loop
Range("a1").Select

Application.Calculation = xlAutomatic
Application.ScreenUpdating = True

End Sub

mvg Wim

 

[robdgr]

Het woord ontdubbelen in een zoekopdracht, had je dit opgeleverd.