Tek Hücredeki Metni Belli Yerlerden Ayırma

Katılım
21 Aralık 2018
Mesajlar
35
Beğeniler
1
Excel Vers. ve Dili
Office 2007
#1
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

Altın Üye
Altın Üye
Katılım
4 Haziran 2005
Mesajlar
2,489
Beğeniler
59
Excel Vers. ve Dili
2010-2016
#2
Aşağıdaki kodları deneyin.
Kod:
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
 
Katılım
21 Aralık 2018
Mesajlar
35
Beğeniler
1
Excel Vers. ve Dili
Office 2007
#3
Ç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

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
3,986
Beğeniler
531
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#4
B1 Hücresine kopyalayınız.Yeterince sağa ve aşağı çekerek çoğaltınız.
Kod:
=KIRP(PARÇAAL(YERİNEKOY(YERİNEKOY(YERİNEKOY($A1;":";"/";3);"-";"/");"/";YİNELE(" ";255));255*SÜTUN(A$1);255))
 
Son düzenleme:
Üst