Metni Sutünlara Çevir Sonrası Toplama Problemi

[tactless]

Arkadaşlar merhaba,

txt formatındaki bir datayı metni sutünlara çevir yolu ile excel aktardım. Lakin 4.350,00 formatındaki sayıyı toplayamıyorum. sorunun . ve , den kaynaklı olduğunu biliyorum. silip tekrar yazmam gerekiyor. Daha kolay bir yol varmı toplama yada ilgili sayıyı toplama şekline sokacak. birşey. (ctrl + F bul değiştir ile değil) formülle yapılan birşey yada başka.

tşkler.

 

[halit3]

bu kodu denermisiniz. a1:k30 hücrelerindeki verilerdeki işlemleri yapar

Sub SAYIYAÇEVİR()
Dim x As Range
For Each x In [A1:K30]
If x.Value <> "" Then
If IsDate(x.Value) = False Then
If IsNumeric(x.Value) = True Then
x.Value = x.Value * 1
End If
End If
End If
Next x
End Sub

 

[tactless]

teşekkürler.