Macro ile Virgül'den sonrasını ayırma

[mavisachal]

Arkadaşlar merhaba,

A1 hücresinde 20,32.2,22,0.12,35,87,18.2

Ben bu a1 hücresindeki verileri b1,c1,d1 hücrelerine virgul olmadan ayırmak istiyorum.
yani b1 hücresinde 20
c1 hücresinde 32.2
d1 hücresinde 22
e1 hücresinde 0.12 gibi
kaç tane sayı olduğunu bilmiyorum onun için de macro ile böyle birşey yapılabilir mi acaba?

her virgül öncesini başka bir kolona atması lazım.

Teşekkürler.

 

[YUSUF44]

Metni sütunlara dönüştür özelliği işinizi görmüyor mu? Özellikle bu iş için kullanılan bir özelliktir.

 

[mavisachal]

yusuf bey merhaba,

veriler sadece bir hucrede yok cok fazla hucrelerde ve her zaman oldugu icin farklı sayılarda virgul oldugu icinde isimi gormemekte gorse de cok ugrastirir. macro ile yapmak cok kolaylık sağlayacak. Teşekkürler.

 

[apocalyt]

bir module kopyalayıp deneyiniz..

Sub daylight()
For x = 1 To [a10000].End(3).Row
ben = Split(Cells(x, 1), ",")
For y = 2 To UBound(ben)
Cells(x, y) = ben(a)
a = a + 1
Next y
a = 0
Next x
End Sub

 

[mavisachal]

Apocalyt çok teşekkür ederim işimi gördü.