Sayısal verileri Metinsel(String) tipi verilere dönüştürmek

[antonio]

Sayısal veriler içinde arama yaparken başlayan yada içeren rakamlar yazıldığında bunun gerçekleşmesi için bunların metinsel hale dönüştürülmesi gerektiğini, değerli üstatlar Evren Gizlen ve Korhan Ayhan sayesinde anlamış oldum. Bu durumda bunu yapabilmek için örnek bir dosya hazırladım. Amacım, A sütununda sayısal olarak mevcut olan verileri; B sütununa, sayısal görünümde metinsel ifadeler olarak almaktır. "CLEAN" formülünü:

Sub metneçevir()
Range("B:B").ClearContents
For i = 2 To 21
    Range("B" & i).FormulaR1C1 = "=CLEAN(RC[-1])"
Next i
End Sub

olarak yazdığım zaman amaçladığım durum oluşmaktadır.
Oysa aynı formülü;

Sub metneçevir2()
Dim deg As String
Range("B:B").ClearContents
For i = 2 To 21
deg = Application.WorksheetFunction.Clean(Cells(i, "A").Value)
Cells(i, "B").Value = deg
Next i
End Sub

şeklinde yazdığım zaman aynı şey olmuyor.
Bunun sebebi ne olabilir? Durumu anlatan ve sonucu gösteren örnek dosya ektedir.
Önceden teşekkürler, ve saygılarımla.

 

[Orion1]

Sub metneçevir2()
Dim deg As String
Range("B:B").ClearContents
[B][COLOR="Red"]Range("B2:B21").NumberFormat = "@"[/COLOR][/B]
For i = 2 To 21
deg = Application.WorksheetFunction.Clean(Cells(i, "A").Value)
Cells(i, "B").Value = deg
Next i
End Sub

 

[antonio]

Sub metneçevir2()
Dim deg As String
Range("B:B").ClearContents
[B][COLOR="Red"]Range("B2:B21").NumberFormat = "@"[/COLOR][/B]
For i = 2 To 21
deg = Application.WorksheetFunction.Clean(Cells(i, "A").Value)
Cells(i, "B").Value = deg
Next i
End Sub

Çok teşekkür ederim Evren Hocam.. Beyninize ve paylaşımcı yüreğinize sağlık..

 

[Orion1]

Çok teşekkür ederim Evren Hocam.. Beyninize ve paylaşımcı yüreğinize sağlık..

Rica ederim.
iyi çalışmalar.