2 veya daha fazla veri girişi ile arama yapmak

[FGorkem]

Merhaba arkadaşlar daha önce excel'de makro deneyimim hiç olmadı. Elimdeki tablo ile benzer bir tabloyu mesaja ekliyorum. Tarih, rakam, metin özelliğindeki bir excel tablosunda 3 veya 4 veri ile arama yaptırabilmek mümkün müdür?

Örneğin tarihi 01.02.2013, işlem kodu f3 ve işlem aleti a3, ve yapım yeri IST olan tüm kayıtları listele. Böyle bir arama yaptırılabilir mi?

 

[ZorBey_]

Merhaba İyi Çalışmalar
Böyle Bir arama Yaptırılabilir
Verileriniz A Dan Başlar HAngi Sutunda Bitiyor Acaba

 

[şehiriçi]

hiç bilenle bilmeyen bir olurmu

merhaba asr
nasıl yapıldığını örnek dosyada gösterebilirmisin bizde istifade edelim inşallah
saygılar

 

[Necdet]

Merhaba,

Bu tür aramayı Gelişmiş Filtre Uygulama ile yapabilirsiniz.

Ekteki dosyada bu yöntemin makroya uygulanmış halini yaptım, inceleyiniz.

Aranacak değerleri H2:K2 aralığındaki hücrelere girmelisiniz. Hepsini doldurmak gerekmez.

Sub Listele()
 
    Dim i   As Long
 
    On Error Resume Next
 
    ActiveSheet.ShowAllData
    If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter
    Rows("1:" & Rows.Count).EntireRow.Hidden = False
 
    i = Cells(Rows.Count, "A").End(3).Row
 
    Range("A2:D" & i).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("H1:K2"), Unique:=True
End Sub

Sub Goster()
 
    On Error Resume Next
 
    ActiveSheet.ShowAllData
End Sub

 

[FGorkem]

Merhaba,

Bu tür aramayı Gelişmiş Filtre Uygulama ile yapabilirsiniz.

Ekteki dosyada bu yöntemin makroya uygulanmış halini yaptım, inceleyiniz.

Aranacak değerleri H2:K2 aralığındaki hücrelere girmelisiniz. Hepsini doldurmak gerekmez.

Sub Listele()
 
    Dim i   As Long
 
    On Error Resume Next
 
    ActiveSheet.ShowAllData
    If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter
    Rows("1:" & Rows.Count).EntireRow.Hidden = False
 
    i = Cells(Rows.Count, "A").End(3).Row
 
    Range("A2:D" & i).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("H1:K2"), Unique:=True
End Sub

Sub Goster()
 
    On Error Resume Next
 
    ActiveSheet.ShowAllData
End Sub

Necdet bey yardımınız için çok teşekkürler. Fakat arama sonucu tek değer getiriyor ekrana aynı kriterleri taşıyan diğer kayıtları getirmiyor. Arama sonucu olarak 1'den fazla eşleşen kayıt var ise onları da görebileceğimiz bir örnek var mı elinizde? Çalışacağım excel tablosunun veritabanı olarak kullandığım sayfada 27.000 civarında kayıt var. Ve bu şekilde arama yaptığım zaman 1'den fazla eşleşen kayıt var ise hepsini, yani tüm eşleşen kayıtları görebileceğim bir örnek lazım . Kusura bakmayın biraz fazla gibi oluyor isteğim ama eğer elinizde mevcut ise mesajınızı bekliyorum. Tekrardan ilgilendiğiniz için teşekkürler...

 

[tahsinanarat]

Sn. Fgörkem, bu kadar açıklama yerine örnek dosya ekleyip ne istediğinizi yazsaydınız, şimdiye kadar bir çözüm bulurdunuz diye düşünüyorum.