sayıyı sayıya dönüştürme

[Emir Hüseyin Çoban]

. . .

Deneyiniz.

Sub kod()
Application.ScreenUpdating = False

Sheets("Sayfa1").Columns("D:F").ClearContents
Application.DisplayAlerts = False
on error resume next
son = Sheets("Sayfa2").[L65536].End(3).Row
For i = 2 To son
Sheets("Sayfa2").Cells(i, "L") = Sheets("Sayfa2").Cells(i, "L") * 1
Next i

Sheets("Sayfa2").Range("G:G,L:L,O:O").Copy Sheets("Sayfa1").Columns("D:D")

Application.ScreenUpdating = True
End Sub

. . .

 

[acar6783]

hocam d sutununa hiçbir veri gelmiyor..

 

[Emir Hüseyin Çoban]

. . .

Sayfa2 de G sütunu boş olduğu için olabilir mi ?

. . .

 

[acar6783]

Evet koddaki verileri kendi sayfama göre uyarlayınca düzeldi fakat yine sutundaki veriler sayı olarak görünmüyor..
bir sutunu sayıyaçevir() yapıp o sekilde yaptım
teşekkürler