Sayı Ara Formülü

[izcik]

Arkadaşlar severek kullandığım ekteki dosyadaki =sayiara formülü dosyasının içinde galiba makro var. Çünkü normal dosyada çalışmıyor. Doğru mu tahmin ediyorum? olsun önemli değil böyle de işimi görüyor.

Rica etsem aynı dosyada sheet2 de veya olmuyorsa başka bir dosyada içindeki metinleri ayıracak şekilde de bir formül oluşturabilir misiniz?

Ben =metinara , harfara , kelimeara şeklinde denemeler yaptım ama olmadı. Kafadan atmasyon yapınca olmuyor

Teşekkürler

Not: Bu dosyayı başka bir arkadaşın sorusundan edinmiştim.

 

[fedeal]

aynı işlemi makrosuz bu formüllede yapabilirsiniz;

=İNDİS(A:B;KAÇINCI(A1;A:A;0);2)

 

[halit3]

B Hücresinden bağımsız olarak C1 Hücresine bu kodu yaz =SAYILARIBUL(A1)

aşağıdaki fonksiyon kodunu kullanarak yapabilirsiniz.





Function SAYILARIBUL(hucre)
' HÜCRENİN İÇİNDEKİ SAYI DEĞERLERİNİ VERİYOR
Dim i As Integer
For i = 1 To Len(hucre)
sayi = Mid(hucre, i, 1)
If IsNumeric(sayi) = True Then
SAYILARIBUL = SAYILARIBUL & sayi
End If
Next i
End Function

Function RAKAMLARIBUL(hucre)
' HÜCRENİN İÇİNDEKİ SAYI DEĞERLERİNİ VERİYOR
Dim i As Integer
For i = 1 To Len(hucre)
sayi = Mid(hucre, i, 1)
If IsNumeric(sayi) <> True Then
RAKAMLARIBUL = RAKAMLARIBUL & sayi
End If
Next i
End Function

 

[izcik]

Çok teşekkür ederim arkadaşlar alakanıza.

Değerli fedeal formül olmadı. Ya da ben yapamadım.

Değerli halit3 rica etsem yukarıdaki iki formülü iki ayrı dosyaya (ya da tek dosya iki ayrı sayfa da olabilir) makro olmuş halde yapabilir misiniz? Kopyala yapıştır yapıyorum olmuyor ne yazık ki.

 

[halit3]

ekli dosyayı inceleyiniz.

 

[izcik]

Örnek A1 hücresinde KIRMIZI RENKLİ 70 ADET BMW ARABA
yazılı olduğunu varsayalım. B1 hücresine KIRMIZI RENKLİ ADET BMW ARABA yazısını versin
C1 hücresine de 70 rakamını versin. Eğer aynı sayfada olmaz ise ayrı sayfada da olabilir.

Bir minik sorum da eğer arada boşluk değil de tire varsa ; mesela --


KIRMIZI-RENKLİ-70-ADET-BMW-ARABA o zaman formüller değişir mi?

İyi çalışmalar

 

[fedeal]

ekli dosyayı inceleyin;

 

[izcik]

Tamam budur işte boşuna mesaj yazmışım. İstediğim dosyaya sayenizde ulaştım. İşim görülmüştür.

Teşekkür ederim değerli halit.

Teşekkür ederim değerli fedeal.

İşlerinizde başarılar bol kazançlar dilerim.