Tek Hücredeki Metni Belli Yerlerden Ayırma

[sehitkamil]

Merhaba,

Whatsapp konuşmalarını dışa aktararak elde edilmiş bir text dosyam var. Onu Excel'e kopyaladığımda tek hücreye kopyalıyor. Metin ayırması kolay olsun diye aralarında boşluk olmadan / işareti ile ayrılarak yazıldı. İstediğim şey bunu Excel'de ayrı ayrı hücrelere yazmak. Örnek dosya ve açıklama buradadır. Örnek dosyada istediğim şekil örneğini de el ile yazdım bir tane. Şimdiden teşekkür ederim.

 

[askm]

Aşağıdaki kodları deneyin.

Sub ASKM_Kelime_Bol()
Dim say
Application.ScreenUpdating = False
On Error Resume Next

y = 2
For i = 1 To Range("A" & Rows.Count).End(3).Row
    say = Split(Cells(i, 1), "/")
    For x = 0 To UBound(say)
        If x = 0 Then
            ara = Split(say(x), ":")
            Cells(i, y + x) = ara(UBound(ara))
        Else
            If InStr(say(x), "-") > 0 Then
                arama = Split(say(x), "-")
                Cells(i, y + x) = arama(0)
                y = y + 1
                Cells(i, y + x) = arama(1)
            Else
                Cells(i, y + x) = say(x)
            End If
        End If
    Next x
y = 2
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[sehitkamil]

Çok teşekkür ederim Sayın askm,

Tam istediğim sonucu veriyor ama benim Excel bilgim yok denecek kadar az. Her seferinde kod bölümünü açıp çalıştır yapmam mı gerekecek? Formül gibi aşağı çekerek önceden hazır hâle getirme şansım var mı?

 

[çıtır]

B1 Hücresine kopyalayınız.Yeterince sağa ve aşağı çekerek çoğaltınız.

=KIRP(PARÇAAL(YERİNEKOY(YERİNEKOY(YERİNEKOY($A1;":";"/";3);"-";"/");"/";YİNELE(" ";255));255*SÜTUN(A$1);255))

 

[sehitkamil]

Çok teşekkür ederim Sayın Çıtır, tam istediğim gibi oldu. İyi akşamlar.

 

[çıtır]

Çok teşekkür ederim Sayın Çıtır, tam istediğim gibi oldu. İyi akşamlar.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.100 leri 255 yaparsanız daha sağlıklı sonuç verir.Üstte düzeltim.Koaly gelsin.

 

[sehitkamil]

Evet ben de sonradan küçük bir sorun fark etmiştim. Çok sağ olun.