Sayıları Metinden Ayırıp Birbiriyle Çarpma

[y.selim]

(10*88KG) gibi metin içeren sayıların metinlerinin çıkarılarak
birbiriyle çarpılmasını (=10*88) istiyorum.yardımlarınız için çok teşekkür ederim.

 

[Korhan Ayhan]

Aşağıdaki kullanıcı tanımlı fonksiyonu deneyiniz.

Hücrede kullanım şekli;

=HESAPLA(A2)

Function HESAPLA(Veri As Range)
    For X = 1 To Len(Veri.Formula)
        Select Case Mid(Replace(Veri.Formula, ",", "."), X, 1)
            Case 0 To 9, ".", ",", "*", "+", "-", "/", "^", "%", "(", ")"
            Formul = Formul & Mid(Replace(Veri.Formula, ",", "."), X, 1)
        End Select
    Next
    HESAPLA = Evaluate("=" & Formul)
End Function

 

[y.selim]

Korhan Hocam yardımcı olduğunuz için teşekkür ederim.makro ile gayet güzel çalışıyor.
lakin kullanılacak olan kitap şifreli olduğu için formülle çözebilir miyiz? İyi çalışmalar.

 

[y.selim]

Korhan Hocam yardımcı olduğunuz için teşekkür ederim.makro ile gayet güzel çalışıyor.
lakin kullanılacak olan kitap şifreli olduğu için formülle çözebilir miyiz? İyi çalışmalar.

 

[Murat OSMA]

Formül ile bu şekilde çözebilirsiniz.. Alternatif çözümler de üretilebilir.

[FONT="Trebuchet MS"][SIZE="2"]=[COLOR="Red"]PARÇAAL[/COLOR](A2;1;[COLOR="Blue"]BUL[/COLOR]("*";A2)-1)*[COLOR="DarkOrange"]YERİNEKOY[/COLOR]([COLOR="DarkOrange"]YERİNEKOY[/COLOR]([COLOR="Red"]PARÇAAL[/COLOR](A2;[COLOR="Blue"]BUL[/COLOR]("*";A2)+1;10);"KG";"");"MT";"")[/SIZE][/FONT]

 

[y.selim]

Teşekkürler Murat Hocam harika olmuş.Elinize sağlık,iyi çalışmalar.

 

[Murat OSMA]

Rica ederim, iyi akşamlar.​