(23/03/2022, 13:31)berduş yazdı: 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

Üstad Allah razı olsun çok teşekkürler. Sayenizde çözemediğim büyük bir sorun çözülmüş oldu ve yeni birşey öğrenmiş oldum.


2. sorunum aslında arama butonunu ile ilgiliydi ara butonunu kullanamadım. Butonu ekledim ama kodlayamadım.