user form ile ilgili yardım

[ferhat73]

merhabalar
ekteki dosyada isim ve soyad ları userform1 de text box a atıp

daha sonra text box içindeki isim ve soyadı seçtiğimizde

isim
soyad
kısım
maaş
giriş

kısımlarına ait text box lara bilgiler nasıl aktarılır.

yardımlarınızı rica ediyorum


iyi akşamlar

 

[janveljan]

Textbox içinden seçim yapmak uygun değil, o yüzden o textbox yerine bir listbox koydum ve bu listboxa additem metodu ile değerleri aldırdım. Dosya ekte inceleyin.

Private Sub ListBox1_Click()
If ListBox1.ListIndex <> -1 Then
For i = 1 To 5
    Controls("Textbox" & i) = Cells(ListBox1.ListIndex + 4, i + 1)
Next
End If
End Sub

Private Sub UserForm_Initialize()
For i = 4 To [C65536].End(xlUp).Row
ListBox1.AddItem Cells(i, 2) & " " & Cells(i, 3)
Next
End Sub

 

[ferhat73]

yardımlarınız için çok teşekkürler.

iyi geceler