Textbox'a Parçal ile veri alma

[DeliBalta58]

Combobox'a veri aldırıp seçim yaptıktan sonra ,
seçime göre Texbox1'e sayfa3 C sütunundaki veriyi getiriyorum

Dim Aranan As String
Dim Satir As Integer
Aranan = ComboBox52.Value
If Aranan = "" Then Exit Sub
Satir = Worksheets("Sayfa3").Range("b:b").Cells.Find(Aranan, Worksheets("Sayfa3").Range("B65000"), xlFormulas, xlPart, xlByRows, xlNext, False, False).Row
TextBox1.Text = Worksheets("Sayfa3").Range("C" & Satir) 'Adı

Yapmak istediğim ise ;

TextBox1= hücredeki 1. harf
TextBox2= hücredeki 2. harf
TextBox3= hücredeki 3. harf
TextBox4= hücredeki 4. harf
TextBox5= hücredeki 5. harf
....

Maksimum 17 karakter olacak

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

for a=1 to 17
controls("textbox" & a)=mid(Worksheets("Sayfa3").Range("C" & Satir),a,1)
next

 

[DeliBalta58]

Levent hocam teşekkürler