kishorkhanal
Active Member
- Joined
- Mar 23, 2006
- Messages
- 434
I want unique values from DailyJobs worksheet cells B4:B2199 to FixErrors worksheet cells B4:B2199. Please suggest a better option or correct the following two options.
Sub CopyUniques()
Worksheets("DailyJobs").Columns("B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Worksheets("FixErrors").Range("B4"), Unique:=True
End Sub
AND
=IF(ROWS($B$4:B4)>SUM((DailyJobs!$B$4:$B$2199<>"")/(COUNTIF(DailyJobs!$B4:$B$2199,DailyJobs!$B4:$B$2199)+(DailyJobs!$B4:$B$2199=""))),"",INDEX(DailyJobs!$B4:$B$2199,MIN(IF(COUNTIF($B$3:B3,DailyJobs!$B4:$B$2199)=0,IF(DailyJobs!$B4:$B$2199<>"",ROW(DailyJobs!$B4:$B$2199)-ROW(DailyJobs!$B4)+1)))))
I would like to copy formula down from cell B4 to B2199. I don't need blank as unique value, if possible.
Sub CopyUniques()
Worksheets("DailyJobs").Columns("B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Worksheets("FixErrors").Range("B4"), Unique:=True
End Sub
AND
=IF(ROWS($B$4:B4)>SUM((DailyJobs!$B$4:$B$2199<>"")/(COUNTIF(DailyJobs!$B4:$B$2199,DailyJobs!$B4:$B$2199)+(DailyJobs!$B4:$B$2199=""))),"",INDEX(DailyJobs!$B4:$B$2199,MIN(IF(COUNTIF($B$3:B3,DailyJobs!$B4:$B$2199)=0,IF(DailyJobs!$B4:$B$2199<>"",ROW(DailyJobs!$B4:$B$2199)-ROW(DailyJobs!$B4)+1)))))
I would like to copy formula down from cell B4 to B2199. I don't need blank as unique value, if possible.