bu kodlar neden hata veriyor...

[bulentc76]

Private Sub CommandButton4_Click()
If TextBox3.Value = "" Then
MsgBox "DİYORUM Kİ SEÇİM YAPSAN HA !!!NASIL OLUR ?"
Exit Sub
End If
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
SonSat = ListBox1.ListIndex + 2
For a = 1 To 19
Cells(SonSat, a) = Controls("TextBox" & a)
Next
ListBox1.RowSource = "a2:I" & [a65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub


yukarıdaki kodları kullanarak ilgili sayfada toplam 19 sütunda ve sonsuz satıtda yer alabilecek verileri textboklara çağırıyorum.sonra değiştirmek istediğim textboxtaki veriyi değiştiriyorum ve değiştir butonuna tıklıyorum ama
Cells(SonSat, a) = Controls("TextBox" & a)
satırı sarı çizgiyle hata veriyor...
Yardım edeceklere emekleri için şimdiden teşekkürederim.

 

[Levent Menteşoğlu]

Hta verdiği satır döngü içindeki bir textboxın bulunamadığını gösteriyor. Textbox isimlerinin 1-19 arasında sıralı gidip gitmediğini kontrol edin.

 

[bulentc76]

levent bey hatayı bulamadım...
eksik yok ama...
problem ekteki dosyada userform 2 de yer alıyor.İlgilenirseniz çok sevinirim.
Şimdiden çok teşekkür ederim.

 

[dEdE]

Textbox isimlerinin 1-19 arasında sıralı gidip gitmediğini kontrol edin.

Resimde görüldüğü gibi textbox numaraları sıralı gitmiyor. Örn. 1,2,9,10,11,12,13,14 no lu textboxlar yok. Buna karşın 19 dan büyük textbox numaraları var. 1-19 arasında olmalı diye düşünüyorum.
Saygılar.
Not: Texboxların içinde görülen sayılar texbox numaralarıdır.

 

[bulentc76]

İlginize teşekkürederim, sıralayınca çalıştı...