Rakamdan sonrasını silme

[Beyribey]

Herkese iyi forumlar,

abone 12365 asdas das
abone 131564 asddsd
abone 1236 rererere
abone 1232, dasd ,asd
abone 4322.....
şeklinde sıra halinde veriler var. Rakamdan sonrasını silmek istiyorum. yani "abone 12365" şeklinde almak istiyorum.
Yardımcı olursanız sevinirim

 

[Mdemir63]

Selamlar
İşinize yarayabilir belki
aşağıdaki linkden indirin

ornek.xlsm dosyasını indir - download

ornek.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[Beyribey]

Cevabınız için çok teşekkürler.
İnceliyorum.

 

[52779]

Alternatif olarak,
Formülle çözüm isterseniz

A2 hücresinde yazan için

=PARÇAAL(A2;1;UZUNLUK("abone ")+BAĞ_DEĞ_SAY(--PARÇAAL(A2;SATIR(DOLAYLI("1:"&UZUNLUK(A2)));1)))

Dizi formüldür... CTRL+SHIFT+ENTER ile girilmelidir....

Eki ekledim... İncelersiniz....

ornekAboneNo.xlsx dosyasını indir - download

ornekAboneNo.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[veyselemre]

Sub Test()
    With CreateObject("VBscript.RegExp")
        .Global = False
        .Pattern = "(\w+\s\d+)([\s\w+])"
        For i = 3 To Cells(Rows.Count, 1).End(3).Row
            Cells(i, 2) = .Execute(Cells(i, 1).Text)(0).submatches(0)
        Next
    End With
End Sub

 

[S.Yiğit]

Alternatif, 2. boşluktan öncesini alır.

=SOLDAN(A2;MBUL(" ";A2;MBUL(" ";A2)+1)-1)

 

[Ali]

acaba sadece rakamları gösterse
"abone 12365 asdas das" yerine "12365" olarak yazdırabilir miyiz
Teşekkürler...

KTF daha kullanışlı olur ama formül ile istenirse

=ARA(9,99999999999999E+307;--SOLDAN(DEĞİŞTİR(A1;1;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};A1&"0123456789"))-1;"");SATIR($1:$1024)))

 

[Mdemir63]

Bizler kendi çapımızda anladığımız kadarıyla cevaplar vermişiz. Ama soruyu soran Sayın @Beyribey arkadaşımız sadece teşekkür etmiş olup, olumlu veya olumsuz geri dönüş yapmadı.

 

[Saban Sertkaya]

Bir alternatif de benden olsun.

Sub Düğme1_Tıklat()
For a = 1 To [A1048576].End(xlUp).Row
For b = 1 To Len(Cells(a, 1))
If IsNumeric(Mid(Cells(a, 1), b, 1)) Then
Cells(a, 2) = Cells(a, 2) & Mid(Cells(a, 1), b, 1)
End If
Next b
Next a
End Sub