Lotus 1-2-3 macro

  • Thread starter Thread starter Felisca Wiratama
  • Start date Start date
F

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
 
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
 
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.....
Click to expand...
...

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
Click to expand...

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
 
Back
Top