S
Solutions Manager
Here is a snippet of my code:
Range("Z2:Z100).FormulaR1C1 =
"=IF(ISBLANK(RC1),"""",CONCATENATE(VLOOKUP(msr!R2C2,tbl.markets,2,0),(TEXT(msr!R4C2,""mmddyy"")),""-"",(TEXT(ROW(RC[-25])-1,""000""))))"
Columns("Z:Z").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=True, Transpose:=False
Range("Z2:Z100).FormulaR1C1 =
"=IF(ISBLANK(RC1),"""",CONCATENATE(VLOOKUP(msr!R2C2,tbl.markets,2,0),(TEXT(msr!R4C2,""mmddyy"")),""-"",(TEXT(ROW(RC[-25])-1,""000""))))"
Columns("Z:Z").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=True, Transpose:=False