Lotus macro i need to convert to Excel

  • Thread starter Thread starter Sammy
  • Start date Start date
S

Sammy

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}
 
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
 
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!
 
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.
 
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).ClearContents
End If
Next ws
End Sub
 
Back
Top