Beste Helper,
Ik heb het volgende probleem:
Ik heb onderstaande code die opzich prima werkt wanneer er 2 of meer cellen zijn ingevuld in kolom A. Wanneer alleen cel A2 is ingevuld dan werkt de code niet meer.
Hoe los ik dit op?
Sheets("Containers to be added").Select
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("B2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'Input Caslijst'!C[2]:C[24],21,0)"
Range("B2").AutoFill Destination:=Range("B2:B" & Lastrow)
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]"
Range("C2").AutoFill Destination:=Range("C2:C" & Lastrow)
Bedankt!!
Ik heb het volgende probleem:
Ik heb onderstaande code die opzich prima werkt wanneer er 2 of meer cellen zijn ingevuld in kolom A. Wanneer alleen cel A2 is ingevuld dan werkt de code niet meer.
Hoe los ik dit op?
Sheets("Containers to be added").Select
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("B2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'Input Caslijst'!C[2]:C[24],21,0)"
Range("B2").AutoFill Destination:=Range("B2:B" & Lastrow)
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]"
Range("C2").AutoFill Destination:=Range("C2:C" & Lastrow)
Bedankt!!