4 combobox a bağlı olarak textbox a değer atamak?

[mechanical007]

4 combobox a bağlı olarak textbox a değer atama nasıl yapılır?
Çalışmam ekteki gibi.
Standart renk için fiyat listesi var. Eğer renk standart dışı ise fiyat çarpanları var.
3 para cinsi için fiyatlar mevcut.

Yardımlarınız için şimdiden teşekkür ederim.

Not: etkileyen comboboxlar 10 larca da olabilecekmiş gibi kodlama yaparsanız memnun olurum.

 

[mechanical007]

Uzman Arkadaşlar,

Yardımcı olursanız sevinirim.

Saygılarımla.

 

[mechanical007]

Sayın MAHMUT BAYRAM,

Bu sorumu da siz yanıtlarsanız memnun ourum.

Sanırım Advenced Filter ile yapılacak ama nasıl?

Saygılarımla.

 

[veyselemre]

örneki inceleyin

 

[mechanical007]

Sayın veyselemre,

Öncelikle ilginize teşekkür ederim.

Fakat, ekteki resimde de göreceğiniz gibi hem standart dışı renklerde fiyat çarpanı devreye girmiyor hem de fiyatların küsüratları ".00" olarak görünüyor.

Acaba bu VBA project reference ile ilgili bir sorun mu?

Yardımcı olursanız sevinirim.

Saygılarımla.

 

[veyselemre]

Bu hatayı gönderdiğim dosyada mı verdi?

 

[mechanical007]

Evet Sayın veyselemre.

 

[mechanical007]

Sayın veyselemre,

Nasıl çözebiliriz?

 

[mechanical007]

Arkadaşlar,

Tamam, buradaki bilgi paylaşımı gönüllülük esasına dayalı. Şimdiye kadar yaptığınız yardımlar için de minnettarım ama neden sorum havada kaldı? Yanıtı mı bilin miyor yoksa zaman ayıramıyor musunuz? Hiç değilse bunu yazarsanız sevinirim.

Saygılarımla.

 

[mechanical007]

çözebilene aşkolsun

Arkadaşlar,

Çözebilene aşkolsun. Benim kafam almadı. sabahtan beri uğraşıyorum. Kurcalamadığım yer kalmadı. Normalde kurcalaya kurcalaya problemleri çözerim ama bu problem inat etti. Akıl akıldan üstündür diye buraya yazıyorum.


Acil
:yardim:

 

[Korhan Ayhan]

Selamlar,

Farklı renkler seçildiğinde nasıl bir fiyat hesaplaması yapılacak. Birkaç örnekle açıklarmısınız.

 

[mechanical007]

Satın Cost Control,

Öncelikle ilginize teşekkür ederim.

İstediğiniz örnekler aşağıda. Ayrıca bir türlü çözemediğim konu; virgülden sonraki rakamların ,00 olarak gözükmesi, gerçek değerlerin gözükmemesi. Yani, 10,42 olması gereken değer 10,00 olarak ya da 10,78 olması gereken değer 10,00 olarak gözüküyor. Acaba bu VBA project reference ile ilgili bir sorun mu?

örnek1;
model a
yükseklik 600
renk 9016 ( dolayısı ile fiyat çarpanı =1 ; yani listedeki fiyatın aynısı )
para cinsi YTL

fiyat=10,00*1=10,00 YTL

örnek2;
model a
yükseklik 600
renk 1013 ( dolayısı ile fiyat çarpanı =1,4 ; yani listedeki fiyatın 1,4 katı )
para cinsi $

fiyat=7,69*1,4=10,77 $

örnek3;
model a
yükseklik 600
renk 9001 ( dolayısı ile fiyat çarpanı =1,5 ; yani listedeki fiyatın 1,5 katı )
para cinsi Euro

fiyat=5,56*1,5=8,34 Euro

Saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

 

[mechanical007]

Sayın COST CONTROL,

Öncelikle ilginiz için teşekkür ederim. Fakat yukarıda verdiğim örnekleri denerseniz sonuçların doğru olmadığını göreceksiniz.

*YTL için renk çarpanı çalışmıyor. her renk için aynı değeri veriyor. ( yani 1 )
*USD için standart dışı renklerde aynı çarpanı kullanıyor. ( yani 1,4 )
*Euro için standart dışı renklerde aynı çarpanı kullanıyor. ( yani 1,5 )

Benim istediğim önceki cevabımda verdiğim 3 örnekte olduğu gibi üç ayrı para birimine göre fiyat listesinden hangi para birimi seçilmişse o para birimine ait fiyatı renge göre fiyat çarpanı ile çarpması.

Saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Sanırım siz standart dışı her renk için farklı bir çarpan kullanıyorsunuz. Üstteki mesajımdaki örnek dosyayı bu mantığa dayanarak güncelledim. Umarım faydası olur.

 

[mechanical007]

Sayın COST CONTROL,

Evet istediğim tam olarak buydu. Fakat bir düzeltme yapayım izninizle.

Şöyleki, aşağıdaki satırı,

TextBox5 = Replace(Evaluate("=SUMPRODUCT((Veri!A3:A1000=""" & ComboBox1 & """)*(Veri!B3:B1000=" & ComboBox2 & ")*(Veri!C3:C1000))"), ".", ",") & " YTL"

aşağıdaki satır gibi yaparsak YTL için de renge göre fiyat değişiyor.

TextBox5 = Replace(Evaluate("=SUMPRODUCT((Veri!A3:A1000=""" & ComboBox1 & """)*(Veri!B3:B1000=" & ComboBox2 & ")*(Veri!C3:C1000))*" & ÇARPAN), ".", ",") & " YTL"

Yardımlarınız için minnettarım.

Saygılarımla.

 

[mechanical007]

Sayın COST_CONTROL,

standart renk için,

TextBox5 = Replace(Evaluate("=SUMPRODUCT((Veri!A3:A1000=""" & ComboBox1 & """)*(Veri!B3:B1000=" & ComboBox2 & ")*(Veri!C3:C1000))"), ".", ",") & " YTL"

değişken renk için,

TextBox5 = Replace(Evaluate("=SUMPRODUCT((Veri!A3:A1000=""" & ComboBox1 & """)*(Veri!B3:B1000=" & ComboBox2 & ")*(Veri!C3:C1000))*" & ÇARPAN), ".", ",") & " YTL"

kodları TextBox5 ' e doğru değeri getiriyor.

Fakat ben daha sonra TextBox5 değerini userformda başka bir değerle çarpıyorum. Bu çarrpma işlemi sırasında TextBox5 deki değeri örneğin TextBox5=25,56 ise 2556 olarak alıyor ve öyle çarpıyor ve "type mismatch run-time error "13"" hatasını veriyor.

Yardımcı olusanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[mechanical007]

Sayın COST_CONTROL,

Sizin güncellediğiniz dosya çalışıyor fakat kodları kendi örneğime uyarladığımda çalışmıyor. sizde texbox6 ya değer girildiğinde otomatik olarak textbox7 değişiyor fakat aynı kodları textbox isimlerini kendi isimlerimle değiştirip uyguladığımda hiçbir değişiklik olmuyor. Bir de textbox 5 teki değerin renge göre değişmesinde bir problem yok. yani değer 10 ise çarpan da 1,5 ise textbox 5 ' te 15 i gösteriyor, problem daha sonra bu 15 değerini ( yani 15,00 ) 1500 olarak alıp işlem yapması ve type mismatch hatasını verip programı durdurması.

Umarım derdimi anlatabilmişimdir.

Saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Bu durumda orjinal dosyanızı eklerseniz yardımcı olmaya çalışırız.