Birimleri ayırma ve toplama

[NADİR YILDIZ]

60 adet,100 metre,80 kilo olan brimlerdeki sayıları toplatmak istiyorum

60 + 100 + 80 = 240 gibi formülle nasıl yapabilirim

 

[Korhan Ayhan]

Verilerinizin "A" sütununda alt alta olduğunu varsayarsak boş bir hücreye aşağıdaki formülü uygulayıp deneyiniz.

=TOPLA.ÇARPIM(--PARÇAAL((A1:A10&0);1;BUL(" ";A1)))

 

[NADİR YILDIZ]

Korhan bey yalnız benim verilerim alt alta değil bir hücre içinde ben 3 brim örnek verdim bazen 5 -10 adet brimde olabiliyor.

 

[Korhan Ayhan]

Verilerinizin hücrelerdeki düzeni ne şekilde? Aşağıdaki gibiyse makro ile KTF yazılabilir.

10 Kilo,100 Metre,80 Adet

 

[NADİR YILDIZ]

bir hücrenin içinde 10 Kilo,100 Metre,80 Adet ama sadece bir hücrede değil 100 satırlık listede değişik brimlerde bu şekilde asıl dosya büyük o yüzden makro uygulamadan formülle çözmek istiyorum eğer çözümü varsa

 

[Korhan Ayhan]

Birde veriler arasında küsüratlı değerler var mı? Varsa küsürat ayıracı olarak ne kullanılmış?

 

[NADİR YILDIZ]

örneğin
26,50 kilo , virgülle ayrılmış

 

[Korhan Ayhan]

Tam sonuca gidebilmek için küçük bir örnek dosya ekleyebilir misiniz?

 

[Korhan Ayhan]

Biraz uğraştım...

Aşağıdaki kullanıcı tanımlı fonksiyonu hazırladım.

Hücrede kullanım şekli;

=KTOPLA(A1)

Function KTOPLA(Veri As Range) As Double
    Application.Volatile True
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "[^0-9 ,]"
         Data = .Replace(Veri, "")
         Data = Trim(Replace(Replace(Data, " ,", "+"), ",", "."))
    End With
    KTOPLA = Evaluate(Data)
End Function

 

[NADİR YILDIZ]

Teşekkür ederim korhan bey..istediğim gibi olmuş