son dört rakamı isimden ayırma

[othara]

MURAT YEL 1622
RECAİ YEM 210

arkadaslar yukarıdaki bir isim ve numara bir gükrede birleşik ve ben son 4 hane olacak şekilde isimden ayırmak istiyorum..
murat yel isim kalacak a1 hücresinde b1 hücresine 1622 rakamını getirmek istiyorum

yardımınız rica ediyorum

 

[Emir Hüseyin Çoban]

. . .

> Üstü Menüden Veri Sekmesi
> Metni Sütunlara Dönüştür
> Aşağıdaki adımları uygulayın.

Ekran Görüntüsü (GİF)

. . .

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki kodu boş bir modüle kopyalayınız.

Kullanımı; =ayir(hücre;işlem kodu)

işlem koduna birşey yapmazsanız varsayılan 0'dır, 0 sayıları ayırır. 1 yazarsanız metinleri ayırır.

Function ayir(gir As String, Optional tur As String = 0)
k = Len(gir)
For i = 1 To k
If IsNumeric(Mid(gir, i, 1)) Then
a = a & Mid(gir, i, 1)
Else
b = b & Mid(gir, i, 1)
End If
Next i
If tur = 0 Then
ayir = a
End If
If tur = 1 Then
ayir = Trim(b)
End If

End Function

 

[Korhan Ayhan]

Alternatif;

Verinizin A1 hücresinde olduğunu varsayalım;

B1 hücresine; (Dizi Formül)

=PARÇAAL(A1;1;MİN(EĞER(ESAYIYSA(1*PARÇAAL(A1;SATIR($1:$1024);1));SATIR($1:$1024)))-2)

C1 hücresine;

=KIRP(YERİNEKOY(A1;B1;""))

 

[bzace]

Farklı bir alternatif olarak;
B1 hücresine:
İlk önce hücre içerisinde kaç kere " "(space) yenilendiğini bulmak için;

=UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))

bu işlem 3 yada daha fazla isimleri ayırmamıza yarayacaktır.

Sayıdan önce Ad ve Soyad'ı almak için;

=PARÇAAL(A1;1;MBUL(A1;YERİNEKOY(A1;" ";A1;B1)))

Son da bulunan 4 hane sayıyı almak için;

=PARÇAAL(A1;BUL("^^";YERİNEKOY(A1;" ";"^^";UZUNLUK(A1)-
  UZUNLUK(YERİNEKOY(A1;" ";""))))+1;4)

Daxe Syán

 

[othara]

arkadaslar hiç biride istedigimi yapmadı.Çünkü isim soyadı uzayabiliyor.metni sutunulara dönüştürle hiç olmuyor.Fonsiyon tuslaryila olucakca olacak

 

[othara]

bzace son formul olmadı..Korhan Ayhan ilk formül olmadi boslukmu var acaba

 

[bzace]

Sayın Othara,
Resime bakar mısınız? Ben de herhangi bir sorun yok yada siz farklı bir şey istiyor sunuz?

[/url][/IMG]

Formüller sırasıyla B1:B3 aralığına girilmiştir.

 

[Merhum İdris SERDAR]

.

Bunları deneyin. İkisi de dizi formülüdür.

=1*MID(A1;MATCH(TRUE;ISNUMBER(1*MID(A1;ROW($1:$100);1));0);COUNT(1*MID(A1;ROW($1:$100);1)))

=MID(A1;MATCH(TRUE;ISNUMBER(1*MID(A1;ROW($1:$100);1));0);COUNT(1*MID(A1;ROW($1:$100);1)))

Türkçeleri için bakınız:

http://www.excel.web.tr/f60/excel-turkce-ngilizce-lev-tercumeleri-t143166.html


.

 

[Korhan Ayhan]

Önerdiğim formülleri örnek olarak belirttiğiniz verilerde denedim ve olumlu sonuç aldım. Sizin asıl dosyanızda verilerde farklılıklar varsa formül doğru sonuç vermeyebilir. Bu durumda diğer arkadaşlarımın önerilerini dikkate alabilirsiniz.

 

[muhoa]

ctrl + h ile değiştir sekmesinden sırasıyla sıfırdan dokuza kadar aranan değere raka, yeni değere boşluk yazıp uygularsanız 10 işlemde tüm rakamlardan kurtulursunuz.

 

[othara]

SAYIN BZACE OLDU TEŞEKKÜR EDERİM

Farklı bir alternatif olarak;
B1 hücresine:
İlk önce hücre içerisinde kaç kere " "(space) yenilendiğini bulmak için;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))
bu işlem 3 yada daha fazla isimleri ayırmamıza yarayacaktır.

Sayıdan önce Ad ve Soyad'ı almak için;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=PARÇAAL(A1;1;MBUL(A1;YERİNEKOY(A1;" ";A1;B1)))
Sonda bulunan 4 hane sayıyı almak için;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=PARÇAAL(A1;BUL("^^";YERİNEKOY(A1;" ";"^^";UZUNLUK(A1)-
UZUNLUK(YERİNEKOY(A1;" ";""))))+1;4)
__________________
BEDAVA PEYNİR sadece FARE KAPANINDA var!