R
rpiescik
Here is one of the lotus macros I'm looking to convert.
20 20 ! A1 - Add 1 each day: B1 - number of shipping days pe
month
July 30 - August 26, 1995 ! Change For each day
! CLEAR THE SPREADSHEET DATA
{GOTO}B:A2~ ! Go to B: spreadsheet DLYSLS
{ABS}B:A2..O51~ ! Setup to delete
{ALT}kd ! old data
~
{ALT}fo{ALT "n"} ! OPEN THE IMPORT DATA SPREADSHEET
c:\123w\work\slmout.wk3 ! open temp spreadsheet
{GOTO}A:A1~ ! and delete any data
{ABS}A:A1..A70~ ! that might be there
{ALT}kd
~
{GOTO}A:A1~
{ALT}fit{ALT "n"} ! bring in the data that came from RISC
c:\mtdslm.out !c:\mtdslm.out
~ ! Now process the B/M Salespeople Data
{GOTO}A:A1~ ! Position to
{ABS}A:A1..A51~ ! copy DLYSLM data for B/M salespeople
{ALT}ec~
~
{ALT}rg{ALT "a"} ! goto the dlyslm macro again
<<C:\123W\WORK\DLYSLM>>
~
{GOTO}B:A2~ ! Position to
{ALT}ep ! Paste DLYSLM data for B/M salespeople
~
{GOTO}B:A2~
{ABS}B:A2..B:e51~ ! Get ready to parse
{ALT}DP ! Parse the data
{ALT "i"}B:A2..B:E51
{ALT "o"}B:A2
{ALT "f"}
L>>V>>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>>V>>>>>>>>>>>>>V>>>>>>>>>>>>>V>>>>>>>>>>>>>
~
{GOTO}B:A49~ ! prepare to total columns
{ALT}ee~ ! clear out deadwood
{R}~
@sum(b2..b48)~ ! total columns
{ALT}ec{ANCHOR}B:B49..B:O49~ ! copy sum to other columns
{ALT}ep~ ! and paste
{GOTO}B:N2~ ! prepare to total rows
(B2)+(D2)+(F2)+(H2)+(J2)+(L2)~
{ALT}ec{ANCHOR}B:N2..B:O48~ ! copy sum to other rows
{ALT}ep~ ! and paste
{GOTO}B23~
@SUM(N2..N20)~ ! Do the group totals (b/m, mwk, bur)
{ALT}ec{ANCHOR}B23..B:Q23~ ! copy sum
{ALT}ep~ ! and paste
{GOTO}B38~
@SUM(N21..N34)~
{ALT}ec{ANCHOR}B38..B:Q38~
{ALT}ep~
{GOTO}B48~
@SUM(N35..N48)~
{ALT}ec{ANCHOR}B48..B:Q48~
{ALT}ep~
{ALT}fo{ALT "n"} ! Open B/M report file
c:\123w\work\dlyslm1.wk3
~
{ALT}fp ! Print the file
{ALT "a"}a21..n86~ ! Set the range
{ALT}fc{ALT "y"} ! Close and Save file
~
{ALT}fo{ALT "n"} ! Open Margin report file
c:\123w\work\dlymgn1.wk3
~
{ALT}fp ! Print the file
{ALT "a"}a21..Q86~ ! Set the range
{ALT}fc{ALT "y"} ! Close and Save file
~
{ALT}fo{ALT "n"} ! Open MWK report file
c:\123w\work\mwkslm2.wk3
~
{ALT}fp ! Print the file
{ALT "a"}a15..n46~ ! Set the range
{ALT}fc{ALT "y"} ! Close and Save file
~
{ALT}rg{ALT "a"}
<<C:\123W\WORK\SLMOUT>>
~
{GOTO}A:A1~ ! Close and save the
{ALT}fc{ALT "y"} ! Data file
~
{GOTO}A:A1~ ! Close and save this
{ALT}fc{ALT "y"} ! Macro file
~
This is just one of the Macros that I'm looking to convert. Help i
greatly appreciated
20 20 ! A1 - Add 1 each day: B1 - number of shipping days pe
month
July 30 - August 26, 1995 ! Change For each day
! CLEAR THE SPREADSHEET DATA
{GOTO}B:A2~ ! Go to B: spreadsheet DLYSLS
{ABS}B:A2..O51~ ! Setup to delete
{ALT}kd ! old data
~
{ALT}fo{ALT "n"} ! OPEN THE IMPORT DATA SPREADSHEET
c:\123w\work\slmout.wk3 ! open temp spreadsheet
{GOTO}A:A1~ ! and delete any data
{ABS}A:A1..A70~ ! that might be there
{ALT}kd
~
{GOTO}A:A1~
{ALT}fit{ALT "n"} ! bring in the data that came from RISC
c:\mtdslm.out !c:\mtdslm.out
~ ! Now process the B/M Salespeople Data
{GOTO}A:A1~ ! Position to
{ABS}A:A1..A51~ ! copy DLYSLM data for B/M salespeople
{ALT}ec~
~
{ALT}rg{ALT "a"} ! goto the dlyslm macro again
<<C:\123W\WORK\DLYSLM>>
~
{GOTO}B:A2~ ! Position to
{ALT}ep ! Paste DLYSLM data for B/M salespeople
~
{GOTO}B:A2~
{ABS}B:A2..B:e51~ ! Get ready to parse
{ALT}DP ! Parse the data
{ALT "i"}B:A2..B:E51
{ALT "o"}B:A2
{ALT "f"}
L>>V>>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>V>>>>>>>>>>>>>V>>>>>>>>>>>>>V>>>>>>>>>>>>>V>>>>>>>>>>>>>
~
{GOTO}B:A49~ ! prepare to total columns
{ALT}ee~ ! clear out deadwood
{R}~
@sum(b2..b48)~ ! total columns
{ALT}ec{ANCHOR}B:B49..B:O49~ ! copy sum to other columns
{ALT}ep~ ! and paste
{GOTO}B:N2~ ! prepare to total rows
(B2)+(D2)+(F2)+(H2)+(J2)+(L2)~
{ALT}ec{ANCHOR}B:N2..B:O48~ ! copy sum to other rows
{ALT}ep~ ! and paste
{GOTO}B23~
@SUM(N2..N20)~ ! Do the group totals (b/m, mwk, bur)
{ALT}ec{ANCHOR}B23..B:Q23~ ! copy sum
{ALT}ep~ ! and paste
{GOTO}B38~
@SUM(N21..N34)~
{ALT}ec{ANCHOR}B38..B:Q38~
{ALT}ep~
{GOTO}B48~
@SUM(N35..N48)~
{ALT}ec{ANCHOR}B48..B:Q48~
{ALT}ep~
{ALT}fo{ALT "n"} ! Open B/M report file
c:\123w\work\dlyslm1.wk3
~
{ALT}fp ! Print the file
{ALT "a"}a21..n86~ ! Set the range
{ALT}fc{ALT "y"} ! Close and Save file
~
{ALT}fo{ALT "n"} ! Open Margin report file
c:\123w\work\dlymgn1.wk3
~
{ALT}fp ! Print the file
{ALT "a"}a21..Q86~ ! Set the range
{ALT}fc{ALT "y"} ! Close and Save file
~
{ALT}fo{ALT "n"} ! Open MWK report file
c:\123w\work\mwkslm2.wk3
~
{ALT}fp ! Print the file
{ALT "a"}a15..n46~ ! Set the range
{ALT}fc{ALT "y"} ! Close and Save file
~
{ALT}rg{ALT "a"}
<<C:\123W\WORK\SLMOUT>>
~
{GOTO}A:A1~ ! Close and save the
{ALT}fc{ALT "y"} ! Data file
~
{GOTO}A:A1~ ! Close and save this
{ALT}fc{ALT "y"} ! Macro file
~
This is just one of the Macros that I'm looking to convert. Help i
greatly appreciated