excel hücresindeki metin bilgi hk.

[smelihates]

Merhabalar Arkadaşlar,
Excel de bir hücre içinde yaklaşık 100 kelimeden oluşan metin bilgisi var. Bu metni oluşturan her kelimeyi hücrelere ayrı ayrı yazdırmak istiyorum. Yani boşluk görene kadar olan aralığı kesip b sutununun satırlarına atamak..
yardımcı olabilirseniz sevinirim.

Melih

 

[Orion1]

A1 hücresindeki kelimeleri.B sütununa alt alta yazar.

Sub kelime()
Dim deg, k As Byte, sat As Byte
Range("B:B").ClearContents
deg = Split(Range("[B][COLOR="Red"]A1[/COLOR][/B]").Value, " ")
For k = 0 To UBound(deg)
    sat = sat + 1
    Cells(sat, "B").Value = deg(k)
Next
MsgBox "İşlem tamamdır"
End Sub

 

[xp45s]

elinize sağlık benimde çok işime yarıyacak bi kod..

 

[Orion1]

elinize sağlık benimde çok işime yarıyacak bi kod..

Rica ederim.

 

[smelihates]

Çok teşekkürler, ellerinize sağlık..