ismin ve soy ismin ilk harfleri ile personel kodu oluşturmak

[hikmet]

merhaba sn.hocalarım ve arkadaşlarım;

başlık belki biraz tuhaf oldu o nedenle özür dilerim. Yapmak istediğim bilgilerini girdiğim kişinin adı ve soyadının ilk harflarerini ve kayıt sıra numarasını o kişi için bir personel kodu olarak oluşturmak.

Örnek verecek olursak

S.NO: ADI SOYADI SİCİL KODU
1 HİKMET ERCAN HE1

bu kodu oluşturacak bir makro oluşturmam gerekiyor. Kendi oluşturduğum makroda adı soyadı kısmında boşluktan sonra gelen ilk harfi almıyor her zaman.
Değerli fikirlerinizi paylaşırmınız benimle. İlginiz için teşekkür ederim.

 

[hakaco]

bunun için mkroya ihtiyacın yokki
=EĞER(A2="";"";BİRLEŞTİR(SOLDAN(B2;1);SOLDAN(C2;1);A2))
gibi bir formül işini görür
a sütunu "s.no"
b sütunu "adı"
c sütunu "soyadı"
d sütunu "sicil no"

 

[Ali]

1 HİKMET ERCAN yazısında 1,Hikmet ve Ercan yazıları aynı hücredemi farklı farklı hücrelerdemi

 

[veyselemre]

VBA kod sayfasına aşağıdaki fonksiyonu ekleyin.

Function KodBul(giris As String) As String
coz = Split(giris, " ")
For Each elem In coz
    KodBul = KodBul & Left(elem, 1)
Next
End Function

c2 ye

=kodbul(B2) & A2

Yazarak kullanabilirsin.

 

[hikmet]

merhaba;

ilginiz için teşekkür ederim arkadaşlar.sn.hakaco verdiğiniz şekilde kodu oluşturuyorum ama bana makro olarak gerekli, yinede ilginize teşekkürler; sn.ali ad soyad kısmı aynı hücrenin içerisinde; sn.veyselemre verdiğiniz kodu vba sayfasında ekledim ve c2 hücresine kodbul yazdım ama AD# hatası veriyor.

 

[veyselemre]

Örneği inceleyin.

 

[hikmet]

sn.veyselemre ilginiz için teşekkür ederim. elinize sağlık.