Replace Text in cell

[KORKIS2]

I'm trying to write code to go down a column and change all the texts from

HvH-Ab-150602-03

<tbody>
</tbody>

To 150602

I have found some code

Sub DateOnly22()
Dim OriginalText As String
Dim CorrectedText As String
Dim G3 As Long
Dim G11 As Long


OriginalText = Range("G3").Value


CorrectedText = Replace(OriginalText, "HvH-Ab-150512-06", "150512")


Range("G3:G11").Value = CorrectedText


End Sub





Here is a previous discussion on it
http://www.mrexcel.com/forum/excel-questions/861081-code-remove-everything-but-date.html

 

[Scott Huish]

Please continue in the original thread: http://www.mrexcel.com/forum/excel-questions/861081-code-remove-everything-but-date.html