View Single Post
 
Old 11-23-2015, 07:15 AM
Debaser's Avatar
Debaser Debaser is offline Windows 7 64bit Office 2010 32bit
Competent Performer
 
Join Date: Oct 2015
Location: UK
Posts: 221
Debaser will become famous soon enough
Default

Then:

Code:
With Sheets("Summary").Range("E22")
.FormulaArray = "=IFERROR(INDEX('1600 Daily'!G$3:G$300, SMALL(IF('1600 Daily'!$F$2:$F$300=1, ROW('1600 Daily'!$F$2:$F$300)-2),ROWS(G$2:G2))),"""")"
.AutoFill Destination:=.Range("E22", .Cells(.Range("M4").Value, "E")), Type:=xlFillDefault
End With
should work.
Reply With Quote