• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

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

Kullanıcım

Yeni Üye
Katılım
7 Kas 2019
Mesajlar
12
En iyi yanıt
0
Puanları
3
Yaş
60
Konum
Izmir
Ad Soyad
Ongun BEYDAG
Office Vers.
Office 2013
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.
 

Ekli dosyalar

  • Test.xlsx
    8.6 KB · Görüntüleme: 5

Byyazar

Yeni Üye
Katılım
6 Mar 2023
Mesajlar
20
En iyi yanıt
0
Puanları
3
Yaş
36
Konum
KASTAMONU
Ad Soyad
Eray YEŞİLYURT
Office Vers.
2010
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

Yeni Üye
Katılım
7 Kas 2019
Mesajlar
12
En iyi yanıt
0
Puanları
3
Yaş
60
Konum
Izmir
Ad Soyad
Ongun BEYDAG
Office Vers.
Office 2013
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

Yeni Üye
Katılım
6 Mar 2023
Mesajlar
20
En iyi yanıt
0
Puanları
3
Yaş
36
Konum
KASTAMONU
Ad Soyad
Eray YEŞİLYURT
Office Vers.
2010
Peki b2 hücresinde bu formulu deneyin =INDEX(FILTERXML("<a><b>"&SUBSTITUTE(A2;" ";"</b><b>")&"</b></a>";"//b[number(.)=.]");2)
 

veyselemre

Yeni Üye
Katılım
17 Ağu 2021
Mesajlar
4
En iyi yanıt
0
Puanları
3
Yaş
53
Konum
Çubuk-ANKARA
Ad Soyad
Veysel EMRE
Office Vers.
2010TR
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
 
Üst Alt