Ağda bulunan bir excelde arama yapma

TRuNsouL

Altın Üye
Katılım
10 Ağustos 2018
Mesajlar
53
Excel Vers. ve Dili
Excel 2016 TR
Altın Üyelik Bitiş Tarihi
05-03-2025
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.

Kod:
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
 
Son düzenleme:

TRuNsouL

Altın Üye
Katılım
10 Ağustos 2018
Mesajlar
53
Excel Vers. ve Dili
Excel 2016 TR
Altın Üyelik Bitiş Tarihi
05-03-2025
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.
 

Ekli dosyalar

TRuNsouL

Altın Üye
Katılım
10 Ağustos 2018
Mesajlar
53
Excel Vers. ve Dili
Excel 2016 TR
Altın Üyelik Bitiş Tarihi
05-03-2025

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,633
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
Merhaba,

Örnek olacak 2 dosya ekleyebilir misiniz.
 

TRuNsouL

Altın Üye
Katılım
10 Ağustos 2018
Mesajlar
53
Excel Vers. ve Dili
Excel 2016 TR
Altın Üyelik Bitiş Tarihi
05-03-2025
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.
 

Ekli dosyalar

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,633
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
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

Altın Üye
Katılım
10 Ağustos 2018
Mesajlar
53
Excel Vers. ve Dili
Excel 2016 TR
Altın Üyelik Bitiş Tarihi
05-03-2025
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

Altın Üye
Katılım
10 Ağustos 2018
Mesajlar
53
Excel Vers. ve Dili
Excel 2016 TR
Altın Üyelik Bitiş Tarihi
05-03-2025
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.
 
Üst