Tek Hücredeki Metni Belli Yerlerden Ayırma

Katılım
21 Aralık 2018
Mesajlar
42
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,509
Beğeniler
63
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
42
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
4,396
Beğeniler
668
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:

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
4,396
Beğeniler
668
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#6
Ç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.
 
Katılım
21 Aralık 2018
Mesajlar
42
Beğeniler
1
Excel Vers. ve Dili
Office 2007
#7
Evet ben de sonradan küçük bir sorun fark etmiştim. Çok sağ olun.
 
Üst