Send unique values + top 2 header rows macro

[dutt45]

Hi All,

Just looking to see if someone could help me with this code i got from Ron De Bruin's website. It copies particular rows (+ the header row) of a sheet based on the value in column A, and pastes it into an Email body, sending to the applicable Email recipient in another tab. It works an absolute treat, except i need it to copy the unique values + the top 2 header rows (as opposed to just the top row). I

Any help would be much appreciated. Thanks in advance.

Please Login or Register  to view this content.

[dutt45]

If it helps, i've attached a simplified version of the Workbook i'm using.

Thanks

[dutt45]

Fairly certain i could achieve the desired result with The Operator Parameter (based on the value in cell A2), but can't quite get it to work.

[dutt45]

Finally got it...


'Filter the FilterRange on the FieldNum column
FilterRange.AutoFilter Field:=FieldNum, _
Field:=iCol, _
Criteria1:=Cws.Cells(Rnum, 1).Value, _
Operator:=xlOr, _
Criteria2:="Engineer"