DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[SIZE="2"]Sub Emre()
Dim i As Long
[C2].Select
For i = 2 To Range("C65536").End(3).Row
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
Next i: i = Empty
End Sub[/SIZE]
Eğer A sütunundaki verilerinizi sayısal değere çevirmek istiyorsanız F2+ENTER yerine TEXT TO COLUMNS özelliğinden faydalanabilirsiniz. Daha hızlı sonuç verecektir.
Sütunu seçtikten sonra Data-Text to Columns menüsünü açınız. Sonrasında FINISH tuşuna bastığınızda veriler sayısal değere dönüşmüş olacaktır.