userformdaki textboxa yazılan değerin diğer textboxlarda %4,5'i,%20si ve%80'ini hesap

[baknediycem]

userformda; textbox20= textbox6dan textbox19 a kadar textboxlardaki değerleri topla

başlığımı değiştirdim. % sorunumu çözdüm. ama textbox20'de textbox6 : textbox19 aralığındaki değerlerin toplamını görmek istiyorum.

(aşağıdaki yanıtını aldığım soru
userformdaki textboxa yazılan değerin diğer textboxlarda %4,5'i,%20si ve%80'ini hesaplamak istiyorum. ekte oluşturduğum UserFormu görebilirsiniz.)

:hey:

 

[Levent Menteşoğlu]

Aşağıdaki kodu useroformun kod sayfasına kopyalayın.

Private Sub TextBox1_Change()
If TextBox1 = "" Then
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
Else
TextBox2 = Replace(TextBox1 * 0.045, ".", ",")
TextBox3 = Replace(TextBox1 * 0.8, ".", ",")
TextBox4 = Replace(TextBox1 * 0.2, ".", ",")
End If
End Sub

 

[baknediycem]

sn. leventm cok tesekkur ederim .. fakat..

sorumu eksik sormamdan kaynaklı bir sorun var. kendi çabamla düzeltmeye calısıyorum. ilginiz beni şaşırtıyor. tekrar tesekkur ederim.

( sorum şöyle olmalıydı : textboxa girilen değerin %4,5 i textbox2ye.. ve girilen değerin %4,5 cıktıktan sonra kalanın % 80 ve % 20 si ni diğer textboxlarda görmek istiyorum. )

not: sorunu yeni bir textbox ekleyerek kendim aşmaya calısacagım. yine de öneriniz olursa sevinirim.

 

[baknediycem]

: (

userforma bir textbox daha ekleyip kodları aşağıdaki gibi değiştirdim fakat olmadı. yapamayacagım galiba

 

[baknediycem]

userforma bir textbox daha ekleyip kodları aşağıdaki gibi değiştirdim fakat olmadı. yapamayacagım galiba

Private Sub TextBox1_Change()
If TextBox1 = "" Then
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
End If
TextBox2 = Replace(TextBox1 * 0.045, ".", ",")
TextBox3 = Replace(TextBox5 * 0.8, ".", ",")
TextBox4 = Replace(TextBox5 * 0.2, ".", ",")
TextBox5 = Replace(TextBox1 - TextBox2, ".", ",")
End If
End Sub

 

[baknediycem]

bu kez oldu

ufkumu actıgınız için tesekkur ederim sn. leventm !

Private Sub TextBox1_Change()
If TextBox1 = "" Then
TextBox2 = ""
TextBox3 = ""
Else
TextBox2 = Replace(TextBox1 * 0.045, ".", ",")
TextBox3 = Replace(TextBox1 - TextBox2, ".", ",")
End If
End Sub
Private Sub TextBox3_Change()
If TextBox3 = "" Then
TextBox4 = ""
TextBox5 = ""
Else
TextBox4 = Replace(TextBox3 * 0.2, ".", ",")
TextBox5 = Replace(TextBox3 * 0.8, ".", ",")
End If
End Sub

 

[isarican]

ufkumu actıgınız için tesekkur ederim sn. leventm !

Private Sub TextBox1_Change()
If TextBox1 = "" Then
TextBox2 = ""
TextBox3 = ""
Else
TextBox2 = Replace(TextBox1 * 0.045, ".", ",")
TextBox3 = Replace(TextBox1 - TextBox2, ".", ",")
End If
End Sub
Private Sub TextBox3_Change()
If TextBox3 = "" Then
TextBox4 = ""
TextBox5 = ""
Else
TextBox4 = Replace(TextBox3 * 0.2, ".", ",")
TextBox5 = Replace(TextBox3 * 0.8, ".", ",")
End If
End Sub

Arkadaşım bende sana tam yanıt yazıyordum ki sen benden önce davrandın :hihoho: :hihoho: Neyse sorun kimin önce yaptığı degil senin sorunun çözülüp çözülmedigidir. İYİ geceler Arkadaşım bende bu textboxları sildim 3tane textbox kaldı kdv hs programı yaptım. Zevkli bu macro ya

:hey: iyi geceler

 

[baknediycem]

?yeni bir soru?

merhaba textbox6 dan textbox 14 e kadar girdiğim değerler textbox 15 te toplam olarak verilsin. yani :


textbox 15 = textbox6 + textbox7+textbox8 + textbox9+textbox10 + textbox11+textbox12+ textbox13+textbox14

 

[isarican]

Private Sub TextBox1_Change()
If TextBox1 = "" Then
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
Else
TextBox2 = Replace(TextBox1 * 0.045, ".", ",")
TextBox3 = Replace(TextBox1 * 0.8, ".", ",")
TextBox4 = Replace(TextBox1 * 0.2, ".", ",")
TextBox5 = Replace(TextBox1 - 1.2, ".", ",")
TextBox6 = Replace(TextBox6 + TextBox7 + TextBox8 + TextBox9 + TextBox10 + TextBox11 + TextBox12 + TextBox13 + TextBox14, ".", ",")
End If
End Sub

Textbox eklemeyi unutma 14e kadar

 

[baknediycem]

Private Sub TextBox1_Change()
If TextBox1 = "" Then
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
Else
TextBox2 = Replace(TextBox1 * 0.045, ".", ",")
TextBox3 = Replace(TextBox1 * 0.8, ".", ",")
TextBox4 = Replace(TextBox1 * 0.2, ".", ",")
TextBox5 = Replace(TextBox1 - 1.2, ".", ",")
TextBox6 = Replace(TextBox6 + TextBox7 + TextBox8 + TextBox9 + TextBox10 + TextBox11 + TextBox12 + TextBox13 + TextBox14, ".", ",")
End If
End Sub

Textbox eklemeyi unutma 14e kadar

tesekkr ederim sn. isarican .. ama olmadı. duzenlemeye calısıyorum.:roll:

 

[baknediycem]

bunu denedim ama..

yan yana topluyor. yan yana yazıyor. yani; textbox6da 54 , textbox7de 35 yazdıysan 5435 cıkıyor sınuç. 54 ve 35 i yanyana koyuyor yani.:roll: :yardim:

 

[isarican]

yan yana topluyor. yan yana yazıyor. yani; textbox6da 54 , textbox7de 35 yazdıysan 5435 cıkıyor sınuç. 54 ve 35 i yanyana koyuyor yani.:roll: :yardim:

Çıkarmaya çıkarıyor çarpıyo Yalnız + gelince yanyana yazıyor illa bi çaresi vardır :roll: :roll: :roll:

 

[baknediycem]

merhaba

textboxlara girilen değerleri toplamayla ilgili yardıma ihtiyacım var.:roll:

 

[Orion1]

Merhaba.
Aşağıdaki kodları kendi kodlarınıza uyarlayarak deneyebilirsiniz.

TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)

 

[baknediycem]

merhaba

Merhaba.
Aşağıdaki kodları kendi kodlarınıza uyarlayarak deneyebilirsiniz.

TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)

sn. sezar tesekkur ederim fakat ;:roll:
coklu toplamayı yapamadım :

textbox6 ya = textbox1, textbox2, textbox3, textbox4 ve textbox 5 i nasıl toplatırım?

 

[baknediycem]

: (

bunu deniyorum fakat.. hem zaman alıyor. hem kulağı tersten gostermiş gibi oluyorum. ama sonucta sayenizde olacak.


Private Sub TextBox7_Change()
TextBox8.Value = CDbl(TextBox6.Value) + CDbl(TextBox7.Value)
End Sub

Private Sub TextBox9_Change()
TextBox10.Value = CDbl(TextBox8.Value) + CDbl(TextBox9.Value)
End Sub
Private Sub TextBox11_Change()
TextBox12.Value = CDbl(TextBox10.Value) + CDbl(TextBox11.Value)
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[LEFT]Private Sub TextBox1_Change()
If TextBox1 = "" Then
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
Else
TextBox2 = Replace(TextBox1 * 0.045, ".", ",")
TextBox3 = Replace((cdbl(textbox1)-cdbl(TextBox2))* 0.8, ".", ",")
TextBox4 = Replace((cdbl(TextBox1)-cdbl(textbox3))*0.2, ".", ",")
End If
End Sub[/LEFT]

 

[baknediycem]

% sorunumu cozdum sayenizde. fakat

baska bir sorum var:

textbox 20 = textbox6+textbox7+textbox8+textbox9+textbox10+textbox11+textbox12+textbox13+textbox14+textbox15+textbox16+textbox17+textbox18+textbox19

yani textbox 20 de ; textbox 6dan textbox 19 a kadar olan textboxlara girilen değerlerin toplamını görmek istiyorum.

(textbox6 ya 3 , textbox7 ye 5 girdiysem de textbox20 de 8 i görmek istiyorum.

: )

 

[baknediycem]

merhaba

bu sizler için basit bir sorun olmalı. lutfen yardım edin

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.