Döngüde Textbox

[nunikmakarios]

Değerli dostlar

excell sayfasında olan sayısal değerleri sırayla textbox'lara yazdırmak istiyorum ama kod yazım hatası veriyor. Kod aşağıdadır. Yardımlarınızı rica ederim

Private Sub CommandButton1_Click()
For i = 1 To 100
TextBox(i).Value = Cells(i + 5, 8)
Next i
End Sub

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi deneyin.
.

For i = 1 To 100
    Controls("TextBox" & i).Value = Cells(i + 5, 8)
Next

 

[nunikmakarios]

Sayı

Yardımınıza teşekkürler.

Ancak Textboxlara yüklenen rakamları sayı değeri olarak almıyor. TextBox'lara gelen değerleri topladığımda onları alfabetik değerler gibi yan yana yazıyor

Private Sub UserForm_Activate()
For i = 1 To 3
Controls("TextBox" & i).Value = Cells(i, 1)
Next i
For i = 1 To 3
TextBox4.Value = Controls("TextBox" & 4).Value + Controls("TextBox" & i).Value
Next i
End Sub

Döngü çalıştığında
Textbox1 = 2
Textbox2 = 3
Textbox3= 20

textbox4=25 olması gerekirken Textbox4 = 2320 oluyor

 

[Orion1]

Şöyle deneyin.
Not:Textboxların birisi bile boş olursa hata verir.

TextBox4.Value = cdbl(TextBox4.Value) + cdbl(Controls("TextBox" & i).Value)

 

[Ömer BARAN]

Merhaba.

Dolu/boş olması durumu fark etmeksizin aşağıdaki gibi sonuç alabilirsiniz.
.

[B]Private Sub CommandButton1_Click()[/B]
TextBox4 = 0
For i = 1 To 3
    Controls("TextBox" & i).Value = Cells(i + 5, 8)
    If Controls("TextBox" & i) <> "" Then TextBox4.Value = (0 + TextBox4.Value) + (0 + Controls("TextBox" & i).Value)
Next
[B]End Sub[/B]

 

[nunikmakarios]

Bu defa da Run-Time eror 3 hatası verdi

 

[Ömer BARAN]

Cevabı gönderdikten hemen sonra, kod'da küçük bir değşikllik yapmıştım.
Sayfayı yenileyerek önceki cevabımı kontrol ediniz.
Excel belgesindeki ilgili hücrelerde (H6 ve devamı) SAYISAL veri olduğu veya BOŞ olduğu varsayıldı.
.

 

[nunikmakarios]

Teşekkür ederim çalıştı