Soyadını ayrı sütuna yazmak

[sdegirmenci]

Merhaba;
Ekteki dosyamda açıkladığım gibi, ad ve soyadı aktarma yaptığım sayfaya aktarırken soyadını ayrıdan bir sütuna daha yazması için, bu forum üzerinden bulduğum kodu ekledim. Ancak bir türlü başaramadım . Yardımcı olursanız sevinirim.Şimdiden teşekkür ediyorum.

 

[Serdar SELEN]

=SAĞDAN(C4;UZUNLUK(C4)-BUL(" ";C4))

kaynak sayfasında D4 hucresıne bu formulu yaz.

 

[sdegirmenci]

Dikkat ederseniz düğme altında kod mevcut;Bu kod üzerinde ufak bir değişiklik gerekiyor bu konuda yardım rica ediyorum.

 

[Levent Menteşoğlu]

commandbutton44 içine aşağıdaki satırları ekleyin.

soyad = Split([q6], " ")
Sheets("KAYNAK").Cells(son + 3, 4) = soyad(UBound(soyad))

Not: Sayfa üzerinde arayüz oluşturma örneği olarak güzel bir tasarım olmuş tebrik ediyorum.

 

[halit3]

alternatif kod
Sheets(SAYFA).Cells(sOn + 3, "C") = [Q6] 'ADI SOYADI
bunun hemen altına
Sheets(SAYFA).Cells(sOn + 3, "d") = SOYADBUL([Q6]) ' soyadı ayırır
bunu yap

tabi aşağıdaki makroyuda bir madül sayfasına kayıtet


Function SOYADBUL(Sayi)
For j = 1 To Len(Sayi)
If Mid(Sayi, j, 1) = " " Then
Sat = j
End If
Next j
For n = 1 To Len(Sayi)
If Mid(Sayi, n, 1) = " " Then
SOYADBUL = Mid(Sayi, Sat + 1, Len(Sayi))
End If
Next n
If SOYADBUL = 0 Then
SOYADBUL = ""
End If
End Function

 

[sdegirmenci]

Sayın Levent Hocam ;
Sizin gibi birinden bu tebrik notunu almak ne kadar sevindirici. Çok teşekkür ediyorum. Yazmış olduğunuz kodu ekledim fakat yine soyadı ayırıp "d" sütuna yazmıyor. tekrar bakabilirseniz sevinirim.

 

[izcik]

=SAĞDAN(A2;UZUNLUK(A2)-BUL(" ";A2))

Çok güzel bir formül. Ahmet Beyoğlu yazdığımda Beyoğlu kelimesini B2 hücresine yazıyor.

Aynı şeyi sadece isim için yapmak istersek nasıl yaparız?

Not: Sağdan kelimesini Soldan olarak değiştirdim belki olur diye, olmadı :redface:

Ahmet B diye oluşuyor.

 

[Levent Menteşoğlu]

Sayın Levent Hocam ;
Sizin gibi birinden bu tebrik notunu almak ne kadar sevindirici. Çok teşekkür ediyorum. Yazmış olduğunuz kodu ekledim fakat yine soyadı ayırıp "d" sütuna yazmıyor. tekrar bakabilirseniz sevinirim.

Rica ederim ben size teşekkür ederim. İlgili butondaki kodu aşağıdaki ile değiştirerek denermisiniz.

Private Sub CommandButton44_Click() 'YENİ KAYIT İÇİN SADECE ADI SOYADINI AKTARIR
ActiveSheet.Unprotect
Application.ScreenUpdating = False
cevap = MsgBox("PERSONEL BİLGİLERİNİZ AKTARILIYOR,TEKRAR KONTROL ETMEK İSTERMİSİNİZ", vbYesNo)
If cevap = vbYes Then
SAYFA = ("KAYNAK")
son = WorksheetFunction.CountA(Sheets(SAYFA).[C4:C500]) + 1
Sheets(SAYFA).Cells(son + 3, "C") = [q6] 'ADI SOYADI
MsgBox "KAYITLARA GİRMİŞTİR ..!!", vbInformation
soyad = Split([q6], " ")
Sheets("KAYNAK").Cells(son + 3, 4) = soyad(UBound(soyad)) 'soyadının ne kadar uzağa gideceği hücre
End If
End Sub

 

[S.Yiğit]

Çok güzel bir formül. Ahmet Beyoğlu yazdığımda Beyoğlu kelimesini B2 hücresine yazıyor.

Aynı şeyi sadece isim için yapmak istersek nasıl yaparız?

Not: Sağdan kelimesini Soldan olarak değiştirdim belki olur diye, olmadı :redface:

Ahmet B diye oluşuyor.

Merhaba,

Sn. izcik eki inceleyiniz.

 

[izcik]

Değerli S.Yiğit ilginize teşekkür ederim. Herkese oluyor mu bilmiyorum ama ben ekteki dostayı açarken biraz tebessüm ediyorum ve biraz da mahçubiyet hissediyorum. Yüzümü ateş basıyor. Özellikle Serkan Efe Yiğit örneğinde iki isimle soy ismi ayırmanız ve bunu örneklendirmeniz bu dosyayı hiç de gelişi güzel oluşturmadığınızın göstergesidir. Sağolun ve başarılarınızın devamını dilerim.

 

[S.Yiğit]

Değerli S.Yiğit ilginize teşekkür ederim. Herkese oluyor mu bilmiyorum ama ben ekteki dostayı açarken biraz tebessüm ediyorum ve biraz da mahçubiyet hissediyorum. Yüzümü ateş basıyor. Özellikle Serkan Efe Yiğit örneğinde iki isimle soy ismi ayırmanız ve bunu örneklendirmeniz bu dosyayı hiç de gelişi güzel oluşturmadığınızın göstergesidir. Sağolun ve başarılarınızın devamını dilerim.

Sn. izcik, ben teşekkür ederim. Benim tek katkım bu uygulamaları bir araya toplamak. Kendi çapımda arşiv yapıyorum.. İşinize yaradığına sevindim..