converting lotus macro
 

I am an old lotus guru that is lost in VBA.
Can someone convert the following simple lotus macro to VBA? It compares
two values and moves one set or the other if not matched to align two series
of data. "\b" compares debits, "\c" then compares the credits. 5 minutes work
in lotus, years of frustration in excel! Hope there are still some old
123pro's out there who'll understand this.

\a {goto}e17~
\b /xi@cellpointer("contents"}=""~{r}/xg/c~
/c~hold~
{right 4}~
/xi@cellpointer("contents")=hold~{down}{left 4}~/xg\b~
/xi@cellpointer("contents")<hold~{left 8}/m{end}{d}{r 5}~{d}~{d}{r 4}/xg\b~
/m{end}{d}(right 3}~{d}~{d}{left 4}/xg\b~

\c /xi@cellpointer("contents"}=""~/xq
/c~hold~
{right 4}~
/xi@cellpointer("contents")=hold~{down}{left 4}~/xg\c~
/xi@cellpointer("contents")<hold~{left 9}/m{end}{d}{r 5}~{d}~{d}{r 5}/xg\c~
{left}/m{end}{d}(right 3}~{d}~{d}{left 3}/xg\c~

converting lotus macro
 

I'm old enough to have used 123 and still remember part of it and even have
some old wk1 files somewhere. However, it would be far easier to just tell
us, in detail, what is desired.
If desired, send your file to my address below. I will only look if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MusicMan" wrote in message
...
I am an old lotus guru that is lost in VBA.
Can someone convert the following simple lotus macro to VBA? It compares
two values and moves one set or the other if not matched to align two
series
of data. "\b" compares debits, "\c" then compares the credits. 5 minutes
work
in lotus, years of frustration in excel! Hope there are still some old
123pro's out there who'll understand this.

\a {goto}e17~
\b /xi@cellpointer("contents"}=""~{r}/xg/c~
/c~hold~
{right 4}~
/xi@cellpointer("contents")=hold~{down}{left 4}~/xg\b~
/xi@cellpointer("contents")<hold~{left 8}/m{end}{d}{r 5}~{d}~{d}{r
4}/xg\b~
/m{end}{d}(right 3}~{d}~{d}{left 4}/xg\b~

\c /xi@cellpointer("contents"}=""~/xq
/c~hold~
{right 4}~
/xi@cellpointer("contents")=hold~{down}{left 4}~/xg\c~
/xi@cellpointer("contents")<hold~{left 9}/m{end}{d}{r 5}~{d}~{d}{r
5}/xg\c~
{left}/m{end}{d}(right 3}~{d}~{d}{left 3}/xg\c~