listbox Dblclik hatası

[kemal turan]

merhaba,
Aşağıda listbox1 olan çift tıklama ile alınan bilgilerde sıkıntı yok.
Aynı kodu Listbox4 e uyarladığımda açılan userformda textboxlar ilk tıklamada boş, ikinci tıklamada bir önceki tıklanan satırı üçüncü tıklamada ise doğru bilgiyi getiriyor.
Yardımcı olabilirseniz sevinirim.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.ScreenUpdating = False
TAHSILYAP.Show
TAHSILYAP.TextBox1 = Sheets("SORGU").TextBox1.Value
TAHSILYAP.TextBox2 = ListBox1.List(ListBox1.ListIndex, 3)
TAHSILYAP.TextBox3 = ListBox1.List(ListBox1.ListIndex, 4)
TAHSILYAP.TextBox4 = ListBox1.List(ListBox1.ListIndex, 8)
TAHSILYAP.TextBox6 = ListBox1.List(ListBox1.ListIndex, 0)
Application.ScreenUpdating = True
End Sub

Private Sub ListBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.ScreenUpdating = False

TESLIMAT.Show
TESLIMAT.TextBox1 = ListBox4.List(ListBox4.ListIndex, 0)
TESLIMAT.TextBox2 = ListBox4.List(ListBox4.ListIndex, 4)
TESLIMAT.TextBox4 = ListBox4.List(ListBox4.ListIndex, 5)
TESLIMAT.TextBox3 = ListBox4.List(ListBox4.ListIndex, 6)


Application.ScreenUpdating = True

End Sub

 

[kemal turan]

Merhaba,
kod aşağıdaki şekilde userformun açılış olayına bağlanınca sorun çözüldü.
Teşekkür ederim.

Private Sub UserForm_Activate()
TESLIMAT.TextBox1.Value = Sheets("SORGU").ListBox4.List(Sheets("SORGU").ListBox4.ListIndex, 0)
TESLIMAT.TextBox2.Value = Sheets("SORGU").ListBox4.List(Sheets("SORGU").ListBox4.ListIndex, 4)
TESLIMAT.TextBox3.Value = Sheets("SORGU").ListBox4.List(Sheets("SORGU").ListBox4.ListIndex, 6)
TESLIMAT.TextBox4.Value = Sheets("SORGU").ListBox4.List(Sheets("SORGU").ListBox4.ListIndex, 5)

End Sub