Listbox`da secili hucreye bilgi aktarmasi.

[ozansimsek06]

Merhabalar.

Ev yerlestirme sekmesinde 2 tane listbox vardir. Bu listboxlarin ilkinde personel bilgileri var. Bunlarda secili olani textboxlara getiriyor.

Burdaki bilgileri 2. listboxda sectigim eve yazdirmasini istiyorum. Bunun hakkinda yardimci olabilirmisiniz.

Saygilarimla

Ozan SIMSEK

 

[ozansimsek06]

Yardim edebilecek var mi ??

 

[ozansimsek06]

++

 

[ozansimsek06]

++

 

[Korhan Ayhan]

Deneyiniz.

Private Sub btnkaydet1_Click()
    Dim S1 As Worksheet, Bul As Range
    
    Set S1 = Sheets("EvYerlestirme")
    
    If Me.lstpersonel.ListIndex < 0 Then
        MsgBox "Lütfen personel seçimi yapınız!", vbCritical
        Exit Sub
    End If
    
    If Me.lstevlistesi.ListIndex < 0 Then
        MsgBox "Lütfen ev seçimi yapınız!", vbCritical
        Exit Sub
    End If

    Set Bul = S1.Range("A:A").Find(Me.lstevlistesi.List(Me.lstevlistesi.ListIndex, 0), , , xlWhole)
    
    With S1
        .Cells(Bul.Row, "J") = Me.lstpersonel.List(Me.lstpersonel.ListIndex, 3)
        .Cells(Bul.Row, "K") = Me.lstpersonel.List(Me.lstpersonel.ListIndex, 5)
        .Cells(Bul.Row, "L") = Me.lstpersonel.List(Me.lstpersonel.ListIndex, 0)
        .Cells(Bul.Row, "M") = Me.lstpersonel.List(Me.lstpersonel.ListIndex, 4)
        .Cells(Bul.Row, "N") = Me.lstpersonel.List(Me.lstpersonel.ListIndex, 7)
        .Cells(Bul.Row, "O") = Me.lstpersonel.List(Me.lstpersonel.ListIndex, 2)
    End With

    Set Bul = Nothing
    Set S1 = Nothing
    
    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

 

[ozansimsek06]

Hocam ellerinize saglik cok tesekkur ederim.