Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro problem.......
Include this in your code to see what actually has been selected and
hence would be copied: MsgBox ActiveWindow.RangeSelection.Address Hans |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
deleting a macro resulted in a problem | Excel Discussion (Misc queries) | |||
Circular Problem needs Macro | Excel Discussion (Misc queries) | |||
External data Macro Problem Excel 97 | Excel Discussion (Misc queries) | |||
Problem executing a macro from different workbook where it is | Excel Discussion (Misc queries) | |||
macro problem | Excel Discussion (Misc queries) |