Metni sayıya çevirme

[thecarow]

Merhaba;
Farklı bir programdan çektiğim veriler metin olarak gelmekte. Excel'e yapıştırdığımda B kolonuna gelen verileri otomatik olarak sayıya çevirmek istiyorum. Bununla ilgili formül varmı acaba

 

[Korhan Ayhan]

Öneride bulunmak için küçük bir örnek dosya paylaşırmısınız.

 

[NADİR YILDIZ]

Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Dim alan As Range
Set alan = Range("b1:b5000")
a = alan.Value
For i = 1 To UBound(a)
For j = 1 To UBound(a, 2)
If a(i, j) <> "" Then
a(i, j) = a(i, j) * 1
End If
Next j
Next i
alan.NumberFormat = "General"
alan.NumberFormat = "#,##0.00"
alan = a
Application.ScreenUpdating = True
End Sub


Bu makroyu kullanıyorum...sayıya çeviriyor

 

[mana97]

=SAYIYAÇEVİR(A1)
=VALUE(A1)

 

[thecarow]

destekleriniz için teşekkür ederim