Metin ve Sayı İçeren Hücrelerdeki Rakamları Toplama!!!

[sinan05]

İyi günler. Formda benzer konular bulup uğraştım fakat yapamadım, yardımcı olursanız sevinirim. C sütununda, C4 hücresinden başlayan metin ve sayılarla karışık verilerim var. Örneğin; c4 hücresi, "500-Dolar mehmet var", c5 hücresi, "1000-euro hasan gelecek", c6 hücresi, "600-Dolar iş yeri hesap" vs... devam ediyor. Yapmak istediğim DOLAR yazan hücrelerdeki bütün rakamların toplamını V5 hücresinde göstermek, EURO yazan hücrelerdeki rakamların toplamında V6 da göstermek. yani C4 deki 500+c6 daki 600=1200 gibi.

 

[muratboz06]

D4 ve E4 hücrelerindeki formülleri çalışma sayfasında uygun bir sütunun 4. satırına kopyalayın, aşağı doğru çoğaltınız.
F2 ve G2 hücresindeki formülleride V5 ve V6 hücresine, yukarıdaki kopyalama yaptığınız sütun adlarını değiştirerek kopyalayınız.

DolarEuro.xlsx dosyasını indir - download

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

s4.dosya.tc

 

[sinan05]

D4 ve E4 hücrelerindeki formülleri çalışma sayfasında uygun bir sütunun 4. satırına kopyalayın, aşağı doğru çoğaltınız.
F2 ve G2 hücresindeki formülleride V5 ve V6 hücresine, yukarıdaki kopyalama yaptığınız sütun adlarını değiştirerek kopyalayınız.

DolarEuro.xlsx dosyasını indir - download

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

s4.dosya.tc

HOCAM teşekkür ederim fakat dosya açılmıyor. Benim dosyalarım xlsm uzantılı sizinkisi xlsx sanırım sorun bundan dolayı.
NOT: Murat Hocam açtım tam istediğim gibi olmuş teşekkürler. Fakat bende çok veri var bukadar formül dosyayı etkiler diye düşünüyorum. Acaba yazdığınız "EĞERHATA(SAYIYAÇEVİR(SOLDAN(C5;MBUL("dolar";C5;1)-2));"")" bu formülü direk ETOPLA formülüne ekleyemezmiyiz. hücrelerin yanına formül eklemeden direk hücrelerin içindeki rakamları toplayamazmıyız.

 

[sinan05]

HOCAM teşekkür ederim fakat dosya açılmıyor. Benim dosyalarım xlsm uzantılı sizinkisi xlsx sanırım sorun bundan dolayı.

NOT: Murat Hocam açtım tam istediğim gibi olmuş teşekkürler. Fakat bende çok veri var bukadar formül dosyayı etkiler diye düşünüyorum. Acaba yazdığınız "EĞERHATA(SAYIYAÇEVİR(SOLDAN(C5;MBUL("dolar";C5;1)-2));"")" bu formülü direk ETOPLA formülüne ekleyemezmiyiz. hücrelerin yanına formül eklemeden direk hücrelerin içindeki rakamları toplayamazmıyız.

 

[excelokyanus500]

Deneyin

Function NumSum(Rng As Range) As Double
  Dim X As Long, Cell As Range, Combined As String
  For Each Cell In Rng
    Combined = Combined & Cell.Value
  Next
  For X = 1 To Len(Combined)
    If Mid(Combined, X, 1) Like "[!0-9.]" Then Mid(Combined, X) = " "
  Next
  NumSum = Evaluate(Replace(Application.Trim(Combined), " ", "+"))
End Function

örnek =NumSum(A1:A5)

Daha geniş bilgi için

 

[Korhan Ayhan]

Eğer para birimi yazımları standart ise görseldeki gibi sonuca gidebilirsiniz.

SUMPRODUCT = TOPLA.ÇARPIM
ISNUMBER = ESAYIYSA
SEARCH = MBUL
VALUE = SAYIYAÇEVİR
LEFT = SOLDAN

 

[sinan05]

Deneyin

Function NumSum(Rng As Range) As Double
  Dim X As Long, Cell As Range, Combined As String
  For Each Cell In Rng
    Combined = Combined & Cell.Value
  Next
  For X = 1 To Len(Combined)
    If Mid(Combined, X, 1) Like "[!0-9.]" Then Mid(Combined, X) = " "
  Next
  NumSum = Evaluate(Replace(Application.Trim(Combined), " ", "+"))
End Function

örnek =NumSum(A1:A5)

Daha geniş bilgi için

Teşekkürler hocam şimdi denicem

 

[sinan05]

Eğer para birimi yazımları standart ise görseldeki gibi sonuca gidebilirsiniz.

SUMPRODUCT = TOPLA.ÇARPIM
ISNUMBER = ESAYIYSA
SEARCH = MBUL
VALUE = SAYIYAÇEVİR
LEFT = SOLDAN

Ekli dosyayı görüntüle 232721

sağolun Korhan hocam