Hücre içerisindeki uzun veriyi belli kısımlarından ayrıştırmak

[blackstone57]

Değerli Üstadlar,

A1 hücresi
Task:153424347 Date:01.01.2012 16:06:00 UTC+0100 xxxxxxxxxx xxxxxxxxxxxxxxxxxxx xxxxxxxxxxxx xxxxx 01/01/2012 15:12:23: xxxxxx xx xxxxx xxxxx Task:153424347 Date:01.01.2012 14:20:39 UTC+0100 xxxxxxxx xxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxx xxxxxxxxxxx 01/01/2012 15:12:23: xxxxxx xx xxxxx xxxxx Task:153424347 Date:01.01.2012 13:00:39 UTC+0100 xxxxxxxx xxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxx xxxxxxxxxxx 01/01/2012 12:30:23: xxxxxx xx xxxxx xxxxx


A1 hücresinde bulunan uzun açıklamayı, ilk task açıklamasında başlayarak hücre içerisindeki bir sonraki task başlığına kadar ayırarak, var olan task adeti kadar yan hücrelere ayırabilirmiyim.

A1 hücresindeki uzun metnin başında 1 adet boşlukla gelmektedir.

B1 hücresine
Task:153424347 Date:01.01.2012 16:06:00 UTC+0100 xxxxxxxxxx xxxxxxxxxxxxxxxxxxx xxxxxxxxxxxx xxxxx 01/01/2012 15:12:23: xxxxxx xx xxxxx xxxxx

C1 hücresine
Task:153424347 Date:01.01.2012 14:20:39 UTC+0100 xxxxxxxx xxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxx xxxxxxxxxxx 01/01/2012 15:12:23: xxxxxx xx xxxxx xxxxx

D1 hücresine
Task:153424347 Date:01.01.2012 13:00:39 UTC+0100 xxxxxxxx xxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxx xxxxxxxxxxx 01/01/2012 12:30:23: xxxxxx xx xxxxx xxxxx

Yardımlarınız için şimdiden çok teşekkür ederim.

Saygılarımla

 

[uzmanamele]

Merhaba

Çeşitli yöntemler bulunabilir.
Benim önerim formül veya makro yerine şu şekildedir;

Bul-Değiştir ile Task yerine ,Task yazın.
Metni sütunlara dönüştür seçeneğinden, sınır olarak (,) virgül seçin.

 

[tahsinanarat]

Dosyanız ekte

Ekli dosyayı inceleyiniz

 

[uzmanamele]

Merhaba

Makro alternatifi.

Sub Metni_sütunlara_dönüştür()
For x = 1 To [a65536].End(3).Row
    a = Split(Cells(x, 1), "Task")
    y = 1
    For i = 1 To UBound(a)
        y = y + 1
        Cells(x, y) = "Task" & Left(a(i), Len(a(i)))
    Next
Next
End Sub

 

[tahsinanarat]

Sn. uzmanamele hocam, elinize sağlık, müsaadenizle kodunuzu arşivime alıyorum. Saygılar

 

[uzmanamele]

Sn. uzmanamele hocam, elinize sağlık, müsaadenizle kodunuzu arşivime alıyorum. Saygılar

Attım tuttu
Bu kodu ben de arşivime alayım.

 

[blackstone57]

Sayın uzmanamele, yardımlarınız için teşekkür ederim.

saygılarımla