aynı hücredeki değerleri çarpmak

[murat ulaş]

herkese selamlar,

Ağırlık hesaplamak için aynı hücrede bulunan rakamları (10x250x400) birbiri ile ile çarpmam ve daha sonra özgül ağırlık ile çarpıp /1000000 yapmam gerekiyor

Bununiçin metni sütunlara dönüştürüp hücreleri birbiri ile çarpabilirim ama başka sayfadan veri alacağım için ilk sayfada veri değiştiğinde ikinci sayfada değiştiremiyorum

parça al komutunu kullanarak yaptığımda ikinci satırda rakamlar (150x200x3500) olabilir her satıra ayrı formül girmem gerekiyor aynı hücredeki rakamları "x" referans alarak birbiri ile çarptırılabilirmi. herkese iyi çalışmalar

 

[hamitcan]

Ktf ile bir çözüm ürettim.
Kullanımı: hucreicerisindekidegerlericarp(hucre; ozgulagirlik)

Function hucreicerisindekidegerlericarp(hucre As String, ozgulagirlik As Double)
    t = 1
    a = Split(UCase(hucre), "X")
    For i = 0 To UBound(a)
      t = a(i) * t
    Next
    hucreicerisindekidegerlericarp = t * ozgulagirlik / 1000000
End Function

 

[murat ulaş]

sayın hamit can çok teşekkürler ama bunu nasıl kullanabilirim

 

[hamitcan]

Yaptığım kullanıcı tanımlı bir fonksiyon. Normal bir fonksiyon yazar gibi aşağıdaki formülü yazın.
= hucreicerisindekidegerlericarp(hucre; ozgulagirlik)
Örn: =hucreicerisindekidegerlericarp(A1;1000) şeklinde.

 

[murat ulaş]

office2003 formulü yazdım #AD? hatası veriyor

 

[hamitcan]

Kodu bir modüle ekleyip deneyin.

 

[Necdet]

Merhaba,

Değerin A1 de olduğunu varsayarsak, fonksiyonlarla çözüm :

=(LEFT(A1;SEARCH("x";A1)-1)+0)*(MID(A1;SEARCH("x";A1)+1;  SEARCH("x";A1;SEARCH("x";A1)+1)- SEARCH("x";A1)-1)+0)*(RIGHT(A1;LEN(A1)-SEARCH("x";A1;SEARCH("x";A1)+1))+0)/1000000

=(SOLDAN(A1;MBUL("x";A1)-1)+0)*(PARÇAAL(A1;MBUL("x";A1)+1;  MBUL("x";A1;MBUL("x";A1)+1)- MBUL("x";A1)-1)+0)*(SAĞDAN(A1;UZUNLUK(A1)-MBUL("x";A1;MBUL("x";A1)+1))+0)/1000000

 

[uzmanamele]

merhaba
syn hamitcan ktf için teşekkürler, biraz daha genellerseniz kft örneklerine ekleyeyim, kullanışlı bir örnek.
=hucreicerisindekidegerlericarp(A1;1000)
bunu yazmak facıt hesap makinesiyle hesap yapmakdan zor

 

[Korhan Ayhan]

Selamlar,

Sn. Necdet beyin çözümüne benzer bir çözümde ben hazırlamıştım. Alternatif olması açısından incelermisiniz.

 

[hamitcan]

=hucreicerisindekidegerlericarp(A1;1000)bunu yazmak facıt hesap makinesiyle hesap yazmakdan zor

Süleyman bey, ismini değiştirebiliriz. Aklınızda uygun bir isim varsa hemen değiştirelim.

 

[murat ulaş]

syn hamitcan yazdığınız bu kodu nereye ve nasıl yazıp kayıt edebilirim kusuruma bakmayın bu konulara yabancıyım

 

[hamitcan]

Vba içinde İnsert menüsünden bir modül ekleyip kodu içine kaydedin.
Ayrıca aşağıdaki linki de incelemenizi tavsiye ederim. Kod yazma ile ilgili birçok bilgi bulunmakta.
http://www.excel.web.tr/forumdisplay.php?f=127

 

[murat ulaş]

verdiğiniz kodları modüle ekleyip çalıştırdım çalışıyor faka problem sonuçta hata veriyor 50x500x750 olan hücre özgül ağırlık 7,86 sonuç 147.37 olması gerekli ama 150 veriyor ben hatamı yapıyorum acaba.

bu arada ilgilenen tüm arkadaşlara teşekkürler iyi çalışmalar

 

[hamitcan]

Değişken tipinde bir değişiklik daha yaptım, şimdi düzeldi.

 

[murat ulaş]

çok teşekkürler özür dilerim ama bu konulara yabancıyım ben bu fonksiyonu sadece tek sayfaya değilde istendiği zaman herhangi bir sayfada kullanmak için nasıl bir kayıt işlemi yapmam gerekli

 

[hamitcan]

Farklı çalışma kitaplarında kullanabilmek için eklenti haline dönüştürmeniz gerekiyor