auto fill

[confused deejay]

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

 

[Mike H]

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]

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

 

[Mike H]

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