Listbox'tan listbox'a veri çağırmak

[M.ACAR]

Forum'dan aldığım işime değiştirildiğinde yarayacak olan ekli dosyadaki
soru 1 : Listbox 2'den çıkış tarihi olmayanları listbox1'e aktarmak sonra listbox1'de personelden çıkış yapanları listbox2'ye geri göndermek istiyorum?

Soru 2 : Takibi hem listbox1'den hemde listbox2'den yapılabilirmi ?

Yardım ederseniz sevinirim.

 

[M.ACAR]

forum'dan aldığım işime değiştirildiğinde yarayacak olan ekli dosyadaki
soru 1 : Listbox 2'den çıkış tarihi olmayanları listbox1'e aktarmak sonra listbox1'de personelden çıkış yapanları listbox2'ye geri göndermek istiyorum?

Soru 2 : Takibi hem listbox1'den hemde listbox2'den yapılabilirmi ?

Yardım ederseniz sevinirim.

öğlen yazmış olduğum soru hakkında bilgisi olan hocalarımdan yardım bekliyorum

 

[hamitcan]

Sorunuzu anladığım kadarıyla birşeyler yaptım.

Dim cikanlar(0 To 20) As String
Dim calisanlar(0 To 20) As String
Private Sub CommandButton5_Click()
    ListBox1.List = calisanlar
    ListBox2.List = cikanlar
End Sub

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

Private Sub UserForm_Initialize()
    For i = 4 To [C65536].End(xlUp).Row
    If Cells(i, "g") <> "" Then k = k + 1: cikanlar(k - 1) = Cells(i, "b").Value
    If Cells(i, "g") = "" Then Z = Z + 1: calisanlar(Z - 1) = Cells(i, "b").Value
    ListBox2.AddItem Cells(i, 2)
    Next
End Sub

 

[M.ACAR]

Hocam emeğiniz için teşekkür ederim.