Toplama formülü kısaltılabilir mi?

[izcik]

Değerli uzmanlarım yine sürekli memnun olarak kullandığım toplama formülüm var.

=TOPLA.ÇARPIM(--KIRP(PARÇAAL(YERİNEKOY(A1;"+";YİNELE(" ";UZUNLUK(A1)));1+((SATIR(DOLAYLI("$1:"&(1+UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;"+";"")))))-1)*UZUNLUK(A1));UZUNLUK(A1))))

Bu formül; bir hücre içindeki, arasında + işareti olan sayıları hatasız bir şekilde topluyor.

örnek
5+78+495
22+55+987+1544
veya
15+20

gibi


Sorum şu bu formül biraz uzun olduğu için (özelliğini yitirmeden) kısaltmak mümkün mü?


Not: Bilmeyen arkadaşlar, bu formülü not ediniz. Her zaman lazım olacaktır.

 

[Korhan Ayhan]

Selamlar,

Kullanıcı tanımlı fonksiyon kullanarak kısaltabilirsiniz.

Option Explicit
 
Private Function HESAPLA(Hücre As Range)
    Application.Volatile
    HESAPLA = Evaluate("=" & Hücre)
End Function

Kullanım şekli;

[COLOR=blue]=HESAPLA(A1)[/COLOR]

 

[suatbayhan]

Sayın izcik,
A1 hücresine 15+20 yazıp formülü uyguladım #AD? hatası veriyor.
Acaba gözden kaçırdığım bir şey mi var?
Saygılar

 

[uzmanamele]

Sayın izcik,
A1 hücresine 15+20 yazıp formülü uyguladım #AD? hatası veriyor.
Acaba gözden kaçırdığım bir şey mi var?
Saygılar

merhaba
arada boşluklar vardır, TEMİZlemeniz gerekir, bunu deneyiniz.

=TOPLA.ÇARPIM(--KIRP(PARÇAAL(YERİNEKOY(A1;"+";YİNELE(" ";UZUNLUK(A1)));1+((SATIR(DOLAYLI("$1:"&(1+UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;"+";"")))))-1)*UZUNLUK(A1));UZUNLUK(A1))))

 

[suatbayhan]

Merhaba hocam,
Doğru, bir yerde boşluk varmış.
Çok teşekkür ederim.
Saygılarımla

 

[izcik]

Korhan Ayhan uzmanım teşekkür ederim.


Uzmanamele uzmanım bu boşluk sorunu benimde başıma zaman zaman geliyor. Hatta bazı konularda bunu belirtmiştim.

Mesaj yazarken kodları hangi bölüme yazıyorsunuz? Bunu göremedim?

 

[Merhum İdris SERDAR]

Değerli uzmanlarım yine sürekli memnun olarak kullandığım toplama formülüm var.

=TOPLA.ÇARPIM(--KIRP(PARÇAAL(YERİNEKOY(A1;"+";YİNELE(" ";UZUNLUK(A1)));1+((SATIR(DOLAYLI("$1:"&(1+UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;"+";"")))))-1)*UZUNLUK(A1));UZUNLUK(A1))))

Bu formül; bir hücre içindeki, arasında + işareti olan sayıları hatasız bir şekilde topluyor.

örnek
5+78+495
22+55+987+1544
veya
15+20

gibi


Sorum şu bu formül biraz uzun olduğu için (özelliğini yitirmeden) kısaltmak mümkün mü?


Not: Bilmeyen arkadaşlar, bu formülü not ediniz. Her zaman lazım olacaktır.

En kısası...

Örnek dosya ekte.


.

 

[izcik]

Yurttaş uzmanım verdiğiniz dosya makro ihtiva etmiyor galiba? Peki hesaplamaları nasıl yapabiliyor?

 

[Merhum İdris SERDAR]

Yurttaş uzmanım verdiğiniz dosya makro ihtiva etmiyor galiba? Peki hesaplamaları nasıl yapabiliyor?

Insert > Name > Define'a bakın.

Excel 4.0 Macro fonksiyonu olan Evaluate fonksiyonu kullanılmıştır.

.

 

[izcik]

Yurttaş uzmanım Visual Basic menülerinde mi oluyor? İnsert sekmesinde ; Procedure, Userform, Module, Classmodule ve File seçenekleri var

 

[suatbayhan]

Sayın yurttas hocamın cevabını sabırla bekliyorum.
Ben Office 2007 kullanıyorum. Açıklamanızda bunu da dikkate alırsanız çok memnun olurum.
Saygılarımla...

 

[Merhum İdris SERDAR]

Normal menüden Ekle > Ad > Tanımla'ya bakın.

Excel 2007 yüklü olmadığı için tarif edemiyorum.

.