VBA: Parsing String

[iand5]

Hi, I currently have the following string in a cell: "09/17/2015 0715"

I am exporting this to a .txt file.

Is it possible to parse the string so that it gets rid of the date and only displays "0715" when exporting the .txt file?

 

[PCL]

You can extract the 4 last right digits in VBA as you will do it in Excel:

CellVal = "[COLOR=#333333][FONT=Verdana]09/17/2015 0715"[/FONT][/COLOR]
  RightDigits = Right(CellVal,4)

 

[iand5]

Thanks!

Is there a way to apply this to a range of rows? Let's say I only want the last 4 digits for Range("A1:A10").

 

[Rick Rothstein]

Is there a way to apply this to a range of rows? Let's say I only want the last 4 digits for Range("A1:A10").

Does this do what you want...

Sub RemoveDatePart()
  Range("A1:A10").NumberFormat = "@"
  Range("A1:A10") = Evaluate("IF({1},RIGHT(A1:A10,4))")
End Sub