Lotus macro i need to convert to Excel

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}
 
R

Reg

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
 
S

Sammy

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!
 
D

Don Guillett

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.
 
D

Don Guillett

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top