Function col3(target As Range)
Dim tablo() As String
tablo = Split(target.Offset(0, -2).Value)
For i = 0 To UBound(tablo)
If IsDate(tablo(i)) Or IsDate(Replace(tablo(i), ".", "/")) Then
col3 = Replace(tablo(i), ".", "/")
Exit Function
End If
Next i
End Function
Function col4(target As Range)
Dim tablo() As String
date1 = ""
tablo = Split(target.Offset(0, -3).Value)
For i = 0 To UBound(tablo)
If (IsDate(tablo(i)) Or IsDate(Replace(tablo(i), ".", "/"))) And date1 <> "" Then
col4 = Replace(tablo(i), ".", "/")
Exit Function
End If
If (IsDate(tablo(i)) Or IsDate(Replace(tablo(i), ".", "/"))) And date1 = "" Then date1 = tablo(i)
Next i
End Function