Metin içerisinden ad soyadı alma

Cevapla
kbeydili
Mesajlar: 4
Kayıt: Çrş Ağu 30, 2023 12:51 pm
Lokasyon: Çorlu
Adınız: kemal
Soyadınız: cerit

Metin içerisinden ad soyadı alma

Mesaj gönderen kbeydili »

merhaba,
Örnekte olduğu gibi, aynı sayfada b sütundaki metin içerisinden sadece ad, soyadı h sütuna nasıl yazdırırım
Yeni WinRAR arşivi.rar
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
tasad
Mesajlar: 13
Kayıt: Sal Ağu 01, 2023 2:07 pm
Meslek: Muhasebeci
Adınız: tarık
Soyadınız: sadık

Re: Metin içerisinden ad soyadı alma

Mesaj gönderen tasad »

Bu kodlar işinizi görür.

Kod: Tümünü seç

Sub Hucre_ayikla()
Dim deg As String, deg1 As String
Dim i As Long
Sayfa1.Range("h6:h10000").ClearContents

For i = 6 To Sayfa1.Range("a65000").End(3).Row
If Left(Sayfa1.Cells(i, "b"), 5) = "Banka" Then

deg = Split(Left(Sayfa1.Cells(i, "b"), WorksheetFunction.Search("Açk:", Sayfa1.Cells(i, "b"), 1) - 1), " ")(4)
deg1 = deg & " " & Split(Left(Sayfa1.Cells(i, "b"), WorksheetFunction.Search("Açk:", Sayfa1.Cells(i, "b"), 1) - 1), " ")(5)

Sayfa1.Cells(i, "h") = deg1

Else
deg = Split(Sayfa1.Cells(i, "b"), " ")(0)
deg1 = deg & " " & Split(Sayfa1.Cells(i, "b"), " ")(1)
Sayfa1.Cells(i, "h") = deg1

End If
Next

End Sub
kbeydili
Mesajlar: 4
Kayıt: Çrş Ağu 30, 2023 12:51 pm
Lokasyon: Çorlu
Adınız: kemal
Soyadınız: cerit

Re: Metin içerisinden ad soyadı alma

Mesaj gönderen kbeydili »

Hocam merhaba,
Elinize sağlık, yapmak istediğim gibi olmuş.
örnekte belirttiğim konular düzelebilirse sevinirim.
saygılar.
Yeni WinRAR arşivi.rar
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
tasad
Mesajlar: 13
Kayıt: Sal Ağu 01, 2023 2:07 pm
Meslek: Muhasebeci
Adınız: tarık
Soyadınız: sadık

Re: Metin içerisinden ad soyadı alma

Mesaj gönderen tasad »

Bazı isim ve soyisim arasında çift boşluk bırakılmış veya yanlış yazılmış.
yeni kod eklesem bile tamamını almaz.
Bu yüzden alınmayan isimleri manuel olarak kendiniz düzeltmelisiniz.
kbeydili
Mesajlar: 4
Kayıt: Çrş Ağu 30, 2023 12:51 pm
Lokasyon: Çorlu
Adınız: kemal
Soyadınız: cerit

Re: Metin içerisinden ad soyadı alma

Mesaj gönderen kbeydili »

hocam aynen
teşekkür ederim.
GuardofDeath17
Mesajlar: 5
Kayıt: Pzr Şub 18, 2024 12:05 am
Adınız: Erol
Soyadınız: PEHLIVANOGLU

Re: Metin içerisinden ad soyadı alma

Mesaj gönderen GuardofDeath17 »

bu sütuna girilen isim soyisimlerin bir listesi başka bir yerde var mı?
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj
  • SATIN ALMA VADE RAPORU
    gönderen Arkadasca » » forum Logo Query
    1 Cevaplar
    2203 Görüntüleme
    Son mesaj gönderen akcanadana