Sorgulama icin Makro

[lokal]

Arkadaslar merhaba,
Karsilastigim bir sorun icin sizlere danismak istiyorum ve mümkünse acil bir sekilde cevaplarinizi bekliyorum. Ayni soruyu access basligi altindada tekrarladim fakat cevap alamadim. Yapmak istedigim sorgulamayi ekte renklerle su sekilde anlatmak istedim: Sekt_1 in degerini sekt_2 icindede aramak istiyorum fakat sekt_2 ye denk gelen kisimda buldugu Punkt_Id degerlerini sabit tutmasini istiyorum. yani kirmizi aramasini istedigim sekt_2 degeri, sari ise sekt_2 ye ait Punkt_ID degeri ben bu degere ait tum sonuclari görmek istiyorum yani cerceve icindekileri. yani sekt_2 14 ise ve bunun Punkt_ID si 137 yse tüm 137 leri getirsin.
biraz karisik anlatmis olabilirim, yardimlarinizi bbekliyorum
tesekkürler

 

[veyselemre]

Sorunuz tam olarak açık değil neyin nereye aktarılacağını belirtmemişsiniz.
Dediğiniz kriterlere uyan verileri 2 nci sayfaya aktarır. Umarım doğru anlamışımdır.

Sub deneme()
    Set s1 = Sheets("Tabelle1")
    Set s2 = Sheets("Tabelle2")
    kriter = 14
    s1.Select
    [J:v].Delete
    [A:A,F:F].Copy [j1]
    [f1].Copy [m1]
    [m2] = kriter
    Columns("J:K").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("M1:M2"), CopyToRange:=Range("N1"), Unique:=True
    s2.Cells.Delete
    Range("a1:g" & [g65536].End(3).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("n1:n" & [n65536].End(3).Row), CopyToRange:=s2.[a1], Unique:=True
    [J:v].Delete
    Set s1 = Nothing
    Set s2 = Nothing
End Sub

 

[lokal]

Sn Veyselemre,
ilgilendigin icin tesekkür ederim fakat sorunum tam olarak cözülmedi, makroyu calistirdigimda sadece sekt_2 de filtreleme yapip ayri sutunda bunlari gösteriyor. ornek uzerinden anlatirsam mesela sekt_2 de kriter 14 oldugunda punkt_id si 213 olan 3 tane, 377 den 1 tane var gösteriyor fakat benim istedgim onlarin tamamini gösteren bir tablo veya sutun. yani kriter 14 ise sekt_2 den bulacak buldugu degerin punkt_id sine bakacak punkt_id si kac diyelim 213, 213 lerin tamamini yani sekt_2 deki 14 harici degerleriyle ayri bir tabloya veya sutuna aktaracak.mesela diger 14 icereni buldu bakacak punkt_id si 377 sadece 1 tane 377 degil tablodaki tum 377leri baska biryere aktaracak.umarim daha iyi anlatabilmisimdir.
yardimlarini bekliyorum
tesekkürler

 

[veyselemre]

Sn Veyselemre,
ilgilendigin icin tesekkür ederim fakat sorunum tam olarak cözülmedi, makroyu calistirdigimda sadece sekt_2 de filtreleme yapip ayri sutunda bunlari gösteriyor. ornek uzerinden anlatirsam mesela sekt_2 de kriter 14 oldugunda punkt_id si 213 olan 3 tane, 377 den 1 tane var gösteriyor fakat benim istedgim onlarin tamamini gösteren bir tablo veya sutun. yani kriter 14 ise sekt_2 den bulacak buldugu degerin punkt_id sine bakacak punkt_id si kac diyelim 213, 213 lerin tamamini yani sekt_2 deki 14 harici degerleriyle ayri bir tabloya veya sutuna aktaracak.mesela diger 14 icereni buldu bakacak punkt_id si 377 sadece 1 tane 377 degil tablodaki tum 377leri baska biryere aktaracak.umarim daha iyi anlatabilmisimdir.
yardimlarini bekliyorum
tesekkürler

Tabelle2 ye baktınız mı?