TextBox(i).Value i for döngüsü içinde nasıl kullanabilirim.

[sertokus]

Merhaba arkadaşlar.
For i = 4 To 38

TextBox(i).Value = Worksheets(kunye).Cells(satir, i).Value
Next i

şeklinde vba excel de bir kod kullanmam gerek. Ama bu TextBox hata veriyor.
Bunun doğru kullanımı nedir. yardımcı olur musunuz
Not:
TextBox(i).Text te kabul etmedi.
Textboxtan sonra köşeli parantez kullandım ama yine göstermedi.

 

[ÖmerBey]

Merhaba,
Controls("TextBox" & i).Value = Worksheets(kunye).Cells(satir, i).Value şeklinde deneyiniz...

 

[sertokus]

Merhaba,
Controls("TextBox" & i).Value = Worksheets(kunye).Cells(satir, i).Value şeklinde deneyiniz...

Cok teşekkür ederim hocam. Çalıştı bu şekilde.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[umutcanarikan]

Arkadaşlar merhaba Excel sayfasına eklediğim textboxları döngü ile nasıl yapabilirim acaba? Userform üzerinden controls(“textbox”&i ) şeklinde yapabiliyorum fakat sayfada bulunan textboxlara uygulayamıyorım. Acaba söylediğim şekilde öpmüyor mu?
Saygılarımla.

 

[Korhan Ayhan]

Merhaba,

Deneyiniz.

Option Explicit

Sub Test()
    Dim TBox As OLEObject, Say As Integer
   
    For Each TBox In Sheets("Sheet1").OLEObjects
        Say = Say + 1
        TBox.Object.Value = Say
    Next
End Sub

Ya da;

Option Explicit

Sub Test()
    Dim X As Integer, Say As Integer
    
    For X = 1 To Sheets("Sheet1").OLEObjects.Count
        Say = Say + 1
        Sheets("Sheet1").OLEObjects("TextBox" & X).Object.Value = Say
    Next
End Sub

 

[umutcanarikan]

Çok teşekkür ediyorum çalıştı.