sayfadaki textbox kodlarındaki hata

[ynmcan]

Tüm arkadaşlara hayırlı geceler.

Excel sayfasında buluna 12 adet textbox' a başka bir sayfadan iki buton yardımıyla veri almak için yazdığım kodlardaki hata nedir? bulamadım Yardımcı olursanız sevinirim. Örnek dosyam ekte.

Private Sub CommandButton1_Click()
For i = 1 To 12
Sheets("izle").Controls("TextBox" & i).Text = Sheets("veriler").Cells(i, 1).Text
Next i
End Sub
Private Sub CommandButton2_Click()
For i = 1 To 12
Sheets("izle").Controls("TextBox" & i).Text = Sheets("veriler").Cells(i, 2).Text
Next i
End Sub

 

[Mehmet Şahin]

Böyle bir çözüm belki işinizi görebilir, (ikinci buton için kopyalayıp sütunu değiştirebilirsiniz), iyi çalışmalar.

Private Sub CommandButton1_Click()
s = 0
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("izle")
Dim OLECont As OLEObject
   For Each OLECont In sh.OLEObjects
   s = s + 1
   If OLECont.Name = "TextBox" & s Then
        OLECont.Object = Sheets("veriler").Cells(s, 1).Text
        End If
    Next OLECont
Set sh = Nothing
End Sub

 

[ynmcan]

Syn. Dentex;
Teşekkür ederim.