txt de çarpma ve genel toplam alma

[mixser]

Merheba arkadaşlar

user form üzerindeki txt lerde adet * fiyat işlemini yapmak istiyorum
txt lerde işlem yaptıkça toplam değişmeli.
bir türlü yapamadım yardımızı istiyorum

 

[ECYavuz]

UserForm Üzerinde;
TextBox1,TextBox2 ve TextBox3 olduğunu varsayalım.

TextBox1 A1 Hücresine ile bağlantılı ise .... Miktar
TextBox2 A2 Hücresine ile bağlantılı ise .....Fiyat
TextBox3 A3 Hücresine ile bağlantılı ise ..... Toplam

TextBox3'de Toplam Sonucu Görmek isterseniz.

Kod:
Private Sub TextBox1_Change()
TextBox3.Value = Val(TextBox1.Value) * Val(TextBox2.Value)
End Sub

Private Sub TextBox2_Change()
TextBox3.Value = Val(TextBox1.Value) *Val(TextBox2.Value)
End Sub

Ayrıca Girdiğiniz değerlerin TextBoxlarla birlikte Hücrelerde Anında görünmesini isterseniz.

Kod:
Private Sub TextBox1_Change()
Range("A1").Select
[a1] = TextBox1.Value
TextBox3.Value = Val(TextBox1.Value) * Val(TextBox2.Value)
End Sub

Private Sub TextBox2_Change()
Range("A2").Select
[a2] = TextBox2.Value
TextBox3.Value = Val(TextBox1.Value) * Val(TextBox2.Value)
End Sub

Private Sub TextBox3_Change()
Range("A3").Select
[a3] = TextBox3.Value
End Sub

 

[mixser]

merhba ECYavuz

dosya eklemeyi unutmuştum düzeltme yaptım.
textboxlardaki işlem sonucunu txttoplam da göstermek istiyorum
txt ler herhangi bir hücreye bağlı değil
çarpma işlemleri yapıldıkça txttoplamdaki değer de değişmeli

 

[mixser]

arkadaşlar tıkandım
yardım edecek yokmu ?

 

[musculus]

ekteki dosyayı inceleyiniz

 

[mixser]

sn.musculus

çözümünüz için teşekkür ediyorum.
inanın çok makbule geçti. forumda aratmama rağmen benzer bir çözüm göremedim ama benimkine benzer sorulara çok rastladım. inşallah diğer soran arkadaşlarda bu cevapla işlerini halletmiş olurlar.
saygılarımla

 

[musculus]

rica ederim

 

[barutkokusu]

Sayın Hocalarım,
ekteki dosyada daha iyi anlaşır sanırım ama buradan biraz açayım konuyu.
dosyadaki aynı işlemi her bir textbox için else- end if mantığıyla yapmasını istiyorum.

2. si bunu euro olarak hazırlamış ve istediğim gibi çalıştırmıştım.
ama 2. koşula geçip if combobox "Tl" koyup, çalışmadığını görünce sildiğim halde "Euro" yu "Tl" olarak algılıyor.

Yardımlarınızı bekliyorum. şimdiden çok teşekkürler.

 

[musculus]

Ustalar çözerken (bende uğraşıyorum) anlayamadığım bir nokta var.
Miktar kısmına rakam girdiğimizde (textbox1), textbox2 değeri otomatikman bir değer alıyor ve aynı değeri c2 hücresinede yazıyor.sayfayı değiştirdiğimizde örneğin sayfa 3, yine değer alıyor yine c2 hücresine alıyor ama o sayfada rakam olmadığı için 0 değeri yazıyor.

anlayamadığım nokta bunları gerçekleştirecek hiç bir kod göremedim.Birde aldığı değer ne ise daha sonra kod yazma sayfasındaki userform1 deki textbox2 değeride boş olmak yerine c2 deki rakam oluyor.

? ? ?

 

[barutkokusu]

Ustalar çözerken (bende uğraşıyorum) anlayamadığım bir nokta var.
Miktar kısmına rakam girdiğimizde (textbox1), textbox2 değeri otomatikman bir değer alıyor ve aynı değeri c2 hücresinede yazıyor.sayfayı değiştirdiğimizde örneğin sayfa 3, yine değer alıyor yine c2 hücresine alıyor ama o sayfada rakam olmadığı için 0 değeri yazıyor.

anlayamadığım nokta bunları gerçekleştirecek hiç bir kod göremedim.Birde aldığı değer ne ise daha sonra kod yazma sayfasındaki userform1 deki textbox2 değeride boş olmak yerine c2 deki rakam oluyor.

? ? ?

sayın musculus, bunların nerden geldiğini ben de anlamadım ama benim için sadece currency sayfasındaki b sütunu önemli rates sayfası da currency b sütununa veriler gönderiyor zaten bunun dışında hiç bir sayfanın önemi yok.

 

[musculus]

tam işini görür mü bilmiyorum ama ilk denemem

 

[barutkokusu]

tam işini görür mü bilmiyorum ama ilk denemem

Aradığım tam olarak buydu!
Çok çok teşekkür ederim
Ellerine, emeğinize sağlık.