ilk sorunuz için aşağıdaki çalışmayı dener misiniz?

---

yapılanlar:
1 - MdlSabitler adında değişkenleri saklayan bir modül eklendi
2 - MdlSabitler modülünde Public xDgr As String değişkeni tanımlandı
3 - UserForm1 formundaki ListBox1 tıklama olayının kodu

Private Sub ListBox1_Click()

xDgr = ListBox1.Column(1) & "|" & ListBox1.Column(2) & "|" & ListBox1.Column(4) & "|" & ListBox1.Column(11)

PersonelKartı.Show

End Sub

4 - UserForm1 formunun başlangıç olayı

Private Sub UserForm_Initialize()

xDgr = ""

listeye_al

End Sub

5 - PersonelKartı formunun başlangıç olayı

Private Sub UserForm_Initialize()

If Len(xDgr & "") > 0 Then

b = Split(xDgr, "|")

    With Me

         .TextBox1 = b(0) '-Ad       METE          METE

         .TextBox2 = b(1)

         .ComboBox1 = b(2)

         .ComboBox2 = b(3)

    End With

End If

xDgr = ""

End Sub

6 - PersonelKartı formunun kapanma olayı

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

xDgr = ""

End Sub