Yardım Bir metin içerisindeki 3 karakterden büyük sayıları ayıklamak

Kullanıcım · 16 Mar 2023

Benim amacım bir metin içerinde yer alan 3 karakterden büyük sayıları bularak onları ardışık hücrelere kopyalamak.
Bunu ekteki dosyada anlattım.

Makro kullanmadan yapılacağından emin değilim. Formül ile halledilebilirse tercihimdir.
Şimdiden teşekkürler.

Byyazar · 21 Mar 2023

Merhaba
=IFERROR(MID(A1,FIND(1,A1),IFERROR(FIND(" ",A1,FIND(1,A1))-FIND(1,A1),LEN(A1)+1)-FIND(1,A1)),"") Bu formül, hücredeki metnin içindeki ilk 3 karakterden büyük sayıları bulur ve her bir sayıyı ardışık hücrelere kopyalar. Olumlu yada olumsu lütfen dönüş yapın.

Kullanıcım · 21 Mar 2023

Emeğiniz için teşekkürler ama çalıştıramadım. Bendeki versiyon Türkçe Excel 2013 olması sebebi ile formülünüzü aşağıdaki şekle dönüştürdüm ama çalışmadı Tekrar bakmanız mümkün müdür?

=EĞERHATA(PARÇAAL($A$2;BUL(1;$A$2);EĞERHATA(BUL(" ";$A$2;BUL(1;$A$2))-BUL(1;$A$2);UZUNLUK($A$2)+1)-BUL(1;$A$2));"")

Byyazar · 21 Mar 2023

Peki b2 hücresinde bu formulu deneyin =INDEX(FILTERXML("<a><b>"&SUBSTITUTE(A2;" ";"</b><b>")&"</b></a>";"//b[number(.)=.]");2)

veyselemre · 22 Mar 2023

Kod:

Sub test()
    Dim al As Object, i&, ii%
    Range("B2:G" & Cells(Rows.Count, 1).End(3).Row).ClearContents
    With CreateObject("VbScript.Regexp")
        .Pattern = "\d{3,}"
        .Global = True
        For i = 2 To Cells(Rows.Count, 1).End(3).Row
            If .test(Cells(2, 1).Value) Then
                Set al = .Execute(Cells(2, 1).Value)
                For ii = 0 To al.Count - 1
                    Cells(i, ii + 2).Value = al(ii)
                Next ii
            End If
        Next i
    End With
End Sub

Yardım Bir metin içerisindeki 3 karakterden büyük sayıları ayıklamak

Daha fazla seçenek

Kullanıcım

Ekli dosyalar

Byyazar

Kullanıcım

Byyazar

veyselemre