topla.çarpım

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar en aşağıdaki kod çalışıyor. Fakat ben combobox1 den seçtiğim değeri bir değişkene atayarak yapmak istediğimde olmuyor. Örneğin
bul = ComboBox1.Text
TextBox1 = Evaluate("=Sumproduct((G21:G620 = bul)*(Q21:Q620= ""2&3""))") şeklinde yaptığımda hata veriyor. Epeyce uğraştım ama hakkından gelemedim. İlgilenen arkadaşlara şimdiden teşekkürler.


Range("G1") = ComboBox1.Text
TextBox1 = Evaluate("=Sumproduct((G21:G620 = G1)*(Q21:Q620= ""2&3""))")

 

[mersilen]

Merhaba, aşağıdaki şekilde denediniz mi?

TextBox1 = Evaluate("=Sumproduct((G21:G620 =" & bul & ")*(Q21:Q620= ""2&3""))")

 

[gezginmda]

Bir makroya ihtiyacım vardı.
A1+a2+a3+a4 ü toplayıp tüm topamı b1 deki sayıya bölecek
çıkan sonuc 1 ve 2 arasındaysa 2 ile
2 ve 3 arasındaysa 3 ile
3 ve 4 arasındaysa 4 ile
eğer sonuc sıfır ise sonuç alanına (d2) b2 de bulunan sayıyı yazacak
hesapla butonuna basınca bu sonucu d2 alanına yazarsa sevinirim
teşekkür ederim.

 

[excellcan]

Merhaba, aşağıdaki şekilde denediniz mi?

TextBox1 = Evaluate("=Sumproduct((G21:G620 =" & bul & ")*(Q21:Q620= ""2&3""))")

Hocam denedim ama aynı hatayı veriyor. Tür uyuşmazlığı diyor.

 

[excellcan]

bul = ComboBox1.Text
TextBox1 = Evaluate("=Sumproduct((G21:G620 = """ & bul & """ )*(Q21:Q620= ""2&3""))") biçiminde denedim sonunda oldu.

 

[haso_excel]

Merhaba arkadaşlar,
Database sheetimden, aynı çalışma dosyasında olan başka bir sheete 3 farklı kritere baktırarak veri alıyorum, fakat sumproductın özelliğinden olsa gerek çok fazla takılıyor.
Aynı işi VBA ile yapmak mümkün mü acaba.
Database sheetinde A2: A nerde biterse = Depo B2 hücresi
" " C2: C "" = "Depo"
" " D2 " " = Depo D1 baktırarak database den toplamlarını Depo da D2 hücresine yazacak.

Mümkünse çok makbule geçer.
Dosyam ekte

 

[dEdE]

Merhaba,
Sayın gezginmda sorunuzun bu konu başlığı ile hiç bir ilişkisi yok.
Yeni bir başlık açarak sorunuzu orada sormanızı öneririm.
Ayrıca buraya ve buraya da bakabilirsiniz.

Sayın haso_excel, sanırım aynı uyarı sizin için de geçerli.
Hoşçakalın.