listindex satır sıkıntısı

[Rainbows]

merhaba arkadaşlar,

yapmak istedigim bir sayfadaki girilmiş bilgileri listbox 'a cekmek, listboxda da secilen bilgileri userform da gerekli yerlere getirmek. listbox a cektigim data fotograftaki gibi,


A,B,C,D,E,F,G satırlarını userform1 de istedigim combobox ve textboxlara getirebiliyorum.(kırmızı ile işaretledigim kod ile)

h kolonunda da bölgeler altalta geliyor en fazla 21 tane olabiliyor. giren kişiye göre de degişiyor bu sayı. böyle olunca benim renklendirmedigim kodda verdigim listindex sırası degişebiliyor. o zamanda,örnegin textbox11'e adana bölgesinin datası gelmesi gerekirken atıyorum ankara datası geliyor. listindex i nasıl ayarlayabilirim 21 satırı döngüye sokarak mı yapmak gerek bir türlü işin icinden cıkamıyorum.

UserForm1.TextBox11.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 5)

mesela burada

[COLOR="Red"]UserForm1.ComboBox2.Text = Sheets("ANA TABLO").Range("a" & ListBox1.ListIndex + 4)
UserForm1.ComboBox4.Text = Sheets("ANA TABLO").Range("b" & ListBox1.ListIndex + 4)
UserForm1.ComboBox3.Value = Sheets("ANA TABLO").Range("C" & ListBox1.ListIndex + 4)
UserForm1.TextBox2.Text = Sheets("ANA TABLO").Range("D" & ListBox1.ListIndex + 4)
UserForm1.ComboBox1.Text = Sheets("ANA TABLO").Range("E" & ListBox1.ListIndex + 4)
UserForm1.ComboBox5.Text = Sheets("ANA TABLO").Range("G" & ListBox1.ListIndex + 4)
UserForm1.TextBox4.Text = Sheets("ANA TABLO").Range("F" & ListBox1.ListIndex + 4)
[/COLOR]UserForm1.TextBox11.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 5)
UserForm1.TextBox12.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 6)
UserForm1.TextBox13.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 7)
UserForm1.TextBox15.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 8)
UserForm1.TextBox16.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 9)
UserForm1.TextBox14.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 10)
UserForm1.TextBox17.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 11)
UserForm1.TextBox18.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 12)
UserForm1.TextBox19.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 13)
UserForm1.TextBox20.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 14)
UserForm1.TextBox21.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 15)
UserForm1.TextBox22.Text = Sheets("ANA TABLO").Range("I" & ListBox1.ListIndex + 16)