Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Feuding SORT - hasformula code
The Part 1 code Will 'UNPROTECT' 'SORT' 'PROTECT' only when the Part 2 code is NOT installed. When Part 2 code is installed into another module, the 'Step' routine 'UNPROTECTS' and 'SORTS' properly, but fails to 'PROTECT'. No error is disdisplayed when the macro is run. What could be the conflict? 'PART 1 Option Explicit Sub RANKING_SORT() ActiveSheet.Unprotect Dim source As Range With ActiveSheet Set source = .Range(.Range("A11"), .Range("AR11").End(xlDown)) End With source.Sort source.Range("V11"), xlAscending ActiveSheet.Protect End Sub 'PART 2 Function HasFormula(c As Range) As Boolean HasFormula = c.HasFormula End Function |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Feuding SORT - hasformula code
its not wise to name your own functions and procedures the same as excel object methods ... in this case you have a UDF called HasFormula which also appies to a range object. Change your function name apart from this, you don't give enough information to assist further. "usmc-r70" wrote in message ... The Part 1 code Will 'UNPROTECT' 'SORT' 'PROTECT' only when the Part 2 code is NOT installed. When Part 2 code is installed into another module, the 'Step' routine 'UNPROTECTS' and 'SORTS' properly, but fails to 'PROTECT'. No error is disdisplayed when the macro is run. What could be the conflict? 'PART 1 Option Explicit Sub RANKING_SORT() ActiveSheet.Unprotect Dim source As Range With ActiveSheet Set source = .Range(.Range("A11"), .Range("AR11").End(xlDown)) End With source.Sort source.Range("V11"), xlAscending ActiveSheet.Protect End Sub 'PART 2 Function HasFormula(c As Range) As Boolean HasFormula = c.HasFormula End Function |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Feuding SORT - hasformula code
Patrick, thank you so very much for your replay! Your were exactly correct, changed the name and everything works as planned. Again, Thanks!!! "Patrick Molloy" wrote: its not wise to name your own functions and procedures the same as excel object methods ... in this case you have a UDF called HasFormula which also appies to a range object. Change your function name apart from this, you don't give enough information to assist further. "usmc-r70" wrote in message ... The Part 1 code Will 'UNPROTECT' 'SORT' 'PROTECT' only when the Part 2 code is NOT installed. When Part 2 code is installed into another module, the 'Step' routine 'UNPROTECTS' and 'SORTS' properly, but fails to 'PROTECT'. No error is disdisplayed when the macro is run. What could be the conflict? 'PART 1 Option Explicit Sub RANKING_SORT() ActiveSheet.Unprotect Dim source As Range With ActiveSheet Set source = .Range(.Range("A11"), .Range("AR11").End(xlDown)) End With source.Sort source.Range("V11"), xlAscending ActiveSheet.Protect End Sub 'PART 2 Function HasFormula(c As Range) As Boolean HasFormula = c.HasFormula End Function |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Conditional Formating Bug when using HasFormula UDF | Excel Programming | |||
simple... HasFormula ? | Excel Programming | |||
Help with ActiveCell.HasFormula | Excel Programming | |||
HasFormula | Excel Programming | |||
HasFormula protect cell | Excel Programming |