Thread
:
Macro help
View Single Post
#
2
Posted to microsoft.public.excel.programming
Don Guillett[_2_]
external usenet poster
Posts: 1,522
Macro help
Sub cleanupandmultiplySAS()
mc = "H"
lr = Cells(Rows.Count, mc).End(xlUp).Row
On Error Resume Next
For i = 2 To lr
If LCase(Right(Cells(i, mc), 1)) = "h" Then
MsgBox Left(Cells(i, mc), Len(Cells(i, mc)) - 1)
Cells(i, mc).Value = Left(Cells(i, mc), Len(Cells(i, mc)) - 1) /130
End If
Next i
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"andy" wrote in message
...
Hi - I am totally useless at writing macros:
we have a db that uses hrs and not man months as data-
what i have to do is extract a spread sheet from the db which shows
different values in hours eg (shown as 160h) in any columns or rows.
what i would like is to apply a macro that removes the sign h and then
divide the number by 130 which gives me my result in man months - i.e 160
h =
1.2 for every single value of the spread sheet extraction
if any one can advise me ( or create one - if it easy !!) then that would
be
fantastic
thanks
Reply With Quote
Don Guillett[_2_]
View Public Profile
Find all posts by Don Guillett[_2_]