macro die zoekfuctie verwijdert en de gevonden waarde laat staan.

Goedenavond allemaal,

Ik heb 2500 nummers waar in een tabel waarden bijgezocht moeten worden.
Maar als dat cijfer twee keer wordt toegevoegd, krijg ik de dubbele waarde.
Omdat ik de cijfers die erbij moet zoeken batchmatig krijg, moet ik elke keer de gevonden waarden veranderen in de gezochte waarde veranderen. ( voor het geval ik hem meerdre keren krijg)
In mijn voorbeeld bestand moeten de cijfers die in het geel zijn een een gevonden waarde veranderen in de waarde. ( het resultaat van de formule dus)
Ik benieuwd of het kan, of dat ik nog een paar weken moet door prutsen.

Groeten Henk,

Bekijk bijlage vb hm 2019.xlsx

Kopiëren → plakken speciaal → waarden.
Of kan dat niet?

na 2 keer lezen heb ik nog steeds de vraag niet begrepen.
Als e geen formule mag staan, is een draaitabel dan OK ?

Bedankt voor jullie hulp

Hallo HSV

IK heb idd de selectie van 2500 monsters gekopieerd.
Vervolgens de nullen verwijderd.
En vervolgens de selectie zonder de de nullen teruggekopieerd. ( met als resultaat dat de formules die nog geen resltaat hadden blijven staan)

:thumb::thumb::thumb:

Range("C2:F2556").Select
Selection.Copy

Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


Range("G2:J2556").Select
Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False

Range("G2:J2556").Select
Selection.Copy

Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Application.CutCopyMode = False


Range("G2:J2556").Select
Selection.ClearContents

End Sub