Hücredeki değerleri kolona atayan

[search77]

Merhaba Arkadaşlar,

Ekli dosyada örnek olarak belirttim, A1 hücresindeki değerleri B kolonuna yazdıran macro için yardım talep etmekteyim.

Şimdiden ilginize çok çok teşekkürler.

Saygılarımla.

 

[Muhammet Okumuş]

Merhaba,

Sub Böl()
x = Evaluate("LEN(A1)-LEN(SUBSTITUTE(A1,"" "",""""))")
r = 1
For i = 1 To x
n = WorksheetFunction.Search(" ", Range("A1"), r)
Cells(i, 3) = Mid(Range("a1"), r, n - r)
r = n + 1
Next
Cells(i, 3) = Mid(Range("a1"), r, 100)
End Sub

Kodu deneyiniz.

 

[search77]

Çok teşekkürler muhammet bey,

Elinize kolunuza sağlık mükemmel olmuş

Syg.