• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

B

baknediycem

Katılım
27 Şubat 2007
Mesajlar
353
Excel Vers. ve Dili
2002 Türkçe
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:
 
Son düzenleme:
Aşağıdaki kodu useroformun kod sayfasına kopyalayın.

Kod: 
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
 
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.
 
: (

userforma bir textbox daha ekleyip kodları aşağıdaki gibi değiştirdim fakat olmadı. yapamayacagım galiba :(
 
baknediycem' Alıntı:
userforma bir textbox daha ekleyip kodları aşağıdaki gibi değiştirdim fakat olmadı. yapamayacagım galiba :(
Genişletmek için tıkla ...

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
 
bu kez oldu

ufkumu actıgınız için tesekkur ederim sn. leventm !
Kod: 
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
 
baknediycem' Alıntı:
ufkumu actıgınız için tesekkur ederim sn. leventm !
Kod: 
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
Genişletmek için tıkla ...

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
 
?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
 
Kod: 
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
 
isarican' Alıntı:
Kod: 
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
Genişletmek için tıkla ...

tesekkr ederim sn. isarican .. ama olmadı. duzenlemeye calısıyorum.:roll:
 
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:
 
baknediycem' Alıntı:
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:
Genişletmek için tıkla ...


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

textboxlara girilen değerleri toplamayla ilgili yardıma ihtiyacım var.:roll:
 
Merhaba.
Aşağıdaki kodları kendi kodlarınıza uyarlayarak deneyebilirsiniz.:cool:
Kod: 
TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
 
merhaba

Sezar' Alıntı:
Merhaba.
Aşağıdaki kodları kendi kodlarınıza uyarlayarak deneyebilirsiniz.:cool:
Kod: 
TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
Genişletmek için tıkla ...
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?
 
: (

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
 
Son düzenleme:
Aşağıdaki gibi deneyin.

Kod: 
[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]
 
% 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.

: )
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst