maro ile metni sayıya çevirmede sorun

[kadirdiloglu]

Arkadaşlar,

Aşağıdaki fotoğrafta da görüldüğü gibi W1 hücresindeki sayı ile u sütünundaki metinleri sayıya dönüştürmek için çarptığımda sadece tek haneli sayıları sayıya çeviriyor diğer 2,5,3,5 gibi metinleri ise çevirmiyor. Uyguladığım kod aşağıdaki gibidir.Neden hepsini çevirmiyor?

http://s4.dosya.tc/server2/o1rz2e/soru.xlsx.html

[/url][/IMG]

Sub Makro2()
'
' Makro2 Makro
'

'
    Columns("U:U").Select
    Selection.NumberFormat = "0.00"
    Range("W1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("W1").Select
    Selection.Copy
    Columns("U:U").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=51
    Range("W68").Select
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 5371
    ActiveWindow.ScrollRow = 8056
    ActiveWindow.ScrollRow = 9399
    ActiveWindow.ScrollRow = 10741
    ActiveWindow.ScrollRow = 12084
    ActiveWindow.ScrollRow = 13426
    ActiveWindow.ScrollRow = 14769
    ActiveWindow.ScrollRow = 16112
    ActiveWindow.ScrollRow = 17454
    ActiveWindow.ScrollRow = 20139
    ActiveWindow.ScrollRow = 24167
    ActiveWindow.ScrollRow = 26852
    ActiveWindow.ScrollRow = 32222
    ActiveWindow.ScrollRow = 34907
    ActiveWindow.ScrollRow = 36250
    ActiveWindow.ScrollRow = 38935
    ActiveWindow.ScrollRow = 41620
    ActiveWindow.ScrollRow = 44305
    ActiveWindow.ScrollRow = 46990
    ActiveWindow.ScrollRow = 49675
    ActiveWindow.ScrollRow = 51018
    ActiveWindow.ScrollRow = 52360
    ActiveWindow.ScrollRow = 53703
    ActiveWindow.ScrollRow = 55045
    ActiveWindow.ScrollRow = 56388
    ActiveWindow.ScrollRow = 55045
    ActiveWindow.ScrollRow = 52360
    ActiveWindow.ScrollRow = 49675
    ActiveWindow.ScrollRow = 46990
    ActiveWindow.ScrollRow = 42962
    ActiveWindow.ScrollRow = 38935
    ActiveWindow.ScrollRow = 34907
    ActiveWindow.ScrollRow = 28194
    ActiveWindow.ScrollRow = 14769
    ActiveWindow.ScrollRow = 6714
    ActiveWindow.ScrollRow = 1
    Range("X7").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=SUM(C[-3])"
    Range("X8").Select
End Sub

 

[Ömer BARAN]

Merhaba.

Sorunuzu, resim yerine,
(cevabımın altındaki açıklamaları okuyarak)
hazırlayacağınız örnek belgeyle desteklemenizi öneririm.
.