Sayıya Çevir

[levo26]

Merhaba,

Program ile excele almış olduğum verileri makro ile sayı haline çevirmek için aşağıdaki kodu kullanıyorum. Kodu çalıştırdığımda 0 "sıfır" olanları sayıya çevirmiyor.

Sub sayıya_çevir()
On Error Resume Next
Dim hucre As Range
Dim i, sayı
For Each hucre In Range("b2:T87")
sayı = ""
For i = 1 To Len(hucre)
If IsNumeric(Mid(hucre, i, 1)) Or Mid(hucre, i, 1) = "," Or Mid(hucre, i, 1) = 0 Then
sayı = sayı & Mid(hucre, i, 1)
End If
Next
hucre.Value = Format(sayı, "###.##") * 1
Next
End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub sayıya_çevir()
 
Dim hucre As Range
Dim i, sayı

For Each hucre In Range("B2:T87")
    If hucre <> "" Then
        sayı = ""
        For i = 1 To Len(hucre)
            If IsNumeric(Mid(hucre, i, 1)) Or Mid(hucre, i, 1) = "," _
                Or Mid(hucre, i, 1) = 0 Then
                sayı = sayı & Mid(hucre, i, 1)
            End If
        Next i
        hucre.Value = sayı * 1
        hucre.NumberFormat = "#,##0.00"
    End If
Next hucre
 
End Sub

Ayrıca linki incelemenizi tavsiye ederim.

Excel'in sistem biçimine uygun olmayan verilerin, biçimini düzeltme yolları

.

 

[levo26]

Kod olmadı;
hucre.Value = sayı * 1
satırında hata verdi. Linki inceleyeceğim. Teşekkürler.

 

[Ömer]

Sonuç alamazsanız verilerin olduğu tabloyu eklemeniz mümkün mü?

.

 

[levo26]

Ömer Bey,

Program ile alınmış dosya ekte. Tablo bu haliyle kullanılır gibi değil. Tarihler, rakamlar işlem yapmaya uygun değil. Makro ile üzerinde çalışılabilir hale getirmek istiyorum.

 

[Ömer]

Kısa bir yol önereyim.

G2 hücresini kopyalayın, daha sonra A:E ve I aralıklarını fare ile seçin, seçilin alanın herhangi bir bölgesinde, sağ klik / özel yapıştır / "topla" seçeneğini işaretleyip tamam butonu ile işlemi bitirin.

.

 

[levo26]

Ömer bey;

Tamam oldu. Harikasınız. Burada boş hücreyi seçip kopyala ; seçilmiş alana topla demekle nasıl oluyor bu iş?