Code to remove everything but date in

[KORKIS2]

HvH-Ab-150512-06

Changed to this--->150512

Here is the format the date will change depending on the day

 

[Joe4]

We need to know all the rules (variations) of what this starting string can look like.
Will there always be the same number of characters before and after it?
Or will there always be two dashes before it and on after it?

 

[Rick Rothstein]

HvH-Ab-150512-06

Changed to this--->150512

Here is the format the date will change depending on the day

Is your text always structured like this?

text dash text dash date dash number

If not, then give us a better sense of how it could look.

 

[KORKIS2]

Yes it is always structured this way and its all in one column and its not always the same amount of rows and so therefore it should be in macro I think
I really appreciate the help guys

 

[Rick Rothstein]

Yes it is always structured this way and its all in one column and its not always the same amount of rows and so therefore it should be in macro I think

You can do it using Excel's Replace dialog box using the same two replacements that I used in the macro below...

Sub DateOnly()
  Columns("A").Replace "*-*-", "", xlPart
  Columns("A").Replace "-*", "", xlPart
End Sub

 

[KORKIS2]

Im guessing I plug in my parameters somewhere in here I don't quite understand the format

Sub DateOnly()
Columns("A").Replace "*-*-", "", xlPart
Columns("A").Replace "-*", "", xlPart
End Sub

 

[Rick Rothstein]

Im guessing I plug in my parameters somewhere in here I don't quite understand the format

Sub DateOnly()
Columns("A").Replace "*-*-", "", xlPart
Columns("A").Replace "-*", "", xlPart
End Sub

There is nothing for you to change.. the code I posted should be used as written... just copy/paste it into the code module.

 

[KORKIS2]

I got it to work but it only does 1 cell

 

[KORKIS2]

This is what I did

Sub DateOnly()
Columns("G").Replace "HvH-Ab-150512-06", "150512-06", xlPart
Columns("G").Replace "150512-06", "150512", xlPart
End Sub

 

[KORKIS2]

I tried playing with the range that doesnt seem to work either


Sub DateOnly22()


Range(G3 & ":" & G11).Replace "HvH-Ab-150512-06", "150512-06", xlPart
Range(G3 & ":" & G11).Replace "150512-06", "150512", xlPart
End Sub