Sayı Olarak Görme

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar internetten sayı kopyalayıp hücreye yapıştırıyorum, yapıştırma işlemini Makroyla yapıyorum, internetten kopyalayıp hücreye yapıştırdığım değer(sayı), formüller görmüyor(algılamıyor), aşağıdaki Kodta nasıl bir değişiklik yapılabilir?, teşekkür ediyorum, Allah razı olsun.

Sheets("Mak.Top.").PasteSpecial format:="Unicode Metin"

 

[antonio]

Özellikle web den alınan sayısal değerlerin metin olarak algılanmaktan çıkarılması için ben her seferinde şöyle bir yöntem kullanıyorum (bu değerleri A sütununa yapışırdığımı varsayarsak):

Sub sayisal_veriler()
Dim i As Integer, ss As Integer
ss = Sheets("Mak.Top.").Range("A" & Rows.Count).End(3).Row
For i = 2 To ss
Cells(i, 1) = Cells(i, 1) * 1
Next i
End Sub

 

[Seyit Tiken]

Teşekkür ediyorum, Allah razı olsun.