hiya i'm having trouble, i have a workbook with 3 sheet on

in sheet 1 i have a list off numbers, i need them numbers to be copied into
sheet 2,
here's the problem i only want the numbers showing to be copied.
i.e
sheet1
a: i filter this down to a:
1001 1001
1002 1003
1003
this list is over 1000 lines long.

what i need is for the filtered amounts to be transfered to sheet 2 without
leaving spaces in the new column.

please help

--
deejay

Hi,

Simply select the filtered range and copy. Only the visible cells will be
copied and they can then be pasted without gaps into another sheet

Mike

"confused deejay" wrote:

hiya i'm having trouble, i have a workbook with 3 sheet on

in sheet 1 i have a list off numbers, i need them numbers to be copied into
sheet 2,
here's the problem i only want the numbers showing to be copied.
i.e
sheet1
a: i filter this down to a:
1001 1001
1002 1003
1003
this list is over 1000 lines long.

what i need is for the filtered amounts to be transfered to sheet 2 without
leaving spaces in the new column.

please help

--
deejay

i knew that bit mate sorry my fault i wanted to know if it could be done auto
with a formular.
--
deejay


"Mike H" wrote:

Hi,

Simply select the filtered range and copy. Only the visible cells will be
copied and they can then be pasted without gaps into another sheet

Mike

"confused deejay" wrote:

hiya i'm having trouble, i have a workbook with 3 sheet on

in sheet 1 i have a list off numbers, i need them numbers to be copied into
sheet 2,
here's the problem i only want the numbers showing to be copied.
i.e
sheet1
a: i filter this down to a:
1001 1001
1002 1003
1003
this list is over 1000 lines long.

what i need is for the filtered amounts to be transfered to sheet 2 without
leaving spaces in the new column.

please help

--
deejay

Hi,

Not sure about a formula but you could do this. Right click your sheet tab,
view code and paste this in. Filter the range then run the code

Sub ConFused_DeeJay()
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & lastrow).Copy Destination:=Sheets("Sheet2").Range("A1")
End Sub

Mike

"confused deejay" wrote:

i knew that bit mate sorry my fault i wanted to know if it could be done auto
with a formular.
--
deejay


"Mike H" wrote:

Hi,

Simply select the filtered range and copy. Only the visible cells will be
copied and they can then be pasted without gaps into another sheet

Mike

"confused deejay" wrote:

hiya i'm having trouble, i have a workbook with 3 sheet on

in sheet 1 i have a list off numbers, i need them numbers to be copied into
sheet 2,
here's the problem i only want the numbers showing to be copied.
i.e
sheet1
a: i filter this down to a:
1001 1001
1002 1003
1003
this list is over 1000 lines long.

what i need is for the filtered amounts to be transfered to sheet 2 without
leaving spaces in the new column.

please help

--
deejay