Aynı Hücreye Girilen Adı Soyadı Bilgisini Ayıran Fonksiyon

Kodla Büyü
utf8

utf8

Seçkin Üye
Seçkin Üye
Mesajlar
711
Güzel bir çalışma, bunu fonksiyon kullanmadan formülle ayıranını görmüştüm.
 
Private Sub CommandButton1_Click()
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub


seçili hücrelerdeki metni boşluğa göre sütunlara ayırır...
 
ya da

isim için =PARÇAAL(A1;1;MBUL(" ";A1;1)-1)
soy isim için =PARÇAAL(A1;MBUL(" ";A1;1)+1;UZUNLUK(A1)-MBUL(" ";A1;1))
M bul metin içindeki boşluk karakterinin yerini bulur
parça al metni parçalar
uzunluk bir metnin karakter sayısını verir..
 
ayrı ayır olan ad soyadı birleştirmek içinde
=A1&" "&B1

ya da
=BİRLEŞTİR(A1;" ";B1)
formülden kurtulmak için sonuçlar kopyalanarak yerine değer olarak yapıştırılır...
 
azizerkut' Alıntı:
Metni sütunlara dönüştür diye bir şey duymadınız galiba :)
Genişletmek için tıkla ...
intel4004' Alıntı:
Private Sub CommandButton1_Click()
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub


seçili hücrelerdeki metni boşluğa göre sütunlara ayırır...
Genişletmek için tıkla ...
kodlar metni sütunlara dönüştürün vba kodları
 
VYd9yaeLhQkvhSA5ir2TKIwJBmHHV-RBB3QVs-PRDPsAPVJt8AqV3oEFUETFzMh1kiUwuGenUgttjEE=w1342-h544
 
intel4004' Alıntı:
ya da

isim için =PARÇAAL(A1;1;MBUL(" ";A1;1)-1)
soy isim için =PARÇAAL(A1;MBUL(" ";A1;1)+1;UZUNLUK(A1)-MBUL(" ";A1;1))
M bul metin içindeki boşluk karakterinin yerini bulur
parça al metni parçalar
uzunluk bir metnin karakter sayısını verir..
Genişletmek için tıkla ...

Ayrıca iki isimli bir kişinin ad ile soyadını ayırmak için mbul içe içe kullanılabilir


isim için
=PARÇAAL(K3;1;MBUL(" ";K3;MBUL(" ";K3;1)+1))

soy isim için
=PARÇAAL(A1;MBUL(" ";A1;MBUL(" ";A1;1)+1);UZUNLUK(A1)-MBUL(" ";A1;MBUL(" ";A1;1)))
 
tabi işi abartarak bir listedeki tek ve iki isimli kişileri formül kullanarak ad ve soyadına göre ayırmak istersek
yani
[k3]=ali hasan aktepe >>> ali hasan-------aktepe
i
[k4]= osman güleryüz>>> osman----------güleryüz
[k5]=....

ad için
=EĞERHATA(PARÇAAL(K3;1;MBUL(" ";K3;MBUL(" ";K3;1)+1));PARÇAAL(K3;1;MBUL(" ";K3;1)-1))
soyad için
=EĞERHATA(PARÇAAL(K3;MBUL(" ";K3;MBUL(" ";K3;1)+1);UZUNLUK(K3)-MBUL(" ";K3;MBUL(" ";K3;1)));PARÇAAL(K3;MBUL(" ";K3;1)+1;UZUNLUK(K3)-MBUL(" ";K3;1)))

gibi elle yazımı hayli uzun olan bu formülleri kullanabiliriz...
 
Bir şey daha soracağım. E-okuldan sınıf listesini excele çevirip aldığımızda araya 3-5 hücre boşluk atılmış sıkıştırılmış oluyor. O hücreleri temiz bir (tek tek hücre) sayfa haline getirmek için çok zorlanıyorum. O konuda ne yapıyorsunuz?
E-okul sınıf listesini temiz yoklama listesi gibi temiz excel haline getirmek (boş sıkıştırılmış sütunları atmak için)
 
Cevap yazmak için giriş yap yada kayıt ol.
BBNET
Geri
Üst