Lotus 1-2-3 macro

[Felisca Wiratama]

Can anyone help to translate the following macro in Lotus 1-2-3 to Excel
?
\p /AI~/PSWY
{ESC}G
\a {HOME}/AI~
{GOTO}A171~{?}
{HOME}/PGQ
/Q
\s /FS~R
\w \RVE27..E38~
G27~{BRANCH \C}
\n \AI~\PSE3~
WYQ\PG\Q
\c {GOTO}YTD~
\RV~{U}~

Thanks

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

 

[Bernie Deitrick]

Felisca,

You would be better off posting an explanation of what the macro does, step by step. It's been way too long since I program Lotus to
remember what the keystrokes do.....

HTH,
Bernie
Excel MVP

 

[Harlan Grove]

You would be better off posting an explanation of what the macro does, step by step. It's been way too long since I program Lotus to
remember what the keystrokes do.....

...

Then don't respond?

OP should have posted this in *.123quattro or comp.apps.spreadsheets.

Neither /AI~ nor /PSWY are valid classic macro commands in English language
versions of 123 unless you're using a 123 add-in that adds these commands to the
Classic Menu. Are you?

Same comment.

This could be done crudely as

Dim s As Variant
s = InputBox("{?}", "{?}", Range("A171").Formula)

Looks like this could be done with

ActiveSheet.PrintOut

This initiates quitting 123. Given what follows, you'd have real problems, but
maybe you want

Application.Quit

ActiveWorkbook.Save

Garbage. The first backslash very likely should be a [forward] slash. If so, the
portion /RVE27..E38~G27~ could be done with

Range("E27:E38").Offset(0, 2).Value = Range("E27:E38").Value

The {branch} statement looks OK, but would require a loop in VBA. However, since
this doesn't look like a looping construct, I'm not going to guess the control
flow.

More backslashes that look like they should be forward slashes. Even if so,
these would be invalid classic macro commands in English language versions
unless they were provided by an unnamed add-in.

More slash problems, but even if changed, this appears to be garbage.

Names("YTD").RefersToRange.Offset(-1, 0).Value = _
Names("YTD").RefersToRange.Value