Userform üzerindeki Texboxları toplama

Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba


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

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

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

Kodların başına ilave
Textbox32=0
textbox33=0
 
Katılım
31 Ağustos 2005
Mesajlar
1,534
Excel Vers. ve Dili
Excel 2003 - Türkçe
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Örnek dosya ektedir. Yapmak istediğimin Form3 de bulunan Kayıt sorgula düğmesinde olması gerekiyo.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Sn: leventm çok teşekkür ederim. 33. texbox a nasıl alacağım frame2 de texleri?
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Sn: leventm çok teşekkür ederim.
 
Üst