Goedemiddag,
Is het mogelijk om bij VBA de zoek criteria in de code erbij te schrijven ipv op de sheet?
Dus in dit voorbeeld dat hij hieruit zoekt alleen dan in de code erbij geschreven?
Brieven Binnenland 0 - 20 gr € 0,85
Brieven Binnenland 20 - 50 gr € 1,70
Brieven Binnenland 50 - 100 gr € 2,55
Brieven Binnenland 100 - 350 gr € 3,40
Brieven Binnenland 350 - 2000 gr € 4,10
Brieven Buitenland EUR1 0 - 20 gr € 1,44
Brieven Buitenland EUR1 20 - 50 gr € 2,88
Brieven Buitenland EUR1 50 - 100 gr € 4,32
Brieven Buitenland EUR1 100 - 350 gr € 7,20
Brieven Buitenland EUR1 350 - 2000 gr € 8,64
Brieven Buitenland EUR2 0 - 20 gr € 1,44
Brieven Buitenland EUR2 20 - 50 gr € 2,88
Brieven Buitenland EUR2 50 - 100 gr € 4,32
Brieven Buitenland EUR2 100 - 350 gr € 7,20
Brieven Buitenland EUR2 350 - 2000 gr € 8,64
Brieven Buitenland ROW 0 - 20 gr € 1,44
Brieven Buitenland ROW 20 - 50 gr € 2,88
Brieven Buitenland ROW 50 - 100 gr € 4,32
Brieven Buitenland ROW 100 - 350 gr € 7,20
Brieven Buitenland ROW 350 - 2000 gr € 8,64
Brieven C4 XL € 4,10
Als dat mogelijk is heeft dat nog een specifieke naam? Krijg geen voorbeeld gevonden helaas.
Is het mogelijk om bij VBA de zoek criteria in de code erbij te schrijven ipv op de sheet?
Code:
Sub PrijzenAanpassen()
Range("F10").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-4],R10C12:R34C13,2,0),RC[-1])"
Range("F10").Select
Dim lr As Long
lr = Cells(Rows.Count, "E").End(xlUp).Row
Selection.AutoFill Destination:=Range("f10:F" & lr)
Range("f10:F" & lr).Select
Range("f10:f" & lr).Copy
Range("E10:E" & lr).PasteSpecial Paste:=xlPasteValues
Range("f10:f" & lr).ClearContents
End Sub
Dus in dit voorbeeld dat hij hieruit zoekt alleen dan in de code erbij geschreven?
Brieven Binnenland 0 - 20 gr € 0,85
Brieven Binnenland 20 - 50 gr € 1,70
Brieven Binnenland 50 - 100 gr € 2,55
Brieven Binnenland 100 - 350 gr € 3,40
Brieven Binnenland 350 - 2000 gr € 4,10
Brieven Buitenland EUR1 0 - 20 gr € 1,44
Brieven Buitenland EUR1 20 - 50 gr € 2,88
Brieven Buitenland EUR1 50 - 100 gr € 4,32
Brieven Buitenland EUR1 100 - 350 gr € 7,20
Brieven Buitenland EUR1 350 - 2000 gr € 8,64
Brieven Buitenland EUR2 0 - 20 gr € 1,44
Brieven Buitenland EUR2 20 - 50 gr € 2,88
Brieven Buitenland EUR2 50 - 100 gr € 4,32
Brieven Buitenland EUR2 100 - 350 gr € 7,20
Brieven Buitenland EUR2 350 - 2000 gr € 8,64
Brieven Buitenland ROW 0 - 20 gr € 1,44
Brieven Buitenland ROW 20 - 50 gr € 2,88
Brieven Buitenland ROW 50 - 100 gr € 4,32
Brieven Buitenland ROW 100 - 350 gr € 7,20
Brieven Buitenland ROW 350 - 2000 gr € 8,64
Brieven C4 XL € 4,10
Als dat mogelijk is heeft dat nog een specifieke naam? Krijg geen voorbeeld gevonden helaas.