LİSTBOX1 de seçtiğim isimi kopyalıyıp sayfa 2 ye t10-t11-t12-t13 a yazdırmak

[antir]

arkadaşlar şimdi ben bi prg yapmaya çalışıyorum listboxtaki istediğim isme tıklayınca o personelin bilgileri textboxlara aktarılıyor ben bu bilgilerin mesela tc kimlik ad soyadı listboxdan isimi seçtiğimde sayfa 2 ye t10-t11-t12-t13 olarak atanmasını ama bilgileri textboxdan almıyacak veri tabanından yani listboxun aldığı yerden alıcak i mümkünmü ?

 

[ftekin]

ListView'de dediğinizi şifreli bir mdb dosyasından şu şekilde yapıyorum.Listbox için uyarlarsınız artık.


Option Explicit
Dim conn As ADODB.Connection
Dim RS As ADODB.Recordset
Dim Sql As String

Private Sub ListView1_DblClick()
If ListView1.ListItems.Count > 0 Then

Set conn = New ADODB.Connection
Set RS = New ADODB.Recordset
conn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" _
& "Dbq=" & "X:\Veri Tabanı\Kutuk.mdb;" _
& "Uid=;" _
& "Pwd=abc;"
conn.Open
Sql = "SELECT * FROM PERSONEL Where Sicil='" & ListView1.SelectedItem.ListSubItems(1).Text & "'"
RS.Open Sql, conn, 1, 3

If RS.RecordCount > 0 Then

If RS("Adi").Value <> "" Then Workbooks("Rapor.xls").Sheets(2).Cells(1, 1) = RS("Sicil")
If RS("Adi").Value <> "" Then Workbooks("Rapor.xls").Sheets(2).Cells(1, 2) = RS("Adi")
If RS("Unvan").Value <> "" Then Workbooks("Rapor.xls").Sheets(2).Cells(1, 3) = RS("Unvan")

RS.Close
conn.Close
Set RS = Nothing
Set conn = Nothing
Else
RS.Close
conn.Close
Set RS = Nothing
Set conn = Nothing

End If
End If

End Sub

 

[Orion1]

O zaman o sütunlarıda listboxa veri alırken alın.Ve listbox'ın click olayında istediğiniz yere aktarın.Clikleyin.
Örnek İlk sütunu aktarır.Diğerlerini siz yapın.

Sheets("Sayfa1").Range("A1").value = Litbox1.column(0)

 

[antir]

çok teşekkürler