Extract a date from a string of text

[JeffFinnan]

I have a cell with that has text and a date in it for example: QAQC Data was downloaded at 9/30/24 2:08 PM

Is there a way to simply extract just the date out of this using vba? This cell will always be in this format.

 

[Joe4]

Here is one way:

Sub ExtractDate()

    Dim str As String
    Dim arr() As String
    Dim myDate
    
    str = "QAQC Data was downloaded at 9/30/24 2:08 PM"
    arr = Split(str, " ")

    myDate = arr(UBound(arr) - 2)
    MsgBox myDate
    
End Sub

 

[DanteAmor]

Try:

Libro1
	A	B
1
2	QAQC Data was downloaded at 9/30/24 2:08 PM	9/30/24
Hoja2

Cell Formulas
Range	Formula
B2	B2	=TRIM(MID(A2,SEARCH("??/??/????",A2),8))

 

[DanteAmor]

With macro:

Sub Macro1()
  Range("B2").Value = Evaluate("=TRIM(MID(A2,SEARCH(""??/??/????"",A2),8))")
End Sub