Copy Application.Union(c.Offset(0, 1), c.Offset(0, 2)... to a list on same & another sheet
Hi Howard,
Am Sat, 28 Sep 2013 13:28:06 +0200 schrieb Claus Busch:
Sheets("Sheet11").Cells(Rows.Count, "K").End(xlUp)(2) _
.Resize(myCount + 1, 4) = varOut
but now:
Sheets("Sheet11").Cells(Rows.Count, "K").End(xlUp)(2) _
.Resize(myCount + 1, 5) = varOut
Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
|