Macro problem.......
 

Hi,

I am using a macro to cut a single cell from 15 rows of a column of a
worksheet and then pasting the data into another 15 cells in another
worksheet.

The macro appears to work perfectly, except that if I filter the
initial worksheet the macro still copies the first 15 rows of the
worksheet NOT the first 15 filtered rows......

the "offending" line of script currently is:

Range("A1:A15").Select

Help, please.


--
Alec H
------------------------------------------------------------------------
Alec H's Profile: http://www.excelforum.com/member.php...o&userid=31042
View this thread: http://www.excelforum.com/showthread...hreadid=512581

Macro problem.......
 

Include this in your code to see what actually has been selected and
hence would be copied:

MsgBox ActiveWindow.RangeSelection.Address


Hans

Macro problem.......
 

Hans,

You posted...


Include this in your code to see what actually has been selected and
hence would be copied:

MsgBox ActiveWindow.RangeSelection.Address

Forgive me for being stupid, but when I insert this into my code above
the "offending" line (Range("A1:A15").Select) it appears to merely
opens a message box and does not direct the following lines of code to
copy the first 15 lines of selected data ready for pasting elsewhere.

Here is my complete code as it stands;


Sheets("Customer List").Select
MsgBox ActiveWindow.RangeSelection.Address
Range("A1:A15").Select
Selection.Copy
Sheets("Stage 1 - Visit diary").Select
Range("E4:E18").Select
ActiveSheet.Paste
Sheets("Customer List").Select


I know it is only simple, but so am I...:(


--
Alec H
------------------------------------------------------------------------
Alec H's Profile: http://www.excelforum.com/member.php...o&userid=31042
View this thread: http://www.excelforum.com/showthread...hreadid=512581

Macro problem.......
 

Hi Alec,

Try this:

Set r1 = Worksheets("Customer List")
r1.Activate
r1.Range("A1:A15").Select
Selection.Copy
Set r2 = Worksheets("Stage 1 - Visit diary")
r2.Activate
r2.Range("E4:E18").Select
ActiveSheet.Paste
Sheets("Customer List").Activate


Hans

Macro problem.......
 

That worked,

Thanks Hans :)


--
Alec H
------------------------------------------------------------------------
Alec H's Profile: http://www.excelforum.com/member.php...o&userid=31042
View this thread: http://www.excelforum.com/showthread...hreadid=512581