Excel Tek Hücredeki Veri Listesini Hücrelere Ayırma

[websitesi84]

Merhabalar. Form kullanarak anket yapıyorum. Ankette seçenek ekleyerek veri giriş sorusu var. Ve o soru excel de tek hücrede gözüküyor. Bu hücreyi nasıl ayırabilirim. Metni sütunlara dönüştür sekmesi işe yaramıyor. Örnek hücre (A1);

Yakınlık: Anne, meslek: ev hanımı, Maaş:0
Yakınlık:Baba, meslek: emekli, Maaş:5000
Bu excelde tek hücrede gözükmektedir ve satır satır verilmiştir. Bu hücreyi;
(B1)Yakınlık (C1) Meslek (D1) Maaş
(b2)Anne (C2)Evhanımı (D2)0
(B3)Baba (C3)Emekli (d3)5000

Olarak yapabilir miyiz?
Teşekkürler

 

[bmutlu966]

Merhaba,
Makro ile çözüm. Datanız A2 satırından aşığıya doğru olduğunu farzedersek. Aşağıdaki kodlarla halledebilirsiniz.

Sub ayir()

son = [A65536].End(3).Row
Range("B2:D" & son).ClearContents
For t = 2 To son
    Cells(t, "B") = Split(Split(Cells(t, "A"), ":")(1), ",")(0)
    Cells(t, "C") = Split(Split(Cells(t, "A"), ":")(2), ",")(0)
    Cells(t, "D") = Split(Split(Cells(t, "A"), ":")(3), ",")(0)
Next

End Sub

 

[52779]

Selamlar,
Formülle çözüme bir örnek
Veriler A2 den itibaren A kolonunda ve (B1)Yakınlık (C1) Meslek (D1) Maaş olmak üzere
(iki nokta üst üste ve virgüller aranmaktadır)

B2 hücresine
=KIRP(PARÇAAL($A2&",";BUL("#";YERİNEKOY($A2&",";":";"#";SÜTUNSAY($B$1:B$1)))+1;BUL("#";YERİNEKOY($A2&",";",";"#";SÜTUNSAY($B$1:B$1)))-BUL("#";YERİNEKOY($A2&",";":";"#";SÜTUNSAY($B$1:B$1)))-1))

formülü yazın sağa ve aşağıya kopyalayın..

 

[websitesi84]

Çok teşekkür ederim