F2+Enter takılma sorunu

[elevisse]

Arkadaşlar merhaba,
E sütununda (E5:E10000) arasında verilerim var. Buradaki veriler daha az da olabilir.Bu verilere F2 + Enter uygulamak istiyorum fakat aşağıdaki makro çalıştığında E1918 kadar gidiyor ve orada duruyor. Makro ilk boş hücrede durabilir mi ve ilk boş hücreye kadar önceki tüm hücrelere F2+Enter uygulayabilir mi? Yardımlarınızı rica ederim. Teşekkürler.

Sub F2_Enter()
For i = 1 To [E65000].End(3).Row
        Cells(i, "E").Select
    SendKeys "{F2}"
    SendKeys "{ENTER}"
 Next i
End Sub

 

[elevisse]

Arkadaşlar Merhaba,
Sizinle çözümü paylaşmak istiyorum.

1 Select a blank cell and copy it.

2 Select the cells with the 'dates'.

3 Goto Paste Special and pick Addition from the operation section.

4 Format the values as date.