Ağda bulunan bir excelde arama yapma

[TRuNsouL]

Merhaba arkadaşlar birden çok veriyi userforma aktarabilmek forumdan edindiğim bilgiler dahilinde bir kod oluşturdum. Oluşturduğum kodda aslında ağda olan bir excel dosyasının bilgilerini "sayfa2" ye aktararak istediğim şekilde arama yapıp verileri getirebiliyorum fakat ağda ki excel dosyasında arama yapmayı bir türlü beceremedim.
Yardımcı olursanız çok sevinirim.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Bul As Range
Dim str As String
Dim Sat As Long
str = TextBox1.Text
Application.ScreenUpdating = False
Sat = Cells(Rows.Count, "a").End(3).Row
    If Sat <= 1 Then Sat = 2
    Worksheets("Sayfa1").Range("A2:B20" & Sat).ClearContents
     Sat = 1
     ListBox1.Clear
        With Worksheets("Sayfa2").Range("I:I")
        Set Bul = .Find(str, LookIn:=xlValues, LookAt:=xlWhole)
        If Not Bul Is Nothing Then
        Label3.Caption = Bul.Offset(0, 1).Value
        Label4.Caption = Bul.Offset(0, 2).Value
        Label5.Caption = Bul.Offset(0, -2).Value
        Label8.Caption = Bul.Offset(0, -1).Value
        Label6.Caption = Bul.Offset(0, -3).Value
            Adr = Bul.Address
            Do
                Sat = Sat + 1
                Cells(Sat, "A") = Worksheets("Sayfa2").Cells(Bul.Row, "A")
                Cells(Sat, "B") = Worksheets("Sayfa2").Cells(Bul.Row, "N")
                Set Bul = .findnext(Bul)
            Loop While Not Bul Is Nothing And Bul.Address <> Adr
        Else
        MsgBox "Bu sicile ait kayıt bulunmamaktadır."
        End If
        End With
        Label20.Caption = Sat - 1 & " ADET kayıt AKTARILMIŞTIR"
        Application.ScreenUpdating = True
Set Bul = Nothing
Call aktar
End Sub

Private Sub aktar()
    With ListBox1
        .ColumnCount = 2
        For Sat = 1 To 20
            .AddItem
            .List(.ListCount - 1, 0) = Sheets("Sayfa1").Cells(Sat, 1)
            .List(.ListCount - 1, 1) = Sheets("Sayfa1").Cells(Sat, 2)
        Next
    End With
End Sub

 

[TRuNsouL]

Arkadaşlar örnek bir dosya da ekledim yardımcı olursanız çok sevinirim. Amacım normalde "Sayfa2" de olan bilgilerin aynısını ağda bulunan excelden çekebilmek.

 

[TRuNsouL]

Güncel.

 

[Erdem Akdemir]

Merhaba,

Örnek olacak 2 dosya ekleyebilir misiniz.

 

[TRuNsouL]

Hocam merhaba, sorgulama.xlsx kendi local bilgisayarımda sorgu yaptırdığım excel. sorgu kayıt.xlsx ise ağda bulunan örnek excel dosyam, ağda ki isim ise şu "\\Ab60004-1111\TAŞRA\SORGU\sorgu kayıt.xlsx"
Teşekkür ederim.

 

[Erdem Akdemir]

Cevap vermek istiyorum ama ne istediğinizi anlamadım. Eklediğiniz örnek dosyalarda hangi verileri istiyorsunuz.
Olması gerekenleri gösteren örnek dosya ekleyebilir misiniz.

 

[TRuNsouL]

Hocam şimdi bu sorgulama.xlsm benim localimde çalışan bir sorgu kodu. sorgu kayıt.xlsx de ağda bulunan veri eklediğimiz bir kayıt defteri. Şimdi ben ağdaki bilgileri çekmeyi bilmediğim için ağdaki kayıtları sayfa2 ye taşıdım sorgu ekranını bu şekilde düzenledim ve çalışıyor gayet güzel. Şimdi yapmak istediğim verileri sayfa2 den değil de direkt olarak ağdaki sorgu kayıt.xlsx den çekmek. Bunu çözemedim bir türlü.

 

[TRuNsouL]

Arkadaşlar kısacası ağda bulunan bir excel dosyasında arama ve veri getirme işlemi yapmak istiyorum. Başlığın en başında eklediğim kod aynı excel içerisinde çalışıyor. Fakat ağdaki excelde yapamadım bu olayı. İstediğim sadece ağda bulunan bir excel dosyasında arama yapabilmek.