| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
HELP!!
I keep getting a compile error on the formula below and I can't figure out
what I have wrong... The error comes up 'duplicate declaration in current scope' right under 'Creates Formula for LO Commission....Can you guys help me? 'Creates formula for Total Fee Income Dim cell As Range For Each cell In Range("L1:L100") cell.Replace What:="0", Replacement:="=(E" & cell.Row & "+F" & cell.Row & _ "+G" & cell.Row & "+H" & cell.Row & ")-K" & cell.Row, LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False 'Creates Formula for LO Commission Dim cell As Range For Each cell In Range("N1:N100") cell.Replace What:="0", Replacement:="=(L" & cell.Row & "*M" & cell.Row & _ ")-J" & cell.Row, LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False Next Range("J5").Select 'Adds $ formatting Columns("D:D").Select ActiveWindow.SmallScroll ToRight:=3 Columns("D:L").Select Selection.NumberFormat = _ "_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]* ""-""??_);_(@_)" Columns("N").Select Selection.NumberFormat = _ "_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]* ""-""??_);_(@_)" Range("A1").Select End Sub -- Thanks a bunch! rojobrown |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
2nd dim cell as range
I get the error for the LO commission calculation. Not the formatting at the
bottom. Thanks. -- Thanks a bunch! rojobrown "Don Guillett" wrote: Help is not a good subject line for the archives. Try commenting out the 2nd dim cell as range. 'Adds $ formatting also try this range("d1:l1,n1").entireColumn.NumberFormat = _ "_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]* End Sub -- Don Guillett SalesAid Software "rojobrown" wrote in message ... I keep getting a compile error on the formula below and I can't figure out what I have wrong... The error comes up 'duplicate declaration in current scope' right under 'Creates Formula for LO Commission....Can you guys help me? 'Creates formula for Total Fee Income Dim cell As Range For Each cell In Range("L1:L100") cell.Replace What:="0", Replacement:="=(E" & cell.Row & "+F" & cell.Row & _ "+G" & cell.Row & "+H" & cell.Row & ")-K" & cell.Row, LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False 'Creates Formula for LO Commission Dim cell As Range For Each cell In Range("N1:N100") cell.Replace What:="0", Replacement:="=(L" & cell.Row & "*M" & cell.Row & _ ")-J" & cell.Row, LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False Next Range("J5").Select 'Adds $ formatting Columns("D:D").Select ActiveWindow.SmallScroll ToRight:=3 Columns("D:L").Select Selection.NumberFormat = _ "_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]* ""-""??_);_(@_)" Columns("N").Select Selection.NumberFormat = _ "_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]* ""-""??_);_(@_)" Range("A1").Select End Sub -- Thanks a bunch! rojobrown |
|
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
HELP!!
I tried commenting out the 2nd dim cell as range. It still didn't work.
I'll try the one for the formatting too. Thanks. -- Thanks a bunch! rojobrown "Don Guillett" wrote: Help is not a good subject line for the archives. Try commenting out the 2nd dim cell as range. 'Adds $ formatting also try this range("d1:l1,n1").entireColumn.NumberFormat = _ "_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]* End Sub -- Don Guillett SalesAid Software "rojobrown" wrote in message ... I keep getting a compile error on the formula below and I can't figure out what I have wrong... The error comes up 'duplicate declaration in current scope' right under 'Creates Formula for LO Commission....Can you guys help me? 'Creates formula for Total Fee Income Dim cell As Range For Each cell In Range("L1:L100") cell.Replace What:="0", Replacement:="=(E" & cell.Row & "+F" & cell.Row & _ "+G" & cell.Row & "+H" & cell.Row & ")-K" & cell.Row, LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False 'Creates Formula for LO Commission Dim cell As Range For Each cell In Range("N1:N100") cell.Replace What:="0", Replacement:="=(L" & cell.Row & "*M" & cell.Row & _ ")-J" & cell.Row, LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False Next Range("J5").Select 'Adds $ formatting Columns("D:D").Select ActiveWindow.SmallScroll ToRight:=3 Columns("D:L").Select Selection.NumberFormat = _ "_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]* ""-""??_);_(@_)" Columns("N").Select Selection.NumberFormat = _ "_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]* ""-""??_);_(@_)" Range("A1").Select End Sub -- Thanks a bunch! rojobrown |
|
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
HELP!!
I just ran this simple test and got the same error msg with double
declaration. Sub replaceinrng() Dim c As Range For Each c In Range("n2:n6") c.Replace 0, "=a" & c.Row Next c 'Dim c As Range' take OUT For Each c In Range("q2:q6") c.Replace 0, "=a" & c.Row Next c End Sub -- Don Guillett SalesAid Software "rojobrown" wrote in message ... I tried commenting out the 2nd dim cell as range. It still didn't work. I'll try the one for the formatting too. Thanks. -- Thanks a bunch! rojobrown "Don Guillett" wrote: Help is not a good subject line for the archives. Try commenting out the 2nd dim cell as range. 'Adds $ formatting also try this range("d1:l1,n1").entireColumn.NumberFormat = _ "_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]* End Sub -- Don Guillett SalesAid Software "rojobrown" wrote in message ... I keep getting a compile error on the formula below and I can't figure out what I have wrong... The error comes up 'duplicate declaration in current scope' right under 'Creates Formula for LO Commission....Can you guys help me? 'Creates formula for Total Fee Income Dim cell As Range For Each cell In Range("L1:L100") cell.Replace What:="0", Replacement:="=(E" & cell.Row & "+F" & cell.Row & _ "+G" & cell.Row & "+H" & cell.Row & ")-K" & cell.Row, LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False 'Creates Formula for LO Commission Dim cell As Range For Each cell In Range("N1:N100") cell.Replace What:="0", Replacement:="=(L" & cell.Row & "*M" & cell.Row & _ ")-J" & cell.Row, LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False Next Range("J5").Select 'Adds $ formatting Columns("D:D").Select ActiveWindow.SmallScroll ToRight:=3 Columns("D:L").Select Selection.NumberFormat = _ "_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]* ""-""??_);_(@_)" Columns("N").Select Selection.NumberFormat = _ "_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]* ""-""??_);_(@_)" Range("A1").Select End Sub -- Thanks a bunch! rojobrown |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Linear Mode
