Noktalı virgüle göre parçalara ayırma

[HarEndu]

merhaba,
aşağıdaki gibi binlerce satırlık döküman var ve hergün güncelleniyor. förmülle noktalı virgül sonrasını ayırmak istiyorum. metni stunlara ayırarak yapılıyor fakat benim förmüle ihtiyacım var. yardımcı olurmusunuz.
Ayvacık Enerji;YAPI KREDİ;SULTANHAMAM;'102.0067.0055.01;Yapı Kredi 96024356 Nolu TRL Hesb.;TL;0,00;0,00;TR28 0006 7010 0000 0096 0243 56;'96024356

 

[Ömer]

Merhaba,

Makro ie KTF yazmak daha pratik olacaktır.

Module kopyalayın.

Function metin_ayir(deg As Range, a As Integer)
    Application.Volatile True
    metin_ayir = Split(deg, ";")(a - 1)
End Function

Kullanımı;

=metin_ayir(A1;1)
1 yazarsanız 1. değeri, 4 yazarsanız 4. değeri alır. Veri A1 düşünüldü.

Tümünü pratik bir biçimde görmek için;

B1 hücresine yazıp yana ve alt hücrelere kopyalarsanız A sütunundaki değerleri istediğiniz gibi ayırır.
=EĞERHATA(metin_ayir($A1;SÜTUNSAY($B1:B1));"")

 

[Ali]

B1 hücresine

=KIRP(PARÇAAL(YERİNEKOY(";"&$A$1;";";YİNELE(" ";255));SÜTUNSAY($B$1:B1)*255;255))

yazıp sağa doğru çekiniz.

 

[HarEndu]

Çok teşekkür ederim, her iki çözüm de çok güzel oldu. Şöyle bir sorun oluştu. metnin içinde toplamını almam gereken değerler var. bu değerleri sayı olarak görmediği için toplam alamıyorum. Bu konuda nasıl çözüm üretebilirim.

 

[Korhan Ayhan]

Ali beyin önerdiği formülde sayı olmasını istediğiniz sütunları aşağıdaki şekilde düzenleyin.

=SAYIYAÇEVİR(KIRP(PARÇAAL(YERİNEKOY(";"&$A$1;";";YİNELE(" ";255));SÜTUNSAY($B$1:B1)*255;255)))

 

[HarEndu]

Çok güzel oldu, çok teşekkür ederim. Emeğinize sağlık...