Soru listbox düşeyara

[sirkülasyon]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
Sheets("Personel").Select
TextBox1.Text = ListBox1.Value
    If ListBox1.Value = "" Then
     TextBox1.Text = "Bilgi bulunamadı."
    Else
      TextBox1.Text = WorksheetFunction.VLookup(ListBox1, Sheets("Personel").Range("B:N"), 1, 0)
    End If
End Sub

Yapmak İstediğim:
Userform1 de yer alan Listboxtaki isme çift tıklayınca Çift tıkladığım ismi Userform2 de yer alan textbox1 e yazdırmak
aynı zamanda da

WorksheetFunction.VLookup(ListBox1, Sheets("Personel").Range("B:N"), 1, 0)

yukarıda ki kod ile de seçilen isme karşılık diğer bilgileri getirmek.

HATA
Userform2 de ki textbox1 e değil Userform1 de ki textbox1 e bilgi geliyor

 

[muratboz06]

Userform1 aktif olduğu için TextBox1 değişkeni userform1 deki textbox1 oluyor. Dolayısıyla Userform1 i kapatıp userform2 yi açınca Textbox1 artık userform2 içindeki textbox1 e bağlanmış olacak.
Aşağıda küçük bir örnek paylaştım, inşallah işinizi görürür. Daha profesyonel çözümler illa ki vardır.

Kitap1.xlsm dosyasını indir - download

Kitap1.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[sirkülasyon]

sağ ol

 

[Faulkner]

dosya açılmıyor