• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
26 Mayıs 2010
Mesajlar
159
Excel Vers. ve Dili
Microsoft 365
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
 
Merhaba,

Makro ie KTF yazmak daha pratik olacaktır.

Module kopyalayın.
Kod:
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));"")
 
B1 hücresine

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

yazıp sağa doğru çekiniz.
 
Ç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.
 
Ali beyin önerdiği formülde sayı olmasını istediğiniz sütunları aşağıdaki şekilde düzenleyin.

Kod:
=SAYIYAÇEVİR(KIRP(PARÇAAL(YERİNEKOY(";"&$A$1;";";YİNELE(" ";255));SÜTUNSAY($B$1:B1)*255;255)))
 
Çok güzel oldu, çok teşekkür ederim. Emeğinize sağlık...
 
Geri
Üst