Copying filtered four cells by means of macro

C

CousinExcel

Thanks to Jacob Skaria.
But still I need to mark and copy four cells by shift+down+down+down+down I
believe.

There are filtered cells and when I say things other than shift and down
keys it is copying hidden (filtered away) cells I believe.

I hope copying by selecting by "shiftt+down+down+down+down" will solve my
need.

Sorry for repating I just try to explain my need:
I filter the data by a macro.
Then I need to copy four cells apeering on the screen.

Thanks,

Cousin Excel
 
E

Eduardo

Hi,
Highlight the filtered data, press CTRL + G, special, in the right column
select "Visible cells Only", ok, then press CTRL + C, go to where you need to
paste the information and paste it

if this helps please click yes thanks
 
C

CousinExcel

Thank you Eduardo.
I need it in a macro.
Jacob Scaria has sent the statement

'ActiveCell.Resize(4).Select
'ActiveCell.Resize(4).Copy

it did not help me, maybe my lack of konowledge,
becuase that way the macro copies and pastes filtered away (hidden) cells as
well.
I need the macro to selecet and copy only four appearing cells
 
L

Luke M

Is it always the same 4 cells? How do you if it the filter will only give 4
results?
If what you are really wanting is to select all the results from the filter,
something like this:

Range("A2:A100").SpecialCells(xlCellTypeVisible).Select
Selection.Copy

Where A2:A100 is the range you filtered, so that you won't get any extra
cells from the end of the workbook.
 
C

CousinExcel

Hi Luke,
it is such a case, we know that there will be maximum 4 cells as result (or
we can assume that we will copy first four cells)

In your solution I have this problem:
For example I will copy to A2.
In A6, A7.... THERE ARE DATA.
If I make 100 as you suggested these A6, A7... are overwritten
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top