GelİŞmİŞ Ara Bul

[karagöz55]

Arkadaşlar,
Gelişmiş süz formülü ile oluşturulan ara bul makrolarını bu forma gördüm, inceledim. Yapmaya çalıştığım ekli dosyada denedim fakat bir türlü formülleri kendi dosyama tam olarak uygulayamadım.
Yapmak istediğim 3 husus var
1. Ana sayfa’daki verileri esas alarak ARAMA sayfasında Sanık Adı ve soyadına göre arama yapmak ve o şahısla ilgili tüm bilgileri aynı (ARAMA) sayfasında görmek.
2. Ana Sayfa’daki verileri esas alarak ARAMA sayfasında “Duruşma tarihi” sütununa göre sorgulama yapmak. Yazacağımız bir tane duruşma gününe göre (Mesela: 3.5.2008) şeklinde girdiğimiz zaman, bugüne ait tüm dosyaları ARAMA sayfasında görebilmek.
3. Devam olarak da duruşma günü moduna göre aradığımız ve gördüğümüz bu verilerden Esas No (A sütunundaki veriler) Sanık Adı Soyadı (B sütunundaki veriler) Müşteki (H sütunundaki veriler) Vekili (I sütunundaki) verileri “Duruşma_Listesi” sayfasına göndererek bu sayfada bir (3.5.2008 Tarihli Duruşma Listesidir) başlığı altında bir duruşma listesi yapmak
Konu hakkında bilgisi olan arkadaşlardan yardım talep ediyorum. İlgilenen herkese şimdiden teşekkürlerimi sunarım.

 

[Orion1]

Gelişmiş süzgeç kullanınız.
Forumda gelişmiş süzgeç diye arama yapınız.

 

[karagöz55]

Gelişmiş süzgeç kullanınız.
Forumda gelişmiş süzgeç diye arama yapınız.
__________________
Saygıdeğer Evren Gizlen Hocam,
Yukarıdaki öneriniz son derece saygıya layık. Ancak ben bu konuda formda çok arama yaptım. Hatta 1.mesajdaki dosyadaki tüm formül ve yöntemleri yine bu formdan öğrendim. Hatta bu konuda (Veri denetimi) başlıklı özel bir kitap aldım. Orda da gelişmiş süzgeçin kullanımına yönelik anlatımları okuyup, anlamaya çalıştım. Gerçi aşağıya doğru okların üzerine basarak açılan listeden aranılan kelimeyi seçip süzme yapabiliyorum. Ancak ben aradığım kelimeyi Tex kutularına yazarak otomatik olarak aramasını istiyorum. Formda gördüğüm pek çok örnekte bu arama yapılabiliyor. Ancak ben bu kodlar ile gelişmiş süz fonksiyonu arasındaki olan bağı bir türlü kuramadım. Sorumun sebebi de budur.
Ayrıca yardım etmek veya sorumun cevabını tam benim istediğim gibi vermek gibi bir zorunluluğunuz yok. Burada sadece bilgi alışverişinde bulunuyoruz. Bununla birlikte yaklaşık 3 aydır formun üyesiyim. Hemen hemen hergün formu düzenli olarak takip ediyorum. Acaba bugün neler öğrenebilirim diye. Bugüne kadar da çok şey öğrendiğimi sanıyorum. Yapmaya çalıştığım proğramda bu formdan çok zaman istifade ettim ve hatta bizzat sizin de öneri ve bilgi aktarımınız ile pek çok müşkülümü hallettim.
Daha önceki bilgi paylaşımlarınıza sığınarak böyle bir soruyu sorma cesareti gösterdim. Yine de size ve yardımcı olacak veya formu takip eden tüm arkadaşlara sonsuz saygı ve hürmetlerimi sunarım.

 

[Orion1]

Textbox1 veya textbox2 ye değer girerek sonucu alınız.
Dosya ektedir.Gelişmiş süzgeç kullanılmıştır.

Private Sub TextBox1_Change()
Set s1 = Sheets("ARAMA")
Set s2 = Sheets("ANA SAYFA")
s1.Range("A6:X65536").Clear
s1.Range("C1").Value = TextBox1.Value
Range("G1").Value = s2.Range("B2").Value
If s2.FilterMode Then s2.ShowAllData
Range("G2").Value = TextBox1.Value
s2.Range("A2:X65536").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("G1:G2"), CopyToRange:=Range("A6"), Unique:=False
End Sub

Private Sub TextBox2_Change()
Set s1 = Sheets("ARAMA")
Set s2 = Sheets("ANA SAYFA")
s1.Range("A6:X65536").Clear
On Error Resume Next
Range("P1").Value = s2.Range("M2").Value
If IsDate(s1.TextBox2.Value) Then
    s1.Range("C2").Value = CDate(TextBox2.Value)
    s1.Range("C2").NumberFormat = "dd.mm.yyyy"
    Range("P2").Value = CDate(TextBox2.Value)
    Else
    Range("P2").Value = TextBox2.Value
    s1.Range("C2").Value = TextBox2.Value
End If
If s2.FilterMode = True Then s2.ShowAllData
s2.Range("A2:X65536").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("P1:P2"), CopyToRange:=Range("A6"), Unique:=False

End Sub

 

[karagöz55]

Sayın Evren Gizlen Hocam,
Sizin bilgi ve performansınıza hayranım.
Formun her köşesine ve her soruya yetişiyorsunuz.
Tam aradığım sonuç. Size ne kadar teşekkür etsem azdır.
Allah beyninize, bilginize, bilgsayarınıza kuvvet versin

 

[Orion1]

Rica ederim.
iyi çalışmalar.

 

[mami67]

Sayın gizlen herzamanki gibi müthişsiniz

elinize sağlık aynı gelişmiş süz ü benim teklif formuunda kullanmak istiyorum bi bakarsanız sevinirim

Saygılar

 

[kelkitli]

Selamlar,
Sayın Evren Gizlen, bu makro üzerinde arama sayfasında isimler sabit kalmak kaydı ile bilgilerde değişiklik yaptığımız zaman ana sayfaya işlememiz mümkünmüdür?

 

[Orion1]

Selamlar,
Sayın Evren Gizlen, bu makro üzerinde arama sayfasında isimler sabit kalmak kaydı ile bilgilerde değişiklik yaptığımız zaman ana sayfaya işlememiz mümkünmüdür?

Deneyiniz.

 

[erdalADGU]

Merhaba,

Evren bey benzer bir problemle bende karşı karşıyayım. Fakat benim takıldığım nokta biraz daha farklı;

Örnek:

KOLON A / KOLON B/ KOLON C/
AHMET / İSTANBUL / 66
AHMET / ANKARA / 27
AHMET / İZMİR / 33
MEHMET / ADIYAMAN / 23
MEHMET / ZONGULDAK / 37
MEHMET / TRABZON / 12
ALİ / KAHRAMANMARAŞ / 28
ALİ / MUĞLA / 63
ALİ / İZMİR / 32
MEHTER / İSTANBUL / 12
MEHTER / İSTANBUL / 29
MEHTER / İSTANBUL 52

gibi bir tablo düşünelim. yani yaklaşık 3 değişkenli bir tablo;

bu tabloda belki 10 bin veri var bu şekilde. ben bu bilgilerden seçtiklerimle bir teklif, bir liste oluşturacağım. fakat filtrede seçmek çok vakit alıyor. Yukarıdaki gibi bir sistem fakat bir iki değişiklik olacak.

Örnek;

1. A1 hücresinde mehmet yazarken meh ile başlayan tüm isimler altta listelenmesi (filtre gibi) ve benim o listeden mehmet değilde örnek mehter ismini de seçebilmem gerekiyor.
2. B1 hücresinde veri ararken A1 hücresindeki mehteri görüp, listede mehterlerin karşısında ne varsa B1 hücresinde görünüp seçmeye olanak vermesi,
3. aynı şekilde MEHTER ve İSTANBUL grubunun yaş bilgilerini de C3 nolu hücrede seçebilme olanağım olması.

bunları da seçtikte bir alt satıra yazdırması. /yani form gibi birşeyde olabilir..

buna gerçekten çok ihtiyacım var.. excel standard kurallarına göre çok uğraştım yapamadım. kod yazmak gerekiyor sanırım, benimde tecrübem yok.

((TEKLIF FORMU HAZIRLAMAK GIBI, HATTA TA KENDISI, FAKAT TEKLIF HAZIRLARKEN 2 AYRI DEGISKEN SECILEBILMESI GEREKMEKTEDIR))

yardımcı olursanız sevinirim.

saygılarımla,

Erdal ADGU

 

[karagöz55]

Saygıdeğer hocalarım ve kıymetli arkadaşlarım.
Yukarıdaki formül son derece kullanışlı ve tam istediğim gibi çalışıyor,
Ancak her aram yaptığında ANA SAYFA üzerinde bulunan makro düğmelerinin de birer kopyasını alarak ARAMA sayfasına yapıştırıyor. Bunu önlemenin bir yolu var mıdır?
Yardımcı olursanız teşekkürlerimi sunarım.