[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[_2_]]

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


"Felisca Wiratama" wrote in message ...
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!

[Harlan Grove[_5_]]

"Bernie Deitrick" wrote...
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.

"Felisca Wiratama" wrote...
Can anyone help to translate the following macro in Lotus 1-2-3 to Excel?


\p /AI~/PSWY
{ESC}G

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?

\a {HOME}/AI~

Same comment.

{GOTO}A171~{?}

This could be done crudely as

Dim s As Variant
s = InputBox("{?}", "{?}", Range("A171").Formula)
If Typename(s) = "String" And s < "" Then Range("A171").Formula = s

{HOME}/PGQ

Looks like this could be done with

ActiveSheet.PrintOut

/Q

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

Application.Quit

\s /FS~R

ActiveWorkbook.Save

\w \RVE27..E38~
G27~{BRANCH \C}

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.

\n \AI~\PSE3~

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.

WYQ\PG\Q

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

\c {GOTO}YTD~
\RV~{U}~

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

--
1. Don't attach files to postings in this newsgroup.
2. Snip unnecessary text from quoted text. Indiscriminate quoting is wasteful.
3. Excel 97 & later provides 65,536 rows & 256 columns per worksheet. There are
no add-ins or patches that increase them. Need more? Use something else.