• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Tek hücredeki verileri ayırma

  • Konbuyu başlatan Konbuyu başlatan turgayzeynep
  • Başlangıç tarihi Başlangıç tarihi
T

turgayzeynep

Misafir
Hocam Kolay gelsin iyi akşamlar
A50 hücresinde bu şekilde yazmaktadır
Turgay CANDAN
J.Asb.Üçvş.
Asyş.Tim.K.
2015-AS3.Muv.778


Ben bunları b50 hücresine isim soy ismi
B51Rütbe
b52 asyş .tim.k.
b53 sicil no

Gelmesini istiyorum nasıl yapabilirim
Rica etsem yardımcı olabilir misiniz hocam
Hepsi farklı hücrelerde olması gerekiyor ayrı ayrı formüllerle
 
hocam daha önce ya bu forumda ya da farklı bir forumda bu soruyu sorup yanıt almıştınız yanlış hatırlamıyorsam. o yanıt işe yaramadı mı.
 
Hocam Kolay gelsin iyi akşamlar
A50 hücresinde bu şekilde yazmaktadır
Turgay CANDAN
J.Asb.Üçvş.
Asyş.Tim.K.
2015-AS3.Muv.778


Ben bunları b50 hücresine isim soy ismi
B51Rütbe
b52 asyş .tim.k.
b53 sicil no

Gelmesini istiyorum nasıl yapabilirim
Rica etsem yardımcı olabilir misiniz hocam
Hepsi farklı hücrelerde olması gerekiyor ayrı ayrı formüllerle
B50 ye aşağıdaki formülü
Kod:
=SOLDAN(A50;MBUL(DAMGA(10);A50)-1)
B51 e aşağıdaki formülü
Kod:
=SOLDAN(PARÇAAL(A50;MBUL(DAMGA(10);A50)+1;50);MBUL(DAMGA(10);PARÇAAL(A50;MBUL(DAMGA(10);A50)+1;50))-1)
B52 ye aşağıdaki formülü
Kod:
=SOLDAN(PARÇAAL(YERİNEKOY(A50;DAMGA(10);"&";2);MBUL("&";YERİNEKOY(A50;DAMGA(10);"&";2))+1;50);MBUL(DAMGA(10);PARÇAAL(YERİNEKOY(A50;DAMGA(10);"&";2);MBUL("&";YERİNEKOY(A50;DAMGA(10);"&";2))+1;50))-1)
B53 e aşağıdaki formülü yazınız.
Kod:
=PARÇAAL(A50;MBUL("-";A50)-4;50)
Lütfen deneyip geri dönüş yapınız.
 
B50 ye aşağıdaki formülü
Kod:
=SOLDAN(A50;MBUL(DAMGA(10);A50)-1)
B51 e aşağıdaki formülü
Kod:
=SOLDAN(PARÇAAL(A50;MBUL(DAMGA(10);A50)+1;50);MBUL(DAMGA(10);PARÇAAL(A50;MBUL(DAMGA(10);A50)+1;50))-1)
B52 ye aşağıdaki formülü
Kod:
=SOLDAN(PARÇAAL(YERİNEKOY(A50;DAMGA(10);"&";2);MBUL("&";YERİNEKOY(A50;DAMGA(10);"&";2))+1;50);MBUL(DAMGA(10);PARÇAAL(YERİNEKOY(A50;DAMGA(10);"&";2);MBUL("&";YERİNEKOY(A50;DAMGA(10);"&";2))+1;50))-1)
B53 e aşağıdaki formülü yazınız.
Kod:
=PARÇAAL(A50;MBUL("-";A50)-4;50)
Lütfen deneyip geri dönüş yapınız.
Hocam çok sağ olun Teşekkür ederim Elinize emeğinize sağlık Allah razı olsun
 

Merhaba,

Linki inceleyerek profilinizi güncellemenizi rica ederim.

 
Alternatif olsun,
Kullanhıcı tanımlı fonksiyon ile öneri.

Verinin A1 de olduğu varsayılırsa :
Kod:
=Par(A1;1)

ile ismi, ikinci parametreyi 2, 3 yaparak deneyiniz.


Kod:
Function Par(rng As Range, sira As Integer) As Variant

Dim p As Variant

p = Split(rng, Chr(10))
Par = p(sira - 1)

End Function
 
Geri
Üst