x.zoeken vba

[don42]

beste allemaal wie kan mij helpen met dezeformule om te zetten naar VBA

Range("c2").Resize(65, 8) = "=XLOOKUP(RC2,Orgineel!R2C2:R65C2,Orgineel!R2C:R65C)"

dit heb ik gemaakt door een macro op te nemen

nu wil ik graag dat de waarde in de cellen komt en niet de formule
Dit is mijn poging

Range("c2").Resize(65, 8) = Application.WorksheetFunction.XLookup(Range("B2").Value, Sheets("orgineel"), Range("b2:b65"), Sheets("orgineel"), Range("c2:c65"))

wie helpt mij verder
bvd
Don

 

[JEC.]

Die eerste code in jouw bericht werkt bij mij gewoon

 

[don42]

# 2

Dat klopt ook dit werkt prima, alleen als ik een cel selecteer zie ik de formule staan =x.zoeken enz.
dacht het met de tweede code het voor elkaar te krijgen dat de waardes in de cel te krijgen en niet de formule

 

[JEC.]

Kun je anders je bestand even plaatsen?

 

[edmoor]

En zo?

Range("C2").Resize(65, 8) = Application.WorksheetFunction.XLookup(Range("B2").Value, Sheets("orgineel").Range("B2:B65"), Sheets("orgineel").Range("C2:C65"))

 

[JEC.]

Of check dit eens

Sub ConvertFormulasToValuesInSelection()
    Dim rng As Range
    For Each rng In Selection
        If rng.HasFormula Then
            rng.Formula = rng.Value
        End If
    Next rng
End Sub

Selecteer je bereik en voer macro uit

 

[jkpieterse]

Dan is

Selection.Value = Selection.Value

korter en heel veel vlotter

 

[don42]

#5
edmoor.

dit is er heel dicht bij
alleen nog

=X.ZOEKEN($B2;Orgineel!$B$2:$B$65;Orgineel!D$2:D$65)

B2 t/m b65 en D2t/m d65 vast zetten
in deze,

Range("C2").Resize(65, 8) = Application.WorksheetFunction.XLookup(Range("B2").Value, Sheets("orgineel").Range("B2:B65"), Sheets("orgineel").Range("C2:C65"))

 

[edmoor]

Ok dan

 

[don42]

#7
werkt prima

 

[don42]

Ok dan

Edmoor
wil jij mij laten zien hoe ik dit:

Sheets("orgineel").Range("B2:B65"), Sheets("orgineel").Range("C2:C65"))

moet vast zetten c$2$
bvd

 

[edmoor]

Dat staat al in de eerste code in #8 die je zelf plaatste.

 

[don42]

met de beste wil niet:

Range("C2").Resize(65, 8) = Application.WorksheetFunction.XLookup(RC2, Orgineel!R2C2, R65C2, Orgineel!R2C, R65C)

 

[edmoor]

Je plaatst nu ineens een totaal andere code.
Ik zei dus:

Dat staat al in de eerste code in #8 die je zelf plaatste.

Die 2e code in #8 is goed, alleen even de $ tekens op de juiste plek zetten, zoals in die eerste code.

 

[don42]

Dat heb ik nu gedaan

Maar

deze code wat de formule laat zien (en werkt)

Range("c2").Resize(65, 8) = "=XLOOKUP(RC2,Orgineel!R2C2:R65C2,Orgineel!R2C:R65C)"

deze code geeft allemaal de zelfde waardes

Range("C2").Resize(65, 8) = Application.WorksheetFunction.XLookup(Range("$B2").Value, Sheets("orgineel").Range("$B$2:$B$65"), Sheets("orgineel").Range("C$2:C$65"))

wat doe ik nou verkeerd?

 

[edmoor]

Die eerste code moet je gebruiken maar dan niet met de RC notatie maar met de A1 notatie en de $ tekens op de juiste plek.

 

[don42]

heb nu dit:
sorry ik zie het gewoon niet

Range("C2").Resize(65, 8) = Application.WorksheetFunction.XLookup("$b2,Orgineel!$b$2:$b$65,Orgineel!c$2:c$65")

 

[edmoor]

Ik kan het verder ook niet voor je testen omdat ik de versie waar Lookup in zit nog niet heb.
https://exceljet.net/excel-functions/excel-xlookup-function

 

[don42]

Ik geef het op
kom niet verder dan 65 rijen en 8 kolommen met de zelfde waarde

Range("c2").Resize(65, 8)

werkt hier niet
deze is net iets te groot voor mij
iedereen bedankt voor de hulp en tips
hou het bij:

Range("c2").Resize(65, 8) = "=XLOOKUP(RC2,Orgineel!R2C2:R65C2,Orgineel!R2C:R65C)"
Selection.Value = Selection.Value

niet wat ik graag wou maar komt het meest in de buurt

 

[edmoor]

De eerste zet een functie in het werkblad en gebruikt R1C1 notatie.
https://bettersolutions.com/excel/formulas/cell-references-a1-r1c1-notation.htm

De 2e haalt waarden op en zet deze in het werkblad.
Deze gebruikt de A1 notatie.