|
Lotus macro i need to convert to Excel
I have this macro from lotus i need to convert to excel or write a macro like
this in excel. Any help would be appreciated ZERO {GOTO}a:c126~ {FOR a:ad7;1;3200;1;enter} {GOTO}a:D126~ {FOR a:ae7;1;3200;1;erase} {GOTO}a:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";a:c1..a:n3050} {GOTO}b:c126~ {FOR b:ad7;1;3200;1;enter} {GOTO}b:D126~ {FOR b:ae7;1;3200;1;erase} {GOTO}b:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";b:c1..b:n3050} {GOTO}c:c6~ {FOR c:ad7;1;3200;1;enter} {GOTO}c:D6~ {FOR c:ae7;1;3200;1;erase} {GOTO}c:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";c:c1..c:n3050} {GOTO}d:c6~ {FOR d:ad7;1;3200;1;enter} {GOTO}d:D6~ {FOR d:ae7;1;3200;1;erase} {GOTO}d:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";d:c1..d:n3050} {GOTO}e:c6~ {FOR e:ad7;1;3200;1;enter} {GOTO}e:D6~ {FOR e:ae7;1;3200;1;erase} {GOTO}e:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";e:c1..e:n3050} {GOTO}f:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";f:c1..f:n3050} {QUIT} ENTER {if @cellpointer("PROTECT")="0"}0~ {D} ERASE {if @cellpointer("PROTECT")="0"}/re{r}{R}{R}{R}{R}{R}{R}{R}{R}{R}~ {D} |
Lotus macro i need to convert to Excel
Personally I forgot how to write 123 macros about 15 years ago - describe
what you are trying to do (by which I mean what the macro does) and we can take it from there without me having to relearn it Regards RegMigrant "Sammy" wrote: I have this macro from lotus i need to convert to excel or write a macro like this in excel. Any help would be appreciated ZERO {GOTO}a:c126~ {FOR a:ad7;1;3200;1;enter} {GOTO}a:D126~ {FOR a:ae7;1;3200;1;erase} {GOTO}a:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";a:c1..a:n3050} {GOTO}b:c126~ {FOR b:ad7;1;3200;1;enter} {GOTO}b:D126~ {FOR b:ae7;1;3200;1;erase} {GOTO}b:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";b:c1..b:n3050} {GOTO}c:c6~ {FOR c:ad7;1;3200;1;enter} {GOTO}c:D6~ {FOR c:ae7;1;3200;1;erase} {GOTO}c:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";c:c1..c:n3050} {GOTO}d:c6~ {FOR d:ad7;1;3200;1;enter} {GOTO}d:D6~ {FOR d:ae7;1;3200;1;erase} {GOTO}d:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";d:c1..d:n3050} {GOTO}e:c6~ {FOR e:ad7;1;3200;1;enter} {GOTO}e:D6~ {FOR e:ae7;1;3200;1;erase} {GOTO}e:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";e:c1..e:n3050} {GOTO}f:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";f:c1..f:n3050} {QUIT} ENTER {if @cellpointer("PROTECT")="0"}0~ {D} ERASE {if @cellpointer("PROTECT")="0"}/re{r}{R}{R}{R}{R}{R}{R}{R}{R}{R}~ {D} |
Lotus macro i need to convert to Excel
This is a spreadsheet i use over every year. It has the 12 months. Column
"C" i want to change to "0", the rest of the columns i want to erase, so i can start over with a new spreadsheet for 2011. The thing is these numbers that need to be changed are not in any type of sequence, meaning there are two row that need to be zero then i skip about 4 rows, then i need to zero 6 more rows then maybe skip 3 where there are no numbers. Thanks for the help! "Reg" wrote: Personally I forgot how to write 123 macros about 15 years ago - describe what you are trying to do (by which I mean what the macro does) and we can take it from there without me having to relearn it Regards RegMigrant "Sammy" wrote: I have this macro from lotus i need to convert to excel or write a macro like this in excel. Any help would be appreciated ZERO {GOTO}a:c126~ {FOR a:ad7;1;3200;1;enter} {GOTO}a:D126~ {FOR a:ae7;1;3200;1;erase} {GOTO}a:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";a:c1..a:n3050} {GOTO}b:c126~ {FOR b:ad7;1;3200;1;enter} {GOTO}b:D126~ {FOR b:ae7;1;3200;1;erase} {GOTO}b:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";b:c1..b:n3050} {GOTO}c:c6~ {FOR c:ad7;1;3200;1;enter} {GOTO}c:D6~ {FOR c:ae7;1;3200;1;erase} {GOTO}c:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";c:c1..c:n3050} {GOTO}d:c6~ {FOR d:ad7;1;3200;1;enter} {GOTO}d:D6~ {FOR d:ae7;1;3200;1;erase} {GOTO}d:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";d:c1..d:n3050} {GOTO}e:c6~ {FOR e:ad7;1;3200;1;enter} {GOTO}e:D6~ {FOR e:ae7;1;3200;1;erase} {GOTO}e:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";e:c1..e:n3050} {GOTO}f:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";f:c1..f:n3050} {QUIT} ENTER {if @cellpointer("PROTECT")="0"}0~ {D} ERASE {if @cellpointer("PROTECT")="0"}/re{r}{R}{R}{R}{R}{R}{R}{R}{R}{R}~ {D} |
Lotus macro i need to convert to Excel
Sub ClearALLSheetsInFile()
For Each ws In ThisWorkbook.Sheets If ws.Name < "Dont do this one" Then 'MsgBox ws.Name lr = ws.Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row lc = ws.Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Column 'MsgBox lr 'MsgBox lc ws.Range("c5").Resize(lr, lc).SpecialCells(xlCellTypeConstants).ClearContent s End If Next ws End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Don Guillett" wrote in message ... 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 "Sammy" wrote in message ... This is a spreadsheet i use over every year. It has the 12 months. Column "C" i want to change to "0", the rest of the columns i want to erase, so i can start over with a new spreadsheet for 2011. The thing is these numbers that need to be changed are not in any type of sequence, meaning there are two row that need to be zero then i skip about 4 rows, then i need to zero 6 more rows then maybe skip 3 where there are no numbers. Thanks for the help! "Reg" wrote: Personally I forgot how to write 123 macros about 15 years ago - describe what you are trying to do (by which I mean what the macro does) and we can take it from there without me having to relearn it Regards RegMigrant "Sammy" wrote: I have this macro from lotus i need to convert to excel or write a macro like this in excel. Any help would be appreciated ZERO {GOTO}a:c126~ {FOR a:ad7;1;3200;1;enter} {GOTO}a:D126~ {FOR a:ae7;1;3200;1;erase} {GOTO}a:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";a:c1..a:n3050} {GOTO}b:c126~ {FOR b:ad7;1;3200;1;enter} {GOTO}b:D126~ {FOR b:ae7;1;3200;1;erase} {GOTO}b:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";b:c1..b:n3050} {GOTO}c:c6~ {FOR c:ad7;1;3200;1;enter} {GOTO}c:D6~ {FOR c:ae7;1;3200;1;erase} {GOTO}c:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";c:c1..c:n3050} {GOTO}d:c6~ {FOR d:ad7;1;3200;1;enter} {GOTO}d:D6~ {FOR d:ae7;1;3200;1;erase} {GOTO}d:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";d:c1..d:n3050} {GOTO}e:c6~ {FOR e:ad7;1;3200;1;enter} {GOTO}e:D6~ {FOR e:ae7;1;3200;1;erase} {GOTO}e:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";e:c1..e:n3050} {GOTO}f:f1~ {EDIT-REPLACE-ALL "2009";text;"2010";f:c1..f:n3050} {QUIT} ENTER {if @cellpointer("PROTECT")="0"}0~ {D} ERASE {if @cellpointer("PROTECT")="0"}/re{r}{R}{R}{R}{R}{R}{R}{R}{R}{R}~ {D} |
| All times are GMT +1. The time now is 07:10 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com