Koşulsuz PARÇAAL Formülünde Yardım!

[by_ufuk]

Merhaba Arkadaşlar,
aşağıda sorunumu anlattım gerekli dosyayı ekledim, bu konuda yardım ederseniz sevinirim.

 

[apocalyt]

aşağıdaki kodu bir modüle kopyalayıp deneyiniz...

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

 

[suleyman242]

Merhaba Arkadaşlar,
aşağıda sorunumu anlattım gerekli dosyayı ekledim, bu konuda yardım ederseniz sevinirim.
veri metni sütünlara dönüştür den yapabilirsin dosya ekte