listbox click problemi

[Barons]

merhaba
Listbox1 üzerini tıkladığımda "data" sayfasındaki A2:A100 arasındaki verileri textbox11 kutusuna aldırmak istiyorum.userformu data sayfasında açtığımda sorun yok ,Kod bunu yapıyor ancak userform başka bir sayfada açılıyor dolayısı ile listbox tıklanınca o sayfadaki a2:a100 değerlerini alıyor.Bunu nasıl düzeltirim?

Kodlar aşağıdadır.

Private Sub ListBox1_Click()
i = ListBox1.ListIndex + 2
TextBox11.Text = Cells(i, 1).Value
End Sub

Private Sub UserForm_Initialize()

ListBox1.RowSource = "Data!A2:A" & Sheets("Data").Range("A65536").End(xlUp).Row
ListBox1.ColumnCount = 1
ListBox1.ColumnWidths = "100"

End Sub

teşekkürler.

 

[Orion1]

Private Sub ListBox1_Click()
i = ListBox1.ListIndex + 2
TextBox11.Text = [B][COLOR="Red"]sheets("Data").[/COLOR][/B]Cells(i, 1).Value
End Sub

 

[metinozlu]

User formu data sayfasında açın yada user formu açtığınızda data sayfası active olsun.