vervangen van een artikel

[HWV]

Beste,

Ik gebuik de hieronder vermelde code om een aantal nummers te veranderen.
In totaal rond de 350 nummers op een lijst van 9000 regels die veranderd moeten worden.
Ik gebruik nu replace maar dat is een aardige job om deze te defineren.
Nu kan het zo zijn dat er nog artikelnummers bij komen maar daarom zou ik het liefst het volgende voor elkaar kijgen

workbooks ("Conversie.xls").Sheets("Opslag") kolom (2)
daar staan de artikelnummers die vervangen dienen te worden

workbooks ("Artikelen betaald op voorraad.xls").Sheets("Omnummeren") daar heb ik de omnummer lijst staan. In kolom (1) de huidige artikelnummers en in kolom (2) de vervanger hiervoor.

Is hier een makkelijkere oplossing voor ? zodat ik deze uit de variable lijst kan halen en dan de gegevens veranderen in kolom 2 van een andere workbook

Sub tst()

Columns(2).Replace "9960406", "9960406-X"
Columns(2).Replace "9960430", "9960430-X"
Columns(2).Replace "9960449", "9960449-X"
Columns(2).Replace "9960457", "9960457-X"
Columns(2).Replace "9960465", "9960465-X"
Columns(2).Replace "9960473", "9960473-X"
Columns(2).Replace "9960481", "9960481-X"
Columns(2).Replace "9960600", "9960600-X"
Columns(2).Replace "9999329", "9999329-X"
Columns(2).Replace "9999337", "9999337-X"
Columns(2).Replace "9999361", "9999361-X"
Columns(2).Replace "9999396", "9999396-X"
Columns(2).Replace "9999400", "9999400-X"

End Sub

enz enz

 

[richard1970]

Iets als:
for each cell in....
value =value&'-X'


Richard

 

[HWV]

misschien niet helemaal

Beste,

Bedankt voor jou reactie.

Het is ook nog zo dat er andere artikelnummers tussen zitten die niet de -x erbij krijgen.

Heb zitten kijken maar kom er niet verder mee , heb ook al de sugestie van SNB erbij gepakt in een vorige topic maar het gaat tot nu toe nog niet echt lukken.

http://www.helpmij.nl/forum/showthread.php?t=482661

groet HWV

 

[Warme bakkertje]

Je zal dan toch volgens een bepaald criteria de te wijzigen nummers er eerst moeten uitfilteren en dan kan je met een stukje code de X-en erachter plaatsen. Zijn de nummers echter willekeurig dan zal het toch nummer per nummer moeten vrees ik

 

[HWV]

Voor elkaar maar kan misschien anders

Beste,

Ik heb het via een omweg voor elkaar gekregen.

Ik zoek eerst in het omnummer sheet naar dezelfde waarde`s, die plaats ik dan in conversie kolom D.
Vervolgens ga ik zoeken in de sheet conversie in kolom D op waarde`s groter als 0 als deze gevonden zijn dan de cel verplaatsen naar kolom A.
En vervolgens de hulp kolom verwijderen in kolom D.

Sub VerticaalZoeken()

 On Error Resume Next
 
For j = 2 To Sheets("Opslag").Cells(Rows.Count, 1).End(xlUp).Row
     With Workbooks("Helpmij met vervangen artikelnummers.xls").Sheets("Omnummeren").Columns(1).Find(Sheets("Opslag").Cells(j, 1).Value)
        .Offset(, 1).Copy Sheets("Opslag").Cells(j, 4)
      End With
Next

For i = 1 To Range("D65000").End(xlUp).Row
    If Cells(i, 4) > 0 Then
    Cells(i, 1) = Cells(i, 4).Value
    End If
Next i

Columns("D").Delete

End Sub

Misschien kan er nog wat bij gepijkert worden aan deze formule, ik hou me graag aanbevolen maar deze werkt.
Groet HWV