[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#81)  feraz » 24 Tem 2018 18:59

Böyle olacak.

Kod: Tümünü seç
Set ara = Nothing: adres = vbNullString: Erase arr: Erase arrbul: ii = Empty
say = Empty: b = Empty: Erase arr3: Erase arr2: n = Empty: m = Empty: xy = Empty
Exit Sub

son:
Call hata
End If

End Sub
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#82)  feraz » 24 Tem 2018 19:50

Bu dosyayı deneyiniz.

Herşey istediğiniz gibi.
Baz kodları değiştirdim.

F sütunda alt alta veri yazarken satırlar arasında boş veri varken hata veriyormuş.
Bunu hallettim.Çizgi için ise F den son dolu sütuna kadar verilerin çizgisini sadece boş olmayanlar çigili oluyor.
Kırmızı rengide aktif ettim.
Metin ve sayı olarakta denedim.
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#83)  melek53 » 25 Tem 2018 18:53

Teşekkür ederim.Emeğinize 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ş: 30
İleti: 137
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ankara

Cevap: Excel'de toplu sorgulama

İleti#84)  feraz » 25 Tem 2018 19:31

Rica ederim.

Daha öncede dediğim gibi Sayfa1 de bir gariplik var.
Sayfa6 ya aynı verileri kopyaladım.Kodlar aynı sadece Sayfa1 leri Sayfa6 yaptım.

Her iki sayfadada arama yapıp hızı deneyebilirsiniz.Dediğim gibi kodlar aynı.

Alttaki linkten indirip deneyebilirsiniz hızı.Dosya boyutu 1mb yi geçtiği için buraya yükledim.

http://s3.dosya.tc/server16/rwt277/cika ... 6.rar.html
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
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Excel'de toplu sorgulama

İleti#85)  melek53 » 26 Tem 2018 09:41

Tamam, deneyeceğim...
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#86)  melek53 » 26 Tem 2018 11:08

Süper hızlı çalışıyor.Teşekkürler.
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
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel'de toplu sorgulama

İleti#87)  melek53 » 01 Ağu 2018 10:20

Küçük bir hata var.
Mesela 656-KIZILCAHAMAM arattığımız zaman buluyor ama bulduğu satırı kırmızı yapmıyor hata veriyor. [evet]
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#88)  feraz » 01 Ağu 2018 10:28

Daha önce dosyayı istemiştim hatalı olarak.
Ancak böyle hatayı çözeriz çünkü bende hatasız çalışıyordu.
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#89)  feraz » 01 Ağu 2018 11:48

Bende doğru çalıştığını göstermek için Gif hazırlamışam.

Öncedende dediğim gibi hatalı dosyayı yüklerseniz bakarım akşama.

Gif te hem seçiyor hem kırmızıya boyuyor hemde buluyor.
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#90)  melek53 » 01 Ağu 2018 17:26

Ekte gönderdim.
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#91)  feraz » 02 Ağu 2018 00:03

1. Dosyada 656-KIZILCAHAMAM göremedim.
2.F sütununda hiç veri olmazsa hata veriyor hiç bir hücre bulunamadı diye.
3 Bu hata için ya Private Sub CommandButton1_Click() kodundaki With Sheets("Sayfa6") bunun alt satırına If WorksheetFunction.CountA(.Range("F:F")) < 1 Then Exit Sub ekleyin yada on error resume next ekleyinç
3.Mesajdaki Galatasaray güzeldi :)
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#92)  melek53 » 02 Ağu 2018 10:48

Seninde başını ağrıttım.
Dediğinizi yapamadım
Veriyi aşağıda yazdığım gibi bi denermisiniz.Rica etsem
680-kızılcahamam olarak bi denermisiniz
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#93)  feraz » 02 Ağu 2018 10:55

Başım ağrımaz benim yardım etmeme inanın normal hayattada herkese elimden geldiği kadarıyla yardım ederim :)

Dediğinizi denedim GALATASARAY olarak mesaj çıkıyor bulunamasa bile.

En iyisi hatalı şekildeki dosyayı eklemeniz.

2 ssatim var sornra 1 ay bilgisayarda olamayacağım yaklaşık.
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#94)  feraz » 02 Ağu 2018 11:10

Birde böyle deneyin.
F sütunu boşssa,G:XFD sütunu boşsa gibi koşullarda ekledim.

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("Sayfa6", "tür", "dönen", "eskidönenler", "fotokopi", "not")

Application.ScreenUpdating = False

With Sheets("Sayfa6")

    .Range("G1").Resize(Rows.Count, 250).Clear
   
        If WorksheetFunction.CountA(.Range("F:F")) < 1 Then
            GoTo son
        End If

    For ii = LBound(arr) To UBound(arr)
     For Each rng In .Range("F1:F" & .Cells(Rows.Count, "F").End(3).Row)
     If rng.Value <> "" Then
        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
     End If
     Next
    Next
   
     .Columns("F:XFD").SpecialCells(xlCellTypeConstants).Borders.LineStyle = 1 'Cizgi yapar
     .Columns("F:XFD").SpecialCells(xlCellTypeConstants).HorizontalAlignment = xlCenter 'Ortalama
   
    If WorksheetFunction.CountA(.Range("G:XFD")) < 1 Then

        Application.ScreenUpdating = True
        MsgBox "Hic Veri bulunamadi...", vbCritical, "Bilgi!!!"
        Set ara = Nothing: Set rng = Nothing: adres = vbNullString: Erase arr: ii = Empty
        Exit Sub
    End If
   
   
End With


Application.ScreenUpdating = True
MsgBox "GALATASARAY...", vbInformation, "GALATASARAY!!!"
Set ara = Nothing: Set rng = Nothing: adres = vbNullString: Erase arr: ii = Empty


Exit Sub

son:


Application.ScreenUpdating = True
MsgBox "F sütunu bos...", vbCritical, "HATA!!!"
Set ara = Nothing: Set rng = Nothing: adres = vbNullString: Erase arr: ii = Empty

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: Cevap: Excel'de toplu sorgulama

İleti#95)  melek53 » 02 Ağu 2018 18:58

feraz yazdı:Birde böyle deneyin.
F sütunu boşssa,G:XFD sütunu boşsa gibi koşullarda ekledim.

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("Sayfa6", "tür", "dönen", "eskidönenler", "fotokopi", "not")

Application.ScreenUpdating = False

With Sheets("Sayfa6")

    .Range("G1").Resize(Rows.Count, 250).Clear
   
        If WorksheetFunction.CountA(.Range("F:F")) < 1 Then
            GoTo son
        End If

    For ii = LBound(arr) To UBound(arr)
     For Each rng In .Range("F1:F" & .Cells(Rows.Count, "F").End(3).Row)
     If rng.Value <> "" Then
        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
     End If
     Next
    Next
   
     .Columns("F:XFD").SpecialCells(xlCellTypeConstants).Borders.LineStyle = 1 'Cizgi yapar
     .Columns("F:XFD").SpecialCells(xlCellTypeConstants).HorizontalAlignment = xlCenter 'Ortalama
   
    If WorksheetFunction.CountA(.Range("G:XFD")) < 1 Then

        Application.ScreenUpdating = True
        MsgBox "Hic Veri bulunamadi...", vbCritical, "Bilgi!!!"
        Set ara = Nothing: Set rng = Nothing: adres = vbNullString: Erase arr: ii = Empty
        Exit Sub
    End If
   
   
End With


Application.ScreenUpdating = True
MsgBox "GALATASARAY...", vbInformation, "GALATASARAY!!!"
Set ara = Nothing: Set rng = Nothing: adres = vbNullString: Erase arr: ii = Empty


Exit Sub

son:


Application.ScreenUpdating = True
MsgBox "F sütunu bos...", vbCritical, "HATA!!!"
Set ara = Nothing: Set rng = Nothing: adres = vbNullString: Erase arr: ii = Empty

End Sub


Ek ler farklı dosyalar.
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#96)  feraz » 02 Ağu 2018 20:10

Telefondan baktım haklısınız başka bir dostumuzunkini yollamışım.
Malum 3 kurvarda yarışıyorum forumda :)

Neyse kodu deneyebilirsiniz kod doğru yani :)

Bu arada hatalı şekildeki dosyayla tanışamadık bir türlü :)
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#97)  feraz » 02 Ağu 2018 23:27

Dosyayı ekledim.

Önceki dosyanın ve bu dosyanın sonu 7 ile bittiği için karışmış.
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#98)  melek53 » 03 Ağu 2018 12:23

Emeğine sağlık.
Çok iyi oldu.
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: Cevap: Excel'de toplu sorgulama

İleti#99)  melek53 » 12 Ekm 2018 11:54

feraz yazdı:Dosyayı ekledim.

Önceki dosyanın ve bu dosyanın sonu 7 ile bittiği için karışmış.


ARA Butonunun yerini nasıl değiştiririz
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#100)  feraz » 12 Ekm 2018 14:41

Menü sekmesinde

Geliştirici/Tasarım modu var orayı aktif edip değiştirebilirsiniz.
Dosyaya bakamadım fakat öyle olduğunu sanıyorum.
Menüde geliştirici sekmesi yoksa onu ayarlardan işaretlemelisiniz.
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: şahin ve 4 misafir

Bumerang - Yazarkafe