Rakam ve Yazinin Karisik Oldugu Hucrelerdeki Sayilari Toplamak

[hayaletinizi]

Merhaba, kolay gelsin. Bir sorum olacak. Hucrelerdeki sayilarin VE rakam ve yazinin karisik oldugu hucrelerdeki sayilarin toplamini tek hucrede veren bir formul ariyorum.

ekte dosya sunuyorum..> http://s9.dosya.tc/server2/863tek/hayaletinizi---soru2.xlsx.html

Yardimlariniz icin cok tesekkur ederim.

 

[Asri]

Aşağıdaki KTF yi kullanabilir siniz.

Kullanımı.
=sumnums(A2:A6)

Function SumNums(rngS As Range, Optional strDelim As String = " ") As Double
'http://www.mrexcel.com/forum/excel-questions/505622-text-numbers-same-cell-sum-numbers-4.html
    Dim vNums As Variant, lngNum As Long, c As Range
    For Each c In rngS
    vNums = Split(c, strDelim)
        For lngNum = LBound(vNums) To UBound(vNums) Step 1
            SumNums = SumNums + Val(vNums(lngNum))
        Next lngNum
    Next c
End Function
[LEFT]

[/LEFT]

 

[hayaletinizi]

asri cok tesekkur ederim yanit icin, ugrastirdim seni. Acaba bunun formul ile yolu var midir ?

 

[Asri]

asri cok tesekkur ederim yanit icin, ugrastirdim seni. Acaba bunun formul ile yolu var midir ?

Kod hazır bir koddu yazmak içi uğraşmadım.

Formül için bu örnek dosyayı inceyin.
http://img.chandoo.org/f/extracting%20numbers.xlsx

Gönderdiğim kodu, Kişisel Makro Çalışma Kitabına kayderdersiniz bu da size ait bir formül olur.
Tüm excel dosyalarında kullanabilir siniz.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki dizi formülü istediğiniz sonucu verecektir.
(sayısal karakterlerin en sağda olduğu varsayıldı)
.

=[COLOR="red"]TOPLA[/COLOR]([COLOR="red"]EĞER[/COLOR]([COLOR="red"]KIRP[/COLOR](A2:A6)="";0;0+[COLOR="red"]EĞER[/COLOR]([COLOR="red"]ESAYIYSA[/COLOR](A2:A6);A2:A6;[COLOR="red"]EĞERHATA[/COLOR]([COLOR="red"]YERİNEKOY[/COLOR]([COLOR="red"]PARÇAAL[/COLOR]([COLOR="red"]KIRP[/COLOR](A2:A6);[COLOR="red"]BUL[/COLOR]("|";[COLOR="red"]YERİNEKOY[/COLOR]([COLOR="red"]KIRP[/COLOR](A2:A6);" ";"|";[COLOR="red"]UZUNLUK[/COLOR]([COLOR="red"]KIRP[/COLOR](A2:A6))-[COLOR="red"]UZUNLUK[/COLOR]([COLOR="red"]YERİNEKOY[/COLOR]([COLOR="red"]KIRP[/COLOR](A2:A6);" ";"")));1);15);".";",");0+[COLOR="red"]YERİNEKOY[/COLOR]([COLOR="Red"]KIRP[/COLOR](A2:A6);".";",")))))
[COLOR="Blue"]Dizi formülü hücreye [B][COLOR="Red"]CTRL+SHIFT+ENTER[/COLOR][/B] ile girilmelidir.[/COLOR]

 

[hayaletinizi]

Merhaba Omer Baran tekrardan, Paylasmis oldugun formul icin tesekkur ederim. Formulu denedim dosyada Fakat Deger hatasi aliyorum. Dizi olarak giriyorum/

 

[Ömer BARAN]

Merhaba.

Belge ekte.
Belgeye buradan da erişebilirsiniz.
.

 

[Murat OSMA]

Bilgi: Formülde herhangi bir hata almadım. Resimde görebilirsiniz. ​

 

[hayaletinizi]

Merhaba Murat Osma, ben de simdi Omer Baran'in yazmis oldugu formulu inceliyordum. Hata degil de, benim excel turkce fakat ingilizce gibi isliyor. Ornegin formulde ";" isaretinin kullanildigi yerleri ben ingilizcede kullanilan "," isaretini kullaniyorum.
Yine ornegin "." noktalik isareti olarak kullanirken, turkce versiyonda "," isareti kullaniliyor. Yerinekoy fonksiyonunda "." yerine "." koy dedim ve sorun kalmadi. onu kaldiradabilirim aslinda.

sorun kalmadi. yazmis oldugunuz dizi formulu calisiyor. tesekkur ederim tekrardan Omer Baran.

 

[Ömer BARAN]

Tekrar merhaba.

Önceki cevabımdaki formülü;
-- seçilen aralıkta boş hücre olması,
-- hücrede sadece boşluk karakteri olması
seçeneklerini de karşılamak üzere güncelledim.

Sayfayı yenileyerek önceki cevabımı kontrol ediniz.
.

 

[hayaletinizi]

Omer Baran, unuttugum kucuk ayrintiyi da halletmissiniz. Evet aynen denedim paylastiginiz gibi, en iyi sekilde isimi gordu. Cok tesekkur ederim.

 

[Ömer BARAN]

Omer Baran, unuttugum kucuk ayrintiyi da halletmissiniz. Evet aynen denedim paylastiginiz gibi, en iyi sekilde isimi gordu. Cok tesekkur ederim.

Eyvallah.
Kolay gelsin.
.

 

[Erdem Akdemir]

Merhaba,

Alternatif olarak kullanabilirsiniz.Dizi formülüdür.
Sayı metinlerin arasında boşluk olması yeterli. Hangi sırada olursa olsun toplama işlemi yapar.
Ondalık ayıraç sizin bilgisayarınızda "." olduğu için formüle ekleme yapmadım. Sizin eklediğiniz veri üzerinde kontrol etmek isteyenler 3. sıradaki değerin ondalık ayıracını virgül yapmalıdır. Yada formüle ek bir yerinekoy ile noktalar virgüle çevrilmeli.

=TOPLA.ÇARPIM((EĞERHATA(--KIRP(PARÇAAL(YERİNEKOY(" "&DEVRİK_DÖNÜŞÜM($A$2:A6);" ";YİNELE(" ";255));SATIR($D$1:D99)*255;255));0)))

 

[hayaletinizi]

kuvari, alternatif cozumun icin tesekkur ederim. Sorumun cozumunu Omer Baran paylastiktan sonra unuttugum bir ayrintiyi eklemeyi unutmusum. Eger Yazida "OVER PAID" var ise sayet, o hucredeki sayi -1 ile carpilarak toplanmasi gerekiyor.

Bunu Omer Baran'in paylastigi formulde EGERHATA kisminin basina -1* koyarak cozdum, iyi bir sekilde calisiyor aslinda. o yuzden sorma geregi duymadim fakat paylastigin dizi formulunde bu ayrinti nasil halledilebilir?