Cellen opzoeken en vervangen

[MarcSch]

Kan iemand mij helpen met dit probleempje?
Ik heb ergens macro gekopieerd die uit een excel bestand bepaalde gegevens overbrengt naar ander excel bestand wanneer hij wordt aangeklikt.
Dit werkt perfect maar ik zoek nu een manier om wanneer een bepaalde waarde voorkomt in doelbestand deze lijn te vervangen door de nieuwe ingebrachte lijn.
M.a.w. ik breng cellen A1, B1,C1,D1 in bestand en aktiveer makro die deze cellen overbrengt naar nieuw bestand.Indien echter de waarde in cel A1 al voorkomt in kolom A van doelbestand moet deze rij vervangen worden door de nieuwe ingebrachte gegevens in A1,B1,C1,D1.
Alvast bedankt.

 

[Demeter]

Probeer dit eens met een loop:

Sub test_loop ()
Dim c as Range

For each c in Range("A:A")
    if c = "hier komt je vergelijking" Then
        hier komt de code als de vergelijking waar is
    Else
       hier komt de code als de vergelijking onwaar is
    End If
Next

End Sub

Is ook handig als je hier je file aanhangt (zonder prive gegevens).
Kunnen we er naar kijken en een maat gemaakt oplossing geven.

Groet,
Ferenc

 

[MarcSch]

Bedankt

Bedankt voor je snelle reactie.
Ik heb het betreffende bestand en macro allen op pc op werk staan.
Ik probeer het daar morgen uit en als het me niet lukt zal ik de gebruikte macro morgenavond in bijlage opsturen.

Bedankt en nog een prettige avond.

 

[Wigi]

Probeer dit eens met een loop:

Sub test_loop ()
Dim c as Range

For each c in Range("A:A")
    if c = "hier komt je vergelijking" Then
        hier komt de code als de vergelijking waar is
    Else
       hier komt de code als de vergelijking onwaar is
    End If
Next

End Sub

Is ook handig als je hier je file aanhangt (zonder prive gegevens).
Kunnen we er naar kijken en een maat gemaakt oplossing geven.

Groet,
Ferenc

Probeer toch af te stappen van de lus, en zeker niet door een hele kolom (A) te gaan :shocked: Kan wel eens lang duren...

 

[Demeter]

Wigi,

Je hebt helemaal gelijk.
Maar in mijn hoofd zit nog vol met loops.
En waar het hoofd van vol zit loopt de mond mee over (iets verbasterd).
Ging ook om het voorbeeld.


Groet,
Ferenc

 

[Wigi]

Zoiets is goed om op papier of in het hoofd een oplossing uit te werken. Dan volgt die klik wel dat er betere methoden zijn.

Voor weinig gegevens weegt het nadeel van lussen misschien zelfs niet op tegen het voordeel van de betere methoden. Die zijn nl. wat moeilijker om te programmeren dan lussen.

Wigi

 

[MarcSch]

Wat Meer Info Over Mijn Vraag

Hoi hier ben ik terug met mijn vraagje, aan de hand van loops slaag ik niet in mijn opzet.
In bijlage stuur ik bestandje met de macro met nog een poging om te verduidelijken wat ik juist tracht te bereiken.
Alvast bedankt aan iedereen die een poging wil ondernemen mij te helpen !!