[Yardım]  Arama

Excel hakkındaki soru ya da paylaşımlarınıza kategori bulamadıysanız bu alana yazabilirsiniz.

Arama

İleti#1)  meva » 11 Oca 2019 16:52

Farklı çalışma kitaplarından sorgulama nasıl yaparız.
Mesela 4 farklı çalışma kitabı var. Örneğin 125 sayısını tek seferde tüm çalışma kitaplarından nasıl sorgularız
Kullanıcı avatarı
meva
 
Kayıt: 31 Ekm 2018 13:09
Meslek: SERBEST
Yaş: 35
İleti: 5
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Arama

İleti#2)  meva » 13 Oca 2019 09:32

Yardımlarınızı bekliyorum.Lütfen.
Kullanıcı avatarı
meva
 
Kayıt: 31 Ekm 2018 13:09
Meslek: SERBEST
Yaş: 35
İleti: 5
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Arama

İleti#3)  askmadige34 » 13 Oca 2019 19:18

Örnek dosya eklerseniz çözümü daha çabuk bulabilirsiniz.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 38
İleti: 1690
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Arama

İleti#4)  meva » 14 Oca 2019 11:00

Aşağıdaki ekde 3 tane excel dosyası var.
Arayacağız veriyi bu 3 excel kitabının her yerinde(kitabın içinde sayfalar varsada) arayacak.
Sonuçları başka bir excel kitabında a1 den başlayarak alt alta sıralayacak
örneğin 12548 sayısını bu kitaplarda aratacağız.
Sonucu başka bir excel sayfasında bulunan verinin bulunduğu sütundaki tüm verileri sonuca yazacak
kitap 1 12548 doğrama sözler 25869 dünden
kitap 2 12548 doğrama sözler 25869 dünden
kitap 3 12548 doğrama sözler 25869 dünden

B uşekilde sonuçları verecek
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
meva
 
Kayıt: 31 Ekm 2018 13:09
Meslek: SERBEST
Yaş: 35
İleti: 5
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Arama

İleti#5)  askmadige34 » 14 Oca 2019 22:18

Liste adında bir sayfanız ve Aranan adında bir sayfanız olsun. Aranacak kelime Aranan sayfası A1 hücresinde olsun.
Liste sayfası A2 den itibaren Aranan kelimeyi, B2 den itibaren bulunan çalışma kitabı adı, C2 den itibaren bulunan sayfa ismi ve D2 den itibaren de bulunan adresi yazıyor.
İlk satıra başlık yazarsınız diye düşündüm.
Aşağıdaki kodları bir deneyin.
Kod: Tümünü seç
Sub ASKM()
Dim directory As String, fileName As String
Dim sheet As Worksheet, i As Integer, j As Integer
Dim FirstAddress As String, Rslt As String

Application.ScreenUpdating = False
aranan = Sheets("Aranan").Range("A1").Value
Sheets("Liste").Select
Range("A2:D65536").ClearContents
i = 1
j = 1
directory = ThisWorkbook.Path & Application.PathSeparator
fileName = Dir(directory & "*.xl??")
Do While fileName <> "" And fileName <> ThisWorkbook.Name
Workbooks.Open (directory & fileName)

For Each sheet In Workbooks(fileName).Worksheets
    With sheet.UsedRange
    Set Bul = .Cells.Find(What:=aranan)
        If Not Bul Is Nothing Then
            FirstAddress = Bul.Address
            Do
                Rslt = Rslt & Bul.Address & ","
                i = i + 1
                Workbooks("Dizinde Arama.xlsm").Worksheets("Liste").Cells(i, 1).Value = aranan
                Workbooks("Dizinde Arama.xlsm").Worksheets("Liste").Cells(i, 2).Value = fileName
                Workbooks("Dizinde Arama.xlsm").Worksheets("Liste").Cells(i, 3).Value = sheet.Name
                Workbooks("Dizinde Arama.xlsm").Worksheets("Liste").Cells(i, 4).Value = Bul.Address
                Set Bul = .FindNext(Bul)
           Loop While Not Bul Is Nothing And Bul.Address <> FirstAddress
        End If
    j = j + 1
    End With
    Set Bul = Nothing
   
Next sheet

Workbooks(fileName).Close
fileName = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "Arama tamamlandı...", vbInformation, "ASKM"

End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 38
İleti: 1690
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Arama

İleti#6)  meva » 15 Oca 2019 18:22

Teşekkr ederim.
Ben kodlara bakıyorum kodlar bana
Nasıl kullanacağımı bilmiyorum malesef :(
Kullanıcı avatarı
meva
 
Kayıt: 31 Ekm 2018 13:09
Meslek: SERBEST
Yaş: 35
İleti: 5
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Diğer Excel İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot] ve 0 misafir

Bumerang - Yazarkafe