Hücrede rakamların adedini toplama.

[sward175]

Herkese Günaydınlar,
Bir hücrede rakamları topluyorum, Yan hücreye bu toplamların kaç adet olduğunu hesaplatmak istiyorum.
Saygılarımla,
sward175

 

[Ali]

Bir modüle aşağıdaki kodları ekleyin.

Public Function Sayısay(r As Range) As Integer
Sayısay = UBound(Split(r.Formula, "+"))
End Function

Sonuç göreceğiniz hücreye

=Sayısay(D4)+1

yazın.

 

[PriveT]

Merhaba,
Formüllü alternatif;

=UZUNLUK(FORMÜLMETNİ(D4))-UZUNLUK(YERİNEKOY(FORMÜLMETNİ(D4);"+";""))+1

 

[sward175]

Sayın, Ali
Sayın, PriveT, Ayrı ayrı teşekkürlerimi sunarım,
İyi günler adına.
Sward175

 

[PriveT]

Teşekkürler, iyi günler.