Kapalı dosyadan listwieve veri çekme

[hsayar]

Private Sub Worksheet_Change(ByVal Target As Range) olayında

A Sütununa veri girildiğinde

1) userform1 nesnesini çağıracak
2) girilen veriyi kapalı dosyada arayan
3) eşleşen verileri listwiev de listeleyecek
4) listwievde çift tıklananan satırın ADI, SOYADI, ADRESI başlıklarını
5) çağrıldığı sayfadaki B, C, D sütunlarına kopyalayacak kodlar nasıl olmalıdır.


örneğin
***********************************
kodun olduğu çalışma kitabı
A5 = 999 99 99
***********************************
vtTel.xls
ADI, SOYADI, ADRESI, TEL NO
AHMET, GÜNDOĞDU, YENİCE , 999 99 99
MEHMET, KARAMANLAR, ESKIKOY , 999 99 82
MEHMET, GÜNDOĞDU, YENİCE , 999 99 99
***********************************
bu durumda listwiev görüntüsü
ADI, SOYADI, ADRESI, TEL NO
AHMET, GÜNDOĞDU, YENİCE , 999 99 99
MEHMET, GÜNDOĞDU, YENİCE , 999 99 99
***********************************
MEHMET, GÜNDOĞDU, YENİCE , 999 99 99
***********************************
satırına çift tıklayınca

b5 = MEHMET,
c5 = GÜNDOĞDU
d5= YENİCE

olacak ve kod bitecek.

 

[iaydin20]

Sn vedatelçi'nin bir uygulamasının kodları belki yardımcı olur saygılar

 

[hsayar]

teşekkürler hocam aktif sayfadan veri getyirmekten bahsetmiyorum kapalı dosyadan veri çekmekten bahsediyorum

 

[Zeki Gürsoy]

Sayfa modulunde sadece formu çağırsın..

Private Sub ListView1_DblClick()
 
    With ListView1.SelectedItem
        [b5] = .Text
        [c5] = .SubItems(1)
        [d5] = .SubItems(2)
    End With
 
End Sub
 
Private Sub UserForm_Initialize()
Dim ADOConn As Object, ADOrs As Object, Litem As ListItem
 
Set ADOConn = CreateObject("adodb.connection")
 
ADOConn.Open _
"Driver={microsoft excel driver (*.xls)};dbq=" & _
    ThisWorkbook.Path & "\vtTel.xls"
 
Set ADOrs = ADOConn.Execute( _
"Select * from [SayfaAdi$] where [TEL NO] = '" & [a5] & "'")
 
    While Not ADOrs.EOF
 
        Set Litem = ListView1.ListItems.Add(, , ADOrs(0))
 
         With Litem
             .SubItems(1) = ADOrs(1)
             .SubItems(2) = ADOrs(2)
             .SubItems(3) = ADOrs(3)
         End With
 
        ADOrs.MoveNext
    Wend
 
ADOrs.Close
ADOConn.Close
 
Set ADOrs = Nothing
Set ADOConn = Nothing
Set Litem = Nothing
End Sub

 

[hsayar]

teşekkür ederim hocam
a5 için verdiğim bir örenkti
a10 değişince veriler 10. satıra
a15 değişince veriler 15. satıra yazılacak
bu nasıl olmalı

ayrıca aşağıdaki hatayı veriyor hocam
[micosoft] [odbc excel sürücüsü] çok az parametre. 1 bekleniyor

örnek dosya ekledim.

 

[hsayar]

http://www.excel.web.tr/showpost.php?p=239144&postcount=5
güncel

 

[hsayar]

güncel arkadaşalar lütfen yardımcı olun