"soldan" Kullanarak Sayi Aktarma

[mixser]

Merhaba arkadaşlar

Ekteki örnek dosyamda da göreceğiniz gibi
iki sayfa arasında veri aktarması yapmak istiyorum.
aktarılacak sayının sadece ilk 8 rakamını bir stüna ikinci stüna ise sayının tamamını aktarırken içindeki "/" işaretinin olmamasını istiyorum.
bunu nasıl yapacağım konusunda yardımlarınızı bekliyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
For a = 2 To Sheets("Giriş").[c65536].End(3).Row
deg = Split(Cells(a, "c"), "/")
Sheets("liste").Cells(a - 1, "a") = deg(0)
Sheets("liste").Cells(a - 1, "b") = deg(1)
Next
End Sub