R
Romileyrunner1
Hi,
running the following macro:
ActiveSheet.Unprotect
Range("B10:GJ89").Select
Selection.Sort Key1:=Range("BE10"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("BE1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.ScrollColumn = 38
End Sub
This macro is applied to sort collumn BE which has the following formula for
each cell:
=IF(COUNT(DA10,BY10)=2,DA10-BY10,"")
When activated, it puts all the blank cells at the top of the collumn before
all the cells with values in. (NB it has sorted these correctly though in
descending order)
Any ideas what`s wrong folks?
Thanks for your time.
RR1
running the following macro:
ActiveSheet.Unprotect
Range("B10:GJ89").Select
Selection.Sort Key1:=Range("BE10"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("BE1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.ScrollColumn = 38
End Sub
This macro is applied to sort collumn BE which has the following formula for
each cell:
=IF(COUNT(DA10,BY10)=2,DA10-BY10,"")
When activated, it puts all the blank cells at the top of the collumn before
all the cells with values in. (NB it has sorted these correctly though in
descending order)
Any ideas what`s wrong folks?
Thanks for your time.
RR1