F2+Enter without sendkeys method

[HerryMarkowitz]

Greetings,
1- Open enclosed file.
2- Run Macro1.

Sub Macro1()
Dim i As Range
For Each i In Sheets("Sheet1").Range("A2:A" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
    i.Select
    Application.SendKeys "{F2}"
    Application.SendKeys "{ENTER}"
    DoEvents
Next
End Sub

3- See that F2+Enter macro works perfectly.

Question: I dont want to use F2+Enter macro for some reasons... Any advice without using F2+Enter macro will be appreciated...
I dont want to use sendkeys method...

[mikerickson]

What does pressing F2 do?

[HerryMarkowitz]

Hi Mike,
F2 + Enter is creating proper date numbers...
In order to see how, please run Macro1 in the enclosed file...

[Marc L]

Why this duplicate thread ?‼

[HerryMarkowitz]

Why this duplicate thread ?‼

This is not duplicate thread. Because this time data is in "date" format...

[Faridwahidi]

Hi Herry,

I am really confused what you intend to do? F2 + Enter for what reasons? Do you want to convert text in Column A to date format?

[HerryMarkowitz]

Hi Herry,
Do you want to convert text in Column A to date format?

Yes, exactly.

[Kenneth Hobson]

I don't see F2, Enter doing what you want.

Sub Macro2()
  Dim i As Range, v As Variant, a As Variant
  For Each i In Sheets("Sheet1").Range("A2:A" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
    a = Split(i.Value, ".")
    i.Value = DateSerial(a(2), a(1), a(0))
    i.NumberFormat = "dd.mm.yy"
  Next i
End Sub

[Faridwahidi]

Hi Herry,


You don't need a macro to do this. It just a simple excel Formula

put in at column B starting on B2 and drag down this formula


=DATE("20"&RIGHT(A2,2),RIGHT(LEFT(A2,5),2),LEFT(A2,2))

[HerryMarkowitz]

Thanks Kenneth Hobson.
Thanks Faridwahidi.
Solved.