[Yardım]  Excel'de toplu sorgulama

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Cevap: Excel'de toplu sorgulama

İleti#21)  feraz » 05 Tem 2018 23:55

Rica ederim.
İşe yaradığına sevindim.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#22)  melek53 » 05 Tem 2018 23:57

20. Mesajım ilk yaptığın uygulama içindi.
Senin gönderdiğin 19.mesajı daha deneyemedim. Dışardayım.
Kullanıcı avatarı
melek53
Siteye Alışmış
 
Adı Soyadı:melek yılmaz
Kayıt: 05 Ekm 2009 18:58
Konum: ankara
Meslek: muhasebe
Yaş: 29
İleti: 136
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Excel'de toplu sorgulama

İleti#23)  feraz » 06 Tem 2018 00:08

O uygulamayı başka bir üye üstad yapmış :)

Ben sadece bir tane ekledim dosya.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#24)  melek53 » 06 Tem 2018 11:04

Mesela 415968 aratalım, bu veri A2 ve A90 var karşılıklarıda 1 ve 89 var.
Ama sadece 1 gösteriyor 89 göstermiyor.
Kullanıcı avatarı
melek53
Siteye Alışmış
 
Adı Soyadı:melek yılmaz
Kayıt: 05 Ekm 2009 18:58
Konum: ankara
Meslek: muhasebe
Yaş: 29
İleti: 136
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

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

Cevap: Excel'de toplu sorgulama

İleti#25)  feraz » 06 Tem 2018 11:15

Ben benzersiz sanmıştım A sütununu.
Findnext ile yapılır basitçe.

Akşama yaparım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#26)  feraz » 06 Tem 2018 11:17

Excel içinde gösterirmisin sonucu.

Yani örnekleri excelde göster.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel'de toplu sorgulama

İleti#27)  melek53 » 06 Tem 2018 14:48

Açıklama ekledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
melek53
Siteye Alışmış
 
Adı Soyadı:melek yılmaz
Kayıt: 05 Ekm 2009 18:58
Konum: ankara
Meslek: muhasebe
Yaş: 29
İleti: 136
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Excel'de toplu sorgulama

İleti#28)  feraz » 06 Tem 2018 15:26

Dosyayı telefondan indirdim ve inceledim.
Şimdi olay tamamen anlaşıldı.
Renk haricinde çizgilerde gelsin mi?

Akşama yaparım,kolay iş.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#29)  feraz » 06 Tem 2018 21:35

2 adet dosya hazırladım.

Birisi olduğu gibi kopyalıyor,diğeri yazı rengine göre.

Kod: Tümünü seç
Private Sub CommandButton1_Click()

Dim ara As Range, bul, sayfaa As Worksheet, rng As Range, xyz As Integer, adres As String

Application.ScreenUpdating = False

With Sheets("Sayfa1")

    .Range("G1").Resize(Rows.Count, 10000).ClearContents
    .Range("G1").Resize(Rows.Count, 10000).Font.Color = vbBlack
   
For Each sayfaa In Worksheets
    For Each rng In .Range("F1:F" & .Cells(Rows.Count, "F").End(3).Row)
        Set ara = sayfaa.Range("A:A").Find(rng.Value, , , 1)
        If Not ara Is Nothing Then
            adres = ara.Address
            Do
                .Cells(rng.Row, .Cells(rng.Row, Columns.Count).End(xlToLeft).Column + 1) = ara.Offset(0, 1).Value
                .Cells(rng.Row, .Cells(rng.Row, Columns.Count).End(xlToLeft).Column).Font.Color = ara.Offset(0, 1).Font.Color
                Set ara = sayfaa.Range("A:A").FindNext(ara)
            Loop While Not ara Is Nothing And adres <> ara.Address
        End If
    Next
Next
   
End With
Application.ScreenUpdating = True

Set ara = Nothing: Set sayfaa = Nothing: Set rng = Nothing: adres = vbNullString

End Sub


Yukardaki kod sadece renk için.

Alttaki ise hepsiyle birlikte kopyalama.

Kod: Tümünü seç
Private Sub CommandButton1_Click()

Dim ara As Range, bul, sayfaa As Worksheet, rng As Range, xyz As Integer, adres As String

Application.ScreenUpdating = False

With Sheets("Sayfa1")

    .Range("G1").Resize(Rows.Count, 10000).Clear
   
For Each sayfaa In Worksheets
    For Each rng In .Range("F1:F" & .Cells(Rows.Count, "F").End(3).Row)
        Set ara = sayfaa.Range("A:A").Find(rng.Value, , , 1)
        If Not ara Is Nothing Then
            adres = ara.Address
            Do
               ara.Offset(0, 1).Copy .Cells(rng.Row, .Cells(rng.Row, Columns.Count).End(xlToLeft).Column + 1)
                Set ara = sayfaa.Range("A:A").FindNext(ara)
            Loop While Not ara Is Nothing And adres <> ara.Address
        End If
    Next
Next
   
End With
Application.ScreenUpdating = True

Set ara = Nothing: Set sayfaa = Nothing: Set rng = Nothing: adres = vbNullString

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#30)  melek53 » 07 Tem 2018 00:03

Şuan bakamıyorum, dışardayım.
Yarın ilkişim denemek olacak ; ellerine sağlık.
Kullanıcı avatarı
melek53
Siteye Alışmış
 
Adı Soyadı:melek yılmaz
Kayıt: 05 Ekm 2009 18:58
Konum: ankara
Meslek: muhasebe
Yaş: 29
İleti: 136
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Cevap: Excel'de toplu sorgulama

İleti#31)  melek53 » 09 Tem 2018 18:50

feraz yazdı:Bu kodu dener misiniz?
G sütununa ne gelecek onu anlamadım.

Kod: Tümünü seç
Private Sub CommandButton1_Click()

Dim ara As Range, bul, sayfaa As Worksheet, rng As Range, xyz As Integer

Application.ScreenUpdating = False

With Sheets("Sayfa1")

    .Range("G:G").ClearContents
   
    For Each sayfaa In Worksheets
        For Each rng In .Range("F1:F" & .Cells(Rows.Count, "F").End(3).Row)
            Set ara = sayfaa.Range("A:A").Find(rng.Value, , , 1)
            If Not ara Is Nothing Then
                rng.Offset(0, 1).Value = ara.Offset(0, 1).Value
            End If
        Next
    Next
End With
Application.ScreenUpdating = True

Set ara = Nothing: Set sayfaa = Nothing: Set rng = Nothing

End Sub


A sütunu gizli veri girişi yapılamıyor.
Kullanıcı avatarı
melek53
Siteye Alışmış
 
Adı Soyadı:melek yılmaz
Kayıt: 05 Ekm 2009 18:58
Konum: ankara
Meslek: muhasebe
Yaş: 29
İleti: 136
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Excel'de toplu sorgulama

İleti#32)  feraz » 09 Tem 2018 18:54

Dosyayı eklermisiniz A sütunuda nerden çıktı şimdi :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#33)  feraz » 09 Tem 2018 19:35

29.cu mesajdakileri deneyin.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Excel'de toplu sorgulama

İleti#34)  melek53 » 10 Tem 2018 10:52

feraz yazdı:29.cu mesajdakileri deneyin.

Zaten onu deniyorum.
Sayfa 1 deki A sütunu gözükmüyor oraya veri girmem gerekiyor.
Kullanıcı avatarı
melek53
Siteye Alışmış
 
Adı Soyadı:melek yılmaz
Kayıt: 05 Ekm 2009 18:58
Konum: ankara
Meslek: muhasebe
Yaş: 29
İleti: 136
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Excel'de toplu sorgulama

İleti#35)  feraz » 10 Tem 2018 11:11

Sütunu seçip sağ tuşa basıp göstere tıklayın.

Yada tüm sütun seçme yerinden seçin.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#36)  melek53 » 10 Tem 2018 17:45

Elinize sağlık.
Ama bazı yerleri istediğim gibi olmamış.
Aranacak veriyi A sütunundan değilde B sütunundan yapacak.Sonuçlarda A sütunundaki veriler olacak.
Sizin yaptığınızın tam tersi olacak.
Birde arama süresi çok uzun sürüyor.
Kullanıcı avatarı
melek53
Siteye Alışmış
 
Adı Soyadı:melek yılmaz
Kayıt: 05 Ekm 2009 18:58
Konum: ankara
Meslek: muhasebe
Yaş: 29
İleti: 136
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Excel'de toplu sorgulama

İleti#37)  feraz » 10 Tem 2018 18:12

Dediğiniz gibi yaptım.
Eklediğiniz dosyadaki açıklama resimde.Ona göre yapmıştım.
Kodlar bende çok hızlı.Gereksiz döngüsüz yapmıştım kodu.

Kod: Tümünü seç
Private Sub CommandButton1_Click()

Dim ara As Range, bul, sayfaa As Worksheet, rng As Range, xyz As Integer, adres As String

Application.ScreenUpdating = False

With Sheets("Sayfa1")

    .Range("G1").Resize(Rows.Count, 10000).ClearContents
    .Range("G1").Resize(Rows.Count, 10000).Font.Color = vbBlack
   
For Each sayfaa In Worksheets
    For Each rng In .Range("F1:F" & .Cells(Rows.Count, "F").End(3).Row)
        Set ara = sayfaa.Range("B:B").Find(rng.Value, , , 1)
        If Not ara Is Nothing Then
            adres = ara.Address
            Do
                .Cells(rng.Row, .Cells(rng.Row, Columns.Count).End(xlToLeft).Column + 1) = ara.Offset(0, -1).Value
                .Cells(rng.Row, .Cells(rng.Row, Columns.Count).End(xlToLeft).Column).Font.Color = ara.Offset(0, -1).Font.Color
                Set ara = sayfaa.Range("B:B").FindNext(ara)
            Loop While Not ara Is Nothing And adres <> ara.Address
        End If
    Next
Next
   
End With
Application.ScreenUpdating = True

Set ara = Nothing: Set sayfaa = Nothing: Set rng = Nothing: adres = vbNullString

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#38)  feraz » 10 Tem 2018 19:10

Şimdi Excelde sayfa çoksa bundan dolayıda yavaşlama olabilir.

Belirli sayfalarda aranacaksa kod ona göre ayarlanır.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#39)  feraz » 10 Tem 2018 19:27

arr = Array("Sayfa1", "Sayfa2", "xxx") buraya aranacak sayfa adlarını yazın.Sayfa adı yoksa hata verir.
Tabii bu kod beilirli sayfalarda arama yapmak için.

Kod: Tümünü seç
Private Sub CommandButton1_Click()

Dim ara As Range, rng As Range, ii As Integer, adres As String
Dim arr

arr = Array("Sayfa1", "Sayfa2", "xxx")

Application.ScreenUpdating = False

With Sheets("Sayfa1")
    .Range("G1").Resize(Rows.Count, 10000).ClearContents
    .Range("G1").Resize(Rows.Count, 10000).Font.Color = vbBlack
   
    For ii = LBound(arr) To UBound(arr)
     For Each rng In .Range("F1:F" & .Cells(Rows.Count, "F").End(3).Row)
        Set ara = Sheets(arr(ii)).Range("B:B").Find(rng.Value, , , 1)
        If Not ara Is Nothing Then
            adres = ara.Address
            Do
                .Cells(rng.Row, .Cells(rng.Row, Columns.Count).End(xlToLeft).Column + 1) = ara.Offset(0, -1).Value
                .Cells(rng.Row, .Cells(rng.Row, Columns.Count).End(xlToLeft).Column).Font.Color = ara.Offset(0, -1).Font.Color
                Set ara = Sheets(arr(ii)).Range("B:B").FindNext(ara)
            Loop While Not ara Is Nothing And adres <> ara.Address
        End If
     Next
    Next
End With
Application.ScreenUpdating = True

Set ara = Nothing: Set rng = Nothing: adres = vbNullString: Erase arr

End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#40)  melek53 » 11 Tem 2018 18:57

İçerik olarak ihtiyaçlarımı karşılıyor
Ama sorgulama süresi çok uzun(45-60 sn).
Buda benim işime engel oluyor.
Kullanıcı avatarı
melek53
Siteye Alışmış
 
Adı Soyadı:melek yılmaz
Kayıt: 05 Ekm 2009 18:58
Konum: ankara
Meslek: muhasebe
Yaş: 29
İleti: 136
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

ÖncekiSonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 1 misafir

Bumerang - Yazarkafe