About Us

Don Guillett[_4_]

As Tom suggested, you haven't told us enough

--
Don Guillett
SalesAid Software

"Bernice" wrote in message
...
This worked well for one line but if run repeatedly,
overwrites the previous line. Do you have any
recommendations?

Here is what I have
Dim X As String
'moving a range from one worksheet to another
X = Worksheets("Matured").Range("a656").End(xlUp).Row + 1
Worksheets("Current").Range("B6:O6").Cut _
Worksheets("Matured").Range("B" & X)

Bernice
-----Original Message-----
Without going through each line of the 123 macro,

x=worksheets("destinationsheet").range("a65536"). end
(xlup).row+1
worksheets("sourcesheet").range("a5:b16").cut _
worksheets("destinationsheet").range("a" & x)

should move it for you.

--
Don Guillett
SalesAid Software

"Bernice" wrote in
message
...
I have a Lotus 123 macro that I'm trying to convert to
Excel. I have a need to copy or move a range of data
from
one worksheet to another. If the data is copied, the
original data then needs to be deleted from the source
worksheet. The worksheets contain different number of
rows.

Here is the original Lotus 123 macro
/RNCTOMOVE~{R 12}~ NAME RANGE TO MOVE
{GOTO}B:B6~ FIND EMPTY
{\B} PLACE TO MOVE TO
/CTOMOVE~~ MOVE DATA
{GOTO}TOMOVE~{D} GO BACK TO ROW COPIED FROM

/RETOMOVE~ ERASE OLD DATA
/C{END}{D}{R 12}~{U}~{U} MOVE DATA UP
{END}{D}/RE{R 12}~ DELETE EXTRA LAST LINE
{GOTO}TOMOVE~
/RNDTOMOVE~ DELETE RAMED RANGE
{WINDOWSON} GOTO SORT

Sample of the data
A B C D E F G h i
current date
1 date desc f b1 yield due date 1
2 date desc f b2 yield due date 2
4 date desc f b1 yield due date 4
3 date desc f b2 yield due date 3

If the current date is < or = to the due date, then
these
records need to be selected from the current worksheet
and
moved to the other worksheet. If this cann't be done,
the
individual rows can be moved one at a time. Once the
data
is moved, it is then resorted based on the autonumbering
of col A.

The results of the moving 2 rows from the source to the
destination worksheets

Source worksheet (col A and I are resequenced)
A B C D E F G h i
current date
1 date desc f b1 yield due date 1
2 date desc f b2 yield due date 2

Any help that can be provided would be greatly
appreciated.

Thanks,
Bernice

.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to Move Specific Data to Another Worksheet	jeannie v	Excel Worksheet Functions	1	January 20th 08 06:30 PM
Unable to Insert Worksheet/Move and copy worksheet Excel 2003	lukerush	Excel Worksheet Functions	2	September 7th 06 05:05 PM
converting Lotus 123 macro to Excell macro	mark h	Excel Discussion (Misc queries)	6	July 11th 05 01:28 PM
Assist in converting Lotus Macro to Excel?	Mike123	Excel Programming	4	February 13th 04 09:44 AM
CONVERTING A LOTUS MACRO	Gary B[_4_]	Excel Programming	0	October 29th 03 05:45 AM

Menu

About Us