i think it's changing text to a number
see if this is more readable and fucntions the same, untested.
Option Explicit
Private Sub CommandButton1_Click()
Dim rng As Range
Application.ScreenUpdating = False
Set rng = Range("R2")
rng.Copy
With rng
Range("G2:G3500").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End With
With rng
Range("l2:l3500").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End With
With rng
Range("M2:M3500").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End With
Range("M2:M3500").NumberFormat = "m/d;@"
Range("F1:M1").Select
Range("M1").Activate
Application.CutCopyMode = False
With Range("A1:M3500")
..Sort Key1:=Range("G2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Range("N2").Select
Application.ScreenUpdating = True
End Sub
--
Gary
"Don Guillett" wrote in message
...
Despite the fact that it is crudely done from a recording of the macro, the
intent is to take the number 1 and use it to multiply by the referenced cells
to force them from text to numbers.
--
Don Guillett
SalesAid Software
"JPS@bebe" wrote in
message ...
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("R2").Select
Application.CutCopyMode = False
Selection.Copy
Range("G2:G3500").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("l2:l3500").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("M2:M3500").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("M2:M3500").Select
Selection.NumberFormat = "m/d;@"
Range("F1:M1").Select
Range("M1").Activate
Application.CutCopyMode = False
Range("A1:M3500").Sort Key1:=Range("G2"), Order1:=xlDescending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("N2").Select
Application.ScreenUpdating = True
End Sub
It looks to my like it is copying what is in R2 and pasting it in the
range G2:G3500. But R2 contains the digit 1 and nothing else and after
this runs
G2:G3500 does not contain 1.
I inherited this from somebody no longer here and the users are not
able to help.
Thanks
JPS
--
JPS@bebe
------------------------------------------------------------------------
JPS@bebe's Profile:
http://www.excelforum.com/member.php...o&userid=32713
View this thread: http://www.excelforum.com/showthread...hreadid=525453