row headings

[verluc]

I have a sheet1 where I run a macro that makes a filter and than copy the result of this filter to sheet2.
I like to add also the row headings from sheet1 to sheet2.
How can I do that within the same macro?
Many thanks.

 

[Legacy 98055]

Hi
Assuming that your headers are in row 1.

Sheets("Sheet1").Rows("1:1").Copy Destination:= _
Sheets("Sheet2").Rows("1:1")

Tom

 

[verluc]

On 2002-04-23 01:21, TsTom wrote:
Hi
Assuming that your headers are in row 1.

Sheets("Sheet1").Rows("1:1").Copy Destination:= _
Sheets("Sheet2").Rows("1:1")

Tom

Thanks Tom,but what if sheet2 is in anoter workbook?Is this possible?
Thanks in advance

 

[Colo]

Hi verluc. Pls try this.
<pre>
Sheets("Sheet1").Rows(1).Copy _
Workbooks("NameOfAnotherBook.xls").Sheets("Sheet2").Rows(1)
</pre>

Regards,
Colo

 

[verluc]

On 2002-04-23 01:11, verluc wrote:
I have a sheet1 where I run a macro that makes a filter and than copy the result of this filter to sheet2.
I like to add also the row headings from sheet1 to sheet2.
How can I do that within the same macro?
Many thanks.

In my question I like to add the row headings but is this also possible to add several cells in place of the hole row?
Many thanks