Blobajob88
Board Regular
- Joined
- Mar 27, 2020
- Messages
- 55
- Office Version
- 365
- 2019
- Platform
- Windows
Hi,
Can anyone break this line of code down for me:
Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 9).Select
activecell.FormulaR1C1 = _
"=SUBSTITUTE(IF((IFERROR(VLOOKUP(RC[-5],[Methodology.xlsm]DATA!R1320C[-8]:R1576C[-8],1,FALSE),""""))<>"""",VLOOKUP(RC[-5],[Methodology.xlsm]DATA!R1220C[-8]:R1576C[-8],1,FALSE),""""),""-"",""_"")"
Selection.AutoFill Destination:=Range(activecell, Range("I2")), Type:=xlFillDefault
Especially the R1220C..:R1576C part
Thanks
Ben
Can anyone break this line of code down for me:
Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 9).Select
activecell.FormulaR1C1 = _
"=SUBSTITUTE(IF((IFERROR(VLOOKUP(RC[-5],[Methodology.xlsm]DATA!R1320C[-8]:R1576C[-8],1,FALSE),""""))<>"""",VLOOKUP(RC[-5],[Methodology.xlsm]DATA!R1220C[-8]:R1576C[-8],1,FALSE),""""),""-"",""_"")"
Selection.AutoFill Destination:=Range(activecell, Range("I2")), Type:=xlFillDefault
Especially the R1220C..:R1576C part
Thanks
Ben