Hücredeki veriyi parçala, ayrı hücrelere yaz.

[ahzola]

Selamlar

Hayırlı sabahlar cümleten.
Forumu taradım. Bulduğum örnekleri kendi dosyama
uygulayamadım arkadaşlar.

Örnekte açıkladığım üzere. Tek bir hücredeki veriyi
ayrı hücrlere yazdırmak istiyorum.

Şimdiden ilgi ve alakanız için teşekkür ederim.

 

[Huseyinkis]

Ekli kodları denermisiniz.

Sub parçala()
For i = 1 To Cells(Rows.Count, 1).End(3).Row
For x = 1 To Len(Cells(i, 1).Value)
If Mid(Cells(i, 1).Value, x, 1) = " " Then
Cells(i, x + 2).Value = ""
Else
Cells(i, x + 2).Value = Mid(Cells(i, 1).Value, x, 1)
End If
Next x
Next i
End Sub

 

[excelci1]

=PARÇAAL($A1;SÜTUN(A1);1)

formülü istediğiniz yere yapıştırıp sağa doğru sürükleyin.
kolay gelsin...

 

[ahzola]

Teşekkür ederim Hüseyin Bey.
Çok yardımınızı görüyorum.
Herşey gönlünüzce olsun.

Sn excelci1

alakanız için teşekkür ederim.
iyi günler.


sorunumuz çözümlenmiştir.
herkese iyi çalışmalar