Goedemorgen,
Ik gebruik verticaal zoek en autofill voor mijn facturen te veranderen met de volgende code:
Dit werkt goed en hij zet ook als hij niet in het verticaal zoeken staat de waarde uit de cel terug, alleen als ik maar 1 regel heb krijg ik een fout melding doordat hij de autofill niet kan doen.
Fout 1004 tijdens uitvoering, methode autofill van klasse range is mislukt. Begrijpelijk want er is dan niets dat hij kan autofillen.
Nu had ik de volgende code gevonden:
alleen deze werkt dus wel met 1 regel maar zodra het meerdere regels zijn vult hij alleen de eerste cel en de rest blijft blanco, en als de waarde niet in het verticaal zoeken voorkomen wist hij ook alle andere cellen
Kan iemand vertellen waarom?
alvast bedankt.
Ik gebruik verticaal zoek en autofill voor mijn facturen te veranderen met de volgende code:
Code:
Sub TienProcent()
Range("F10").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-4],Blad1!R28c1:Blad1!R52C2,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
Dit werkt goed en hij zet ook als hij niet in het verticaal zoeken staat de waarde uit de cel terug, alleen als ik maar 1 regel heb krijg ik een fout melding doordat hij de autofill niet kan doen.
Fout 1004 tijdens uitvoering, methode autofill van klasse range is mislukt. Begrijpelijk want er is dan niets dat hij kan autofillen.
Nu had ik de volgende code gevonden:
Code:
Sub Test()
Range("F10").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-4],Blad1!R55c1:Blad1!R79C2,2,0),rc[-1])"
Dim lr As Long
lr = Cells(Rows.Count, "E").End(xlUp).Row
If lastrow > 2 Then Range("F10").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
alleen deze werkt dus wel met 1 regel maar zodra het meerdere regels zijn vult hij alleen de eerste cel en de rest blijft blanco, en als de waarde niet in het verticaal zoeken voorkomen wist hij ook alle andere cellen
Kan iemand vertellen waarom?
alvast bedankt.