Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
stuck on final prat of spreadsheet "macro copying cells"
I have been working on this one for a while and finaly come to the en of my spreadsheet i need to create a macro which copys the last cell i the D column but it needs drag the forumla down one cell. the onl problem is its at the bottom of an auto filter and im finding it ver hard to get to grips with any help would be great thanks very much Alan Bourne i have attached the single page including the auto filte +---------------------------------------------------------------- | Attachment filename: help.xls |Download attachment: http://www.excelforum.com/attachment.php?postid=360692 +---------------------------------------------------------------- ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
stuck on final prat of spreadsheet "macro copying cells"
Try this :- '------------------------------------------------ Dim LastCell As Range Set LastCell = ActiveSheet.Range("D65536").End(xlUp) LastCell.Copy Destination:=LastCell.Offset(1, 0) '---------------------------------------------------- ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
stuck on final prat of spreadsheet "macro copying cells"
Just a word of caution:
Assuming the autofilter is in effect and only some of the rows are visible, Unless the last row of the autofilter is visible, the recommended code will overwrite some of your existing data. If all the rows are visible or at least the last row is visible, then it should work. -- Regards, Tom Ogilvy "BrianB" wrote in message ... Try this :- '------------------------------------------------ Dim LastCell As Range Set LastCell = ActiveSheet.Range("D65536").End(xlUp) LastCell.Copy Destination:=LastCell.Offset(1, 0) '---------------------------------------------------- ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
stuck on final prat of spreadsheet "macro copying cells"
nice one will do thanks alo ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
stuck on final prat of spreadsheet "macro copying cells"
works a treat thanks for your hel ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do i remove "mark as final" on a spreadsheet? | Excel Discussion (Misc queries) | |||
when copying from one spreadsheet to another I get "#VALUE!" error,how can I eliminate it? | Excel Discussion (Misc queries) | |||
How to get the final "result" to show in one cell? Excell 2002 | Excel Discussion (Misc queries) | |||
How do I remove a flash object "stuck on" my spreadsheet? | Excel Discussion (Misc queries) | |||
HELP! Macro stuck-"Invalid Object" | Excel Programming |