Parça al

[sirkülasyon]

Değerli arkadaşlarım.
ÖRNEK
F4 hücresinde bazen uzun bazen de kısa bir metin var. Bu metin içinde "13 öğrenciyi" kelimesi ve "4 Km" ile geçen metin var.
N4 hücresine "13 Öğrenci" olarak öğrenci sayısını
O4 hücresine "4 Km" olarak km kısmını alacağım.

Hangi formülü uygulamam lazım yardımcı olabilir misiniz?

 

[enesyildiz]

metnin karakter sayısı önemli basit bir işlem

F4 hücresinde bazen uzun bazen de kısa bir metin var. bu kısmı yeni okudum ..

 

[denese]

Merhaba,

Aşağıdaki linkte, Sn. Ömer Baran' ın çözüme ulaştığı, sorunuza benzer bir konu mevcut. İnceleyiniz.

http://www.excel.web.tr/f47/listeleme-t154345.html

 

[sirkülasyon]

sayın DENESE
Teşekkür ederim. İşime Yaradı. Sağolasın
Ömer Baran' a da teşekkür ederim

 

[BedriA]

"4 km" ifadesi için şu formülle istenilen sonuç alınabiliyor.

=SOLDAN(PARÇAAL(A1;MBUL("4";A1;1);UZUNLUK(A1));4)

 

[sirkülasyon]

Sayın BeriA
Değer hatası veriyor

 

[BedriA]

Muhtemelen hücreler doğru tayin edilmemiştir. Örnek dosya paylaşmanızda yarar var. Çünkü bende işlem yapıyor.

 

[antonio]

F4 hücresine örnek olarak şöyle bir metin yazalım: "Tahmin edemeyecekleri kadar uzaklardaki bir okula gitmek için yola çıkan 13 Öğrenci uzun zaman ve hiç durmadan yürüdükleri 4 Km sonunda okudukları okula vardıklarını anladılar."

N sütununun başlığı: Kaç Öğrenci var?
O sütununun başlğı: Kaç km mesafe var?

Bunlara doğru sayısal cevabı bulmak için aşağıdaki kodu deneyiniz.

Sub cep_tlf_varsa_bul()
Dim sh As Worksheet, z As Object, veri As Object, ss As Long

Set sh = Sheets(Sheets(1).Name)
ss = sh.Range("F56789").End(3).Row
Set z = CreateObject("vbscript.regexp")
    z.Global = True
    z.Pattern = "\d+(?!Öğrenci)|\d+(?!Km)"
            Set veri = z.Execute(sh.Range("F4"))
            
            If veri.Count > 0 Then
                    sh.Cells(4, "N").Value = veri(0)
                    sh.Cells(4, "O").Value = veri(1)
            End If
    MsgBox "İşlem tamamlandı.", vbInformation, "antonio"
End Sub