Userform üzerindeki Texboxları toplama

[ocamsul]

Arkadaşlar merhaba. Benim çalışmamda bulunan texbox 2 ve 16ya kadar olanları 32. texboxda toplamak 17 ve 31 e kadar olan texboxlarıda 33. texboxda toplamak için yardım edermisiniz.

 

[zafer]

Merhaba


For a = 2 To 16
textbox32 .value= (Controls("Textbox" & a).Value)*1 +textbox32.value
Next

 

[Levent Menteşoğlu]

Zafer dostumun verdiği koda küçük bir ilave yaparsak sorunun ikinci kısmıda çözülmüş olur.

[vb:1:f1e1bd5c3a]For a = 2 To 16
textbox32 .value= (Controls("Textbox" & a).Value)*1 +textbox32.value
textbox33 .value= (Controls("Textbox" & a+15).Value)*1 +textbox33.value
Next
[/vb:1:f1e1bd5c3a]

 

[zafer]

Merhaba

Levent senide şaşırttım kusura bakma:denemeden göndermiştim.

Kodların başına ilave
Textbox32=0
textbox33=0

 

[İsmail Küçükşengün]

Sn. Zafer, Sn. Leventm;

1-Yukarıdaki kodları initalize kısmına mı yazacağız.

2-Tektbox32=0 1 ve 2. satırın başına mı yazılacak.

Selam ve saygılarımla.

 

[zafer]

Merhaba


Private Sub CommandButton1_Click()
Textbox32=0
textbox33=0

For a = 2 To 16
textbox32 .value= (Controls("Textbox" & a).Value)*1 +textbox32.value
textbox33 .value= (Controls("Textbox" & a+15).Value)*1 +textbox33.value
Next
end sub

 

[ocamsul]

Arkadaşlar kodları denedim ama Value de hata verdi ve verdiğiniz kodları aşağıdaki kodlar içinde kullanmak istiyorum. ama bu esnadada Value de hata verdi

Private Sub CommandButton3_Click()
Sheets("VERİ1").Activate
Dim ser As Range
For Each ser In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")) + 4)
ser.Select
If ListBox1.Value = ser Then
TextBox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
TextBox4.Value = ActiveCell.Offset(0, 3).Value
TextBox5.Value = ActiveCell.Offset(0, 4).Value
TextBox6.Value = ActiveCell.Offset(0, 5).Value
TextBox7.Value = ActiveCell.Offset(0, 6).Value
TextBox8.Value = ActiveCell.Offset(0, 7).Value
TextBox9.Value = ActiveCell.Offset(0, 8).Value
TextBox10.Value = ActiveCell.Offset(0, 9).Value
TextBox11.Value = ActiveCell.Offset(0, 10).Value
TextBox12.Value = ActiveCell.Offset(0, 11).Value
TextBox13.Value = ActiveCell.Offset(0, 12).Value
TextBox14.Value = ActiveCell.Offset(0, 13).Value
TextBox15.Value = ActiveCell.Offset(0, 14).Value
TextBox16.Value = ActiveCell.Offset(0, 15).Value
TextBox17.Value = ActiveCell.Offset(0, 17).Value
TextBox18.Value = ActiveCell.Offset(0, 18).Value
TextBox19.Value = ActiveCell.Offset(0, 19).Value
TextBox20.Value = ActiveCell.Offset(0, 20).Value
TextBox21.Value = ActiveCell.Offset(0, 21).Value
TextBox22.Value = ActiveCell.Offset(0, 22).Value
TextBox23.Value = ActiveCell.Offset(0, 23).Value
TextBox24.Value = ActiveCell.Offset(0, 24).Value
TextBox25.Value = ActiveCell.Offset(0, 25).Value
TextBox26.Value = ActiveCell.Offset(0, 26).Value
TextBox27.Value = ActiveCell.Offset(0, 27).Value
TextBox28.Value = ActiveCell.Offset(0, 28).Value
TextBox29.Value = ActiveCell.Offset(0, 29).Value
TextBox30.Value = ActiveCell.Offset(0, 30).Value
TextBox31.Value = ActiveCell.Offset(0, 31).Value
TextBox32.Value = ActiveCell.Offset(0, 16).Value
TextBox33.Value = ActiveCell.Offset(0, 32).Value
Exit Sub
End If
Next ser
MsgBox "Aradığınız isimde bir kayıt bulunamadı...", vbInformation
End Sub

 

[zafer]

Merhaba

İsteğinizle , kodlarınız alakasız.

Burada 1 den 33 e kadar olan textboxlara seçtiğiniz hücre ve yanındaki hücrelerin verilerinin gelmesini istiyorsunuz.

Tam bir açıklama yazabilirmisiniz.
Value de hata verdi yanlış, Hata veren satırı söylerseniz daha iyi olur.

 

[ocamsul]

Aşağıdaki Satırda Value kısmında hata verdi.

textbox32 .value= (Controls("Textbox" & a).Value)*1 +textbox32.value

Belirttiğim kodlar verileri texbovlara getirirken aynı zamandada 32. ve 33. texboxlarda ilk sorumda belirttiğim tex aralıklarının toplamlarını almak istiyorum.

 

[ocamsul]

Örnek dosya ektedir. Yapmak istediğimin Form3 de bulunan Kayıt sorgula düğmesinde olması gerekiyo.

 

[zafer]

Merhaba


Kodları denemeden direk buraya yazdığımız için hata veriyor
Textbox32 den sonra "." value ile bitişik olacak 33 içinde

textbox32.value= (Controls("Textbox" & a).Value)*1 +textbox32.value

 

[Levent Menteşoğlu]

Sorun textboxlardan en az birinin boş olması durumunda çıkar. Bu durumda koda bir şart eklemek gerekir.

if Controls("Textbox" & a)<>"" then textbox32.value= (Controls("Textbox" & a).Value)*1 +textbox32.value

 

[zafer]

Merhaba

 

[ocamsul]

Sn: leventm çok teşekkür ederim. 33. texbox a nasıl alacağım frame2 de texleri?

 

[Levent Menteşoğlu]

Aynı mantıkla aşağıdaki gibi düzenleyeceksiniz.

if Controls("Textbox" & a+15)<>"" then textbox33.value= (Controls("Textbox" & a+15).Value)*1 +textbox33.value

 

[ocamsul]

Sn: leventm çok teşekkür ederim.