Listeden Ad Soyadı Çekme

[assenucler]

Merhabalar;



Ekteki gibi uzun bir listem var. Kısa bir liste olan dosyayı ekliyorum.

İsteğim, bu listeden sadece "Ad Soyad" kısmını ayırmak istiyorum. Formül ve makro ile çözümü, kendimi geliştirmek ve öğrenmek adına, sizlerden rica ediyorum.

Katkılarınız için önceden teşekkürler.

 

[Ömer BARAN]

Merhaba.

Formül ile çözüm önerisi isterseniz.
.

=KIRP(PARÇAAL(B2;BUL(KIRP(PARÇAAL(A2;BUL(".";A2;1)+1;255));B2;1)+UZUNLUK(KIRP(PARÇAAL(A2;BUL(".";A2;1)+1;255)))+1;255))

 

[assenucler]

Tabii ki, isterim üstadım.

Dinlence gününüzde bile bizlerlesiniz, sağ olun var olun. Sayın Ömer Baran formül ile çözüm için teşekkürler.

Belki, makro ile çözümü de bir üstadımdan öğrenirim.

Sevgi ve saygılar.

 

[Emir Hüseyin Çoban]

. . .

"BLOK - XXX "; BLOK yazısından sonra bir boşluk tire 3 karakter 3 boşluk kısmı sabitse şu formülü deneyiniz.

=KIRP(SAĞDAN(B2;UZUNLUK(B2)-(MBUL("BLOK - ";B2;1)+12)))

. . .

 

[Ömer BARAN]

Sayın ÇOBAN'ın sabitse dediği kısımdan emin olamadığım için formülü biraz uzatmak durumunda kalmıştım.

Verdiğim formül A sütunundaki . karakterinden sonraki kısmı
(A sütunundaki verilerin standart olacağını düşünerek)
B sütununda arıyor ve buna göre işlem yapıyor.

Gerek verdiğim formül ve kerekse de aşağıdaki kod;
-- A sütununda . karakterinin konumunu buluyor,
-- . karakterinden sonraki kısmı alıyor,
-- B sütunundaki metinde bu kısmı arayıp başlangıç konumunu belirliyor,
-- Son olarak da B sütunundaki veriden parçaal ile AD SOYADı alıp C sütununa yazıyor.
(veriler C sütununa yazılır).

Sub AD_SOYAD_AL_BRN()
For satır = 2 To [A65536].End(3).Row
    kriter = Mid(Cells(satır, 1), WorksheetFunction.Search(".", Cells(satır, 1), 1) + 1, 255)
    konum = WorksheetFunction.Search(kriter, Cells(satır, 2), 1)
    Cells(satır, 3) = Trim(Mid(Cells(satır, 2), konum + Len(kriter) + 1, 255))
Next
End Sub

 

[assenucler]

Teşekkürler ve yaşadığım bir sorun

Sayın Ömer Baran ve Sayın Hüseyin Çoban,


Değerli üstatlarım, bu dinlence gününüzde değerli zamanınızı ayırarak yaptığınız katkılar için Allah sizden razı olsun. Çok teşekkür ederim.

Ancak, ben bu listeyi sizlere daha önce "Mizan" sayfasından aldığımı yazmadığım için kusura bakmayın. Formülü bir türlü uyarlayamıyorum ve #BAŞV! hata iletisi alıyorum.

 

[veyselemre]

Sub adSoyadAyir()
    For i = 2 To [A65536].End(3).Row
        al = Split(Trim(Split(Cells(i, 2), "-")(1)), " ")
        al(0) = ""
        Cells(i, 4) = Trim(Join(al))
    Next
End Sub

2.çalışmanız için;

Sub adSoyadAyir()
    a = Sheets("Mizan").Range("b2:b" & Sheets("Mizan").Cells(Rows.Count, 2).End(3).Row).Value
    For i = LBound(a) To UBound(a)
        al = Split(Trim(Split(a(i, 1), "-")(1)), " ")
        al(0) = ""
        a(i, 1) = Trim(Join(al))
    Next
    Sheets("Aktar").[b2].Resize(UBound(a), 1).Value = a
End Sub

 

[Merhum İdris SERDAR]

.

Dosyanıza göre formül:

=MID(B2;16;40)

Yazıp, aşağıya doğru kopyalayın.

.

 

[assenucler]

Sayın Ömer Baran,
Sayın Hüseyin Çoban,
Sayın veyselemre,
Sayın İdris SERDAR,


Çok değerli üstatlarım hepinize çok teşekkürler. Allah hepinizden razı olsun.

Sevgi ve saygılarımla.