sayıya çevir

[ADER_34]

Merhaba arkadaşlar ben ekli dosyamda metin olan sayıları makro ile sayıya çavirmek istiyorum mümkün mü kolay gelsin..


http://s8.dosya.tc/server5/8z9pb5/SAYIYA_CEVIR.xlsx.html

 

[Haluk]

Formül kullanmak isterseniz;

B1 hücresine

=A1+0

yazıp, aşağıya doğru sürükleyin.

.

 

[umit1907]

Merhabalar

ekteki görseldeki gibi sayı aralığını seçip sağ üstte çıkan ünlem işaretine tıklayarak sayıya çevirebilirsiniz.

 

[Haluk]

Yukarıdaki 2 yöntem yerine mutlaka makro istiyorsanız;

Sub Test()
    NoA = Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    For i = 1 To NoA
        Range("A" & i) = Range("A" & i) + 0
    Next
End Sub

.

 

[Necdet]

Merhaba,

Örneğinizde C1 hücresinin boş olduğunu varsayarak, dolu ise Boş bir hücre seçebilirsiniz.

Sub Makro1()

    Range("C1") = 0
    Range("C1").Copy
    Range("A1:A" & Cells(Rows.Count, "A").End(3).Row).PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    Range("C1").ClearContents

End Sub

Makro C1 hücresine 0 değeri atar, bu değeri kopyalar
sonra A sütunundaki tüm hücreleri seçer ve özel yapıştırdan "Topla" seçeneğini kullanır.

Bunları makro yazmadan el ile de yapabilirsiniz.