need help replacing string with "."
Another way...
If you select column A and do
edit|replace
what: *. (asterisk, dot)
with: (leave blank)
replace all
You can get all of the cells in one fell swoop.
In code:
sh.Range("A:A").Replace What:=".*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Arain wrote:
i used a macro to replace the "." but can someone tell me how to replace
"."and the text following the period. i mean when ever it hits a period it
should delete everything thats after the "."
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim rng As Range
Dim rCell As Range
Set WB = Workbooks("MasterList.xls")
Set SH = WB.Sheets("VT Masterlist") '
Set rng = SH.Range("A:A")
For Each rCell In rng.Cells
With rCell
If Not IsEmpty(.Value) Then
.Replace What:=".", Replacement:=""
End If
End With
Next rCell
End Sub
--
Dave Peterson
|