macro to search a cell for date format

[Maui]

does anyone know of a way I can search a cell from roght to left until I find a date format and the paste that format in a cell.

anyone got any ideas to get me started.

 

[Scott Huish]

What is this date format you're looking for? Are you wanting to past a date value or format a different cell or what? Please provide some more details about what you are trying to do exactly.

 

[Maui]

I have cells like this

040706-040806 32755MR 2630MR
120506-270706 90397MR
010706-310706 23414UNITS 26668UNITS
040706-010806 182605MR 39MR
040706-010806 1564MR 1259MR 285850MR
050706-020806 667952MR

But not always in this easy format, sometimes the dates are at end of the cell sometimes at begining. So I cant do an easy mid(a1,6)"/"mid(etcetc

I want to be able to pick up the second date 040806 and paste that in a cell then search the next cell down.

 

[jindon]

hi
try

Sub test()
Dim r As Range, mItem As Object, i As Integer
With CreateObject("VBScript.RegExp")
   For Each r In Range("a1",Range("a" & Rows.Count).End(xlUp))
      .Pattern = "(0?[1-9]|[1-2][0-9]|3[0-1])(0?[1-9]|1[1-2])0[0-9]"
      .Global = True
      If .test(r.Value) Then
         Set mItem = .execute(r.Value)
         For i = 0 To mItem.Count -1
            r.Offset(, i +1).Value = mItem.item(i)
         Next
      End If
   Next
End With
End Sub