Sorgulama icin Makro

Katılım
19 Ağustos 2007
Mesajlar
9
Excel Vers. ve Dili
Excel 2007
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,653
Excel Vers. ve Dili
Pro Plus 2021
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.
Kod:
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
 
Katılım
19 Ağustos 2007
Mesajlar
9
Excel Vers. ve Dili
Excel 2007
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,653
Excel Vers. ve Dili
Pro Plus 2021
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ı?
 
Üst