Thread: Code problem
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Bob Phillips[_6_] Bob Phillips[_6_] is offline
external usenet poster
 
Posts: 11,272
Default Code problem

Are you sure that C3 is exactly 1, it doesn't have some very small
fractional part. Try increasing the decimal places to see.

If so, and dealing with integers, you could use

If Int(Range("C3").Value) = Int(Range("W1").Value) Then

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Patrick Simonds" wrote in message
...
On my spreadsheet C3 contains a formula which returns the number 1 and

cell
W1 value is 1, in this case the code should skip to Continue1: and not

sort
the cells, but it is not. Can anyone tell me why?

If Range("C3").Value = Range("W1").Value Then

GoTo Continue1

End If

If Range("C3").Value "" Then

Range("A4:C8").Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending,

Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End If

Continue1: