Type mismatch when trying to convert to negative number

[Fred Smith]

I have a cell with the following data:

144.049S

The S means the number should be subtracted, so I want to turn it into a
negative value. My code is:

If Right(Cell.Offset(0, 8), 1) = "S" Then Cell.Offset(0, 8) = _
0 - Left(Cell.Offset(0, 8), Len(Cell.Offset(0, 8) - 1))

But I keep getting a type mismatch.

What am I doing wrong?

 

[Chris]

I think you put the bracket in the wront place for your Len function.
It should be

Len(Cell.offset(0,8)) - 1
instead of
Len(Cell.Offset(0, 8) - 1)

 

[Chris]

I think you put the bracket in the wrong place for your Len function.
It should be

Len(Cell.offset(0,8)) - 1
instead of
Len(Cell.Offset(0, 8) - 1)

Chris

Fred Smith ÀÛ¼º:

 

[Dave Peterson]

It looks like a misplaced ).

If Right(Cell.Offset(0, 8), 1) = "S" Then Cell.Offset(0, 8) = _
0 - Left(Cell.Offset(0, 8), Len(Cell.Offset(0, 8)) - 1)

Just to make it a little easier to read:

With Cell.Offset(0, 8)
If Right(.Value, 1) = "S" Then .Value = _
0 - Left(.Value, Len(.Value) - 1)
End With

And since I like block-If's better:

With Cell.Offset(0, 8)
If Right(.Value, 1) = "S" Then
.Value = 0 - Left(.Value, Len(.Value) - 1)
End If
End With

 

[Fred Smith]

Thanks so much.

You'd think after 35 years of programming, I'd double check the parentheses, but
senility must be setting in.

Thanks for your help.

--
Regards,
Fred


I think you put the bracket in the wrong place for your Len function.
It should be

Len(Cell.offset(0,8)) - 1
instead of
Len(Cell.Offset(0, 8) - 1)

Chris

Fred Smith ÀÛ¼º: