Kodu Döngü ile yazmak

[udentr2002]

Merhab arkadaşlar;
Aşağıdaki kodu yazarak sayfadaki verileri textboxa getiriyorum. Ancak çok fazla textbox olacak aşağıdaki kod yerine döngü ile nasıl yapabilirim. Daha önceden yapıyordum ama şimdi sürekli hata yaptım.

ComboBox1 = Evaluate("=UPPER(" & """" & ComboBox1 & """" & ")")

For Each isim In Sheets("ROOMDATA").Range("C6:C" & Sheets("ROOMDATA").Range("C65536").End(3).Row)
    If UCase(LCase(isim)) Like UCase(LCase(ComboBox1)) Then
     
   '--------
  ComboBox2 = isim.Offset(0, 1)
  TextBox1 = isim.Offset(0, 2)
  TextBox2 = isim.Offset(0, 3)
  
   TextBox3 = isim.Offset(0, 4)
   TextBox4 = isim.Offset(0, 5)
   TextBox5 = isim.Offset(0, 6)
   TextBox6 = isim.Offset(0, 7)
   TextBox7 = isim.Offset(0, 8)
   TextBox8 = isim.Offset(0, 9)
   TextBox9 = isim.Offset(0, 10)
   TextBox10 = isim.Offset(0, 11)
   TextBox11 = isim.Offset(0, 12)
   TextBox12 = isim.Offset(0, 13)
   TextBox13 = isim.Offset(0, 14)
   TextBox14 = isim.Offset(0, 15)
   TextBox15 = isim.Offset(0, 16)

Exit For
End If

Next


End Sub

 

[haliliyas]

for x=1 to SonKutuNo
    controls("TextBox" & x)=   isim.Offset(0, x+1)
next

kodu işe yarayabilir