sayı olarak görmüyor

[kadirdiloglu]

Merhaba,

Aşağıda örneğini de eklediğim excelde iki sütuna da bir yerden sayılar yapıştırdım ama bunları excelde sayı formatına çeviremiyorum yardımcı olabilir misiniz?

Teşekkürler

http://s3.dosya.tc/server10/12wgqc/soru_sayi.xlsx.html

 

[rabbace]

Merhaba,

Hocam =Kırp fonksiyonu var fakat işe yaramadı sizin verilerde. Tek tek silince işe yaradı. Sanırım tek tek silmeniz gerekecek. Makro ile deneyeceğim ama merak ettim.

 

[rabbace]

Hocam alttaki formülü boş olan herhangi bir hücreye kopyalayıp aşağı doğru çekiniz.

=KIRP(TEMİZ(YERİNEKOY(A3;DAMGA(160);"")))

 

[işsiz123]

ctrl+h (değiştir) ile "." veya "," kaldırabilirsiniz .

 

[tahsinanarat]

Sub çevir()
Dim x As Range
For Each x In [A1:B500]
If x.Value <> "" Then
If IsNumeric(x.Value) = True Then
x.Value = x.Value * 1
'MsgBox x.Address
x.NumberFormat = "#,##0.00"
End If
End If
Next x
End Sub

 

[kadirdiloglu]

Hocam alttaki formülü boş olan herhangi bir hücreye kopyalayıp aşağı doğru çekiniz.

=KIRP(TEMİZ(YERİNEKOY(A3;DAMGA(160);"")))

teşekkürler işe yaradı