[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#41)  feraz » 11 Tem 2018 19:34

Renksiz olsun derseniz kısa yola bakarız.

Yada Ado ile bir denerim sonra.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Excel'de toplu sorgulama

İleti#42)  melek53 » 12 Tem 2018 10:18

feraz yazdı:Renksiz olsun derseniz kısa yola bakarız.

Yada Ado ile bir denerim sonra.


Renk olayı çok önemli.
Kullanıcı avatarı
melek53
Siteye Alışmış
 
Adı Soyadı:melek yılmaz
Kayıt: 05 Ekm 2009 18:58
Konum: ankara
Meslek: muhasebe
Yaş: 30
İleti: 137
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Excel'de toplu sorgulama

İleti#43)  feraz » 12 Tem 2018 10:32

Yaklaşık kaç satır var dosyada.
Ve kaç aranan sayfa var.

Ado ile yapıyorum bakalım.
Aslında kod mükemmel bence.
Belki dizi içinede alabilirim verileri.
Yavaş öalışan dosyayı yollarsanız daha iyi olur vatan ve millet için :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Excel'de toplu sorgulama

İleti#44)  melek53 » 12 Tem 2018 14:29

feraz yazdı:Yaklaşık kaç satır var dosyada.
Ve kaç aranan sayfa var.

Ado ile yapıyorum bakalım.
Aslında kod mükemmel bence.
Belki dizi içinede alabilirim verileri.
Yavaş öalışan dosyayı yollarsanız daha iyi olur vatan ve millet için :)
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ş: 30
İleti: 137
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

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

Cevap: Excel'de toplu sorgulama

İleti#45)  feraz » 12 Tem 2018 18:25

Dosyayı kasan kısımlar alttaki kırmızı olanlar.
Bunları en alttaki kod ile değiştirin.
Neden böyle kasıyor bende anlamadım.
Koddaki Z yerini değiştirip deneyebilirsiniz.Ben yeter diye düşündüğüm için Z yazdım.

.Range("G1").Resize(Rows.Count, 10000).ClearContents
.Range("G1").Resize(Rows.Count, 10000).Font.Color = vbBlack


Kod: Tümünü seç
    .Range("G1:Z" & Rows.Count).ClearContents
    .Range("G1:Z" & Rows.Count).Font.Color = vbBlack
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#46)  feraz » 12 Tem 2018 18:35

Yada alttaki 10000 yerine 250 felan yazabilirsiniz.

Kod: Tümünü seç
.Range("G1").Resize(Rows.Count, 10000).ClearContents
.Range("G1").Resize(Rows.Count, 10000).Font.Color = vbBlack
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel'de toplu sorgulama

İleti#47)  feraz » 12 Tem 2018 21:23

ADO ilede yaptım tabii renk olayına girmedim.

Hızı test edebilirsiniz.Önceki mesajımdakileri uygulamayı unutmayın.

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

Dim rng As Range, arr
Dim con As Object
Dim rs As Object

Set con = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

  con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.FullName & ";" & _
    "Extended Properties=""Excel 12.0;Hdr=no"""
   
     arr = Array("[Sayfa1$A2:B65536]", "[Sayfa2$A2:B65536]")

Application.ScreenUpdating = False

With Sheets("Sayfa1")
    .[G:XFD] = Empty

For ii = LBound(arr) To UBound(arr)

    For Each rng In .Range("F1:F" & .Cells(Rows.Count, "F").End(3).Row)
        Sql = "select f1 from " & arr(ii) & " where f2 =" & rng.Value & ""
    On Local Error Resume Next
        rs.Open Sql, con
        aa = rs.GetRows
        .Range(.Cells(rng.Row, .Cells(rng.Row, Columns.Count).End(xlToLeft).Column + 1).Address).Resize(1, UBound(Application.Transpose(aa))) = aa
        rs.Close
       Erase aa
       
    Next

Next

End With
Application.ScreenUpdating = True

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

con.Close
Set rs = Nothing: Set con = Nothing

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: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#48)  gurbuzoglu » 13 Tem 2018 02:29

Arkadaşlar Ekteki dosyadaki veri sayfası müşteriden sipariş olarak gelmekte. Ekli dosyadaki plan sayfasını ise ben manuel olarak hazırlıyorum. Plan sayfasını veri sayfası malzeme koduna göre filtrelenip kalan bakiye miktarları güncel teslim tarihine göre nasıl hazırlanabilir.

Şimdiden teşekkürler.
Kullanıcı avatarı
gurbuzoglu
 
Adı Soyadı:ahmet gürbüz
Kayıt: 23 Oca 2009 13:34
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: Excel'de toplu sorgulama

İleti#49)  gurbuzoglu » 13 Tem 2018 02:32

Arkadaşlar Ekteki dosyadaki veri sayfası müşteriden sipariş olarak gelmekte. Ekli dosyadaki plan sayfasını ise ben manuel olarak hazırlıyorum. Plan sayfasını veri sayfası malzeme koduna göre filtrelenip kalan bakiye miktarları güncel teslim tarihine göre nasıl hazırlanabilir.

Şimdiden teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
gurbuzoglu
 
Adı Soyadı:ahmet gürbüz
Kayıt: 23 Oca 2009 13:34
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: Excel'de toplu sorgulama

İleti#50)  feraz » 13 Tem 2018 07:22

Merhaba.
Forumda yeni olduğunuz için bilmiyorsunuz.
Konuyu yeni konu başlığında açınız.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Excel'de toplu sorgulama

İleti#51)  melek53 » 13 Tem 2018 14:37

feraz yazdı:Yada alttaki 10000 yerine 250 felan yazabilirsiniz.

Kod: Tümünü seç
.Range("G1").Resize(Rows.Count, 10000).ClearContents
.Range("G1").Resize(Rows.Count, 10000).Font.Color = vbBlack

Eline sağlık tam istediğim gibi olmuş.
Arama butonunun yerini nasıl değiştireceğim? Yapamadım.

Birşey daha istesem ayıp olurmu?
f g h
415968 1 16127
415967 2


çıkan sonuçların içindeki verilerin(g1,g2,... h1,h2.....) üzerine tıklayınca bulunduğu sütuna gitsin
Kullanıcı avatarı
melek53
Siteye Alışmış
 
Adı Soyadı:melek yılmaz
Kayıt: 05 Ekm 2009 18:58
Konum: ankara
Meslek: muhasebe
Yaş: 30
İleti: 137
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Excel'de toplu sorgulama

İleti#52)  feraz » 13 Tem 2018 15:00

Rica ederim.
Butonun yerini değiltirmek için tasarım moduna geçmelisiniz.İnternette çıkar arayınca.Bulamazsanız resim atarım.

Tıklayınca istenilen yere gitme olayı için ise eğer birden fazla veri aynı olursa hangi sayfada olduğunu nasıl anlayacak kod bunu düşünmek gerek.Yinede uğraşırım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#53)  feraz » 13 Tem 2018 15:03

https://support.office.com/tr-tr/articl ... d326e53918

Bunu okuyunuz.

Kodlar modül içinede alınabilir istiyorsanız.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#54)  feraz » 13 Tem 2018 20:46

F sütunu ve sağındaki sütunlara çizgileri eklettim.

Eğer birden fazla bulunursa, ekrana listbox gelir ve ordaki seçime göre veri aranan seçilir.Ve aranan satıra gider.

Bulunduğu satıra gitmek için hücreye çiftt tıklamanız yeterli.

Not: .Range("G1").Resize(Rows.Count, 10000).ClearContents bunda yavaşlama oluyordu.
sanırım bu dosya ile alakalı.Başka dosyada denedim anında işlem yapıyor.10000 demek G1 den 10000 sütun sağına kadarki alan demektir.Sizin dosyaya 250 yazmanız yeterli heralde bir satırda 250 tane veri bulunmaz.
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: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#55)  feraz » 14 Tem 2018 00:23

Bu arada bu Sayfa1 de bir gariplik var çözemedim olayı.

Size tavsiyem Sayfa1 i silip tekrar sayfa1 adında sayfa açak yada başka sayfa adı veemek ve koddaki sayfa1 yerlerinide değiştirmek.

Yani daha önceki yavaşlamaya sebep olan koddaki 10000 olayı sadece bu Sayfa1 i yavaşlatıyor.
Onuda geçtik tüm sayfayı seçmek bile uzuyorda uzuyor.

Fakat kodşar muazzam çalışıyor.Sanırım artık forumda kendi kendime rakip olacağım kod yazmada :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#56)  melek53 » 20 Tem 2018 14:26

Emeğinize sağlık.Çok güzel olmuş
Sizden bir yardım daha istesem,
Ara dediğimizde sonuçları G1,H1.... gösteriyor.
G1,H1..... gösterdiği hücreye tıklayınca bulunduğu hücredeki değerin yazı tipi rengini kırmızı yapmasını sağlayabilirmiyiz.
Kullanıcı avatarı
melek53
Siteye Alışmış
 
Adı Soyadı:melek yılmaz
Kayıt: 05 Ekm 2009 18:58
Konum: ankara
Meslek: muhasebe
Yaş: 30
İleti: 137
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Excel'de toplu sorgulama

İleti#57)  feraz » 20 Tem 2018 14:48

Rica ederim,akşam denerim inşAllah.

Hangi kodları kullanıyotsunuz?
Ado mu yoksa diğeri mi?
Ado ise o iş zor diğeri ise kolay.Diğer kod ise sadece bir koda bir satır ekleme yapılabilir.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Excel'de toplu sorgulama

İleti#58)  melek53 » 20 Tem 2018 18:36

Hangisini kullandığımı bilmiyorum.
Kullandığımı 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ş: 30
İleti: 137
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Excel'de toplu sorgulama

İleti#59)  feraz » 20 Tem 2018 20:43

Sub kess(kes1) kodundaki ActiveSheet.Range(kes(3)).Select satırının altına alttaki kodu ekleyiniz.

Kod: Tümünü seç
ActiveSheet.Range(kes(3)).Font.Color = vbRed
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Excel'de toplu sorgulama

İleti#60)  feraz » 21 Tem 2018 12:57

feraz yazdı:Sub kess(kes1) kodundaki ActiveSheet.Range(kes(3)).Select satırının altına alttaki kodu ekleyiniz.

Kod: Tümünü seç
ActiveSheet.Range(kes(3)).Font.Color = vbRed


Koddaki If Target.Column >= 7 Then yerine If Target.Column >= 7 And Target.Value <> "" Then ekleyiniz.
Boş hücrelere çift tılayınca listboxtta gösterimesin ve kod gereksiz yere çalışmasın.

Kod Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) bunun içinde.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

ÖncekiSonraki

Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe