Thread
:
Remove specific text from cell string
View Single Post
#
2
Posted to microsoft.public.excel.programming
papou
external usenet poster
Posts: 110
Remove specific text from cell string
Hello Robert
For Each timeCell In Selection
If Right(timeCell.Value, 2) = "pm" Then
timeCell.Replace "pm", ""
End If
Next
HTH
Cordially
Pascal
"Robert H" a écrit dans le message de news:
...
Im trying to run a macro to look at imported time data in a cell,
remove the am/pm designation and convert the time to 24 clock.
For now I will just select the range of data and run the macro...
the imported data is in general format example: "953am"
My though is to run through the column (selection) test each cell
value and if the cell contains the string "pm", remove "pm" and add
1200 to the numeric value.
If the cell contains "am" then just remove am.
just to get findingt he string right I started with:
Sub FixTime()
Dim timeCell As Range
For Each timeCell In Selection
If timeCell.Value = Right("pm", 2) Then
timeCell.Value = timeCell.Replace("pm", "")
End If
Next
End Sub
However, all the cells with "pm" in them get bypassed
any help will be appreciated.
Robert
Reply With Quote
papou
View Public Profile
Find all posts by papou