AutoFilter ile istediğim 3 öğeyi filtreleybilirmiyim.

[bahocan]

Merhabalar,
Ek'te yer alan excel dosyasında A1 hücresine AutoFilter uyguluyorum.
11' den 61' e kadar departmanlar ve karşısında ürün noları var. Ben sadece 12-15-16 nolu departmanları süzerek o departmanlara ait ürün no listesini istiyorum. custom seçeneği ile 12 ve 15'i göstermeyi başardım ancak 16'yı dahil edemedim. Gözümden kaçan kolay bir yol vardır diye düşünüyorum...

Yardımlarınızı bekliyorum..

Sağlıcakla...

 

[cuneyt001]

Evet arkadaşlar, Seçimlerde en fazla 2 süzme seçeneğine izin veriyor...

Aynı anda, 3. ve 4. süzmeleride ilave etmek istediğimizde sorun yaşıyoruz.

Bunu nasıl yapabiliriz.

 

[bahocan]

dostlar, soruma çözüm olarak başka bir yöntem varsa onada razıyım.
formul,makro vs...

 

[Orion1]

Gelişmiş filtre uygulayınız.

 

[bahocan]

Gelişmiş filtre uygulayınız.

patron,gelişmiş filtreyi uygulayamadığım için soruyorum. ilk mesajda ve örnek dosyada da gösterdim. gelişmiş filtre uygulayarak 2 departmanı süzebiliyorum. ben ise 3dept. süzmek istiyorum. bunu başaramadım.. varsa farklı bir yöntem, bahsederseniz sevinirim.

 

[Orion1]

patron,gelişmiş filtreyi uygulayamadığım için soruyorum. ilk mesajda ve örnek dosyada da gösterdim. gelişmiş filtre uygulayarak 2 departmanı süzebiliyorum. ben ise 3dept. süzmek istiyorum. bunu başaramadım.. varsa farklı bir yöntem, bahsederseniz sevinirim.

Siz gelişmiş filtre uygulamamışsınız.
Otomatik filtre uygulamışsınız.

 

[bahocan]

haklısın, otomatik filtre ile yapmaya çalışıyordum. gelişmiş filtreleme hakkında pek bilgim yok. hemen araştırdım forumdan,şöyle bir bilgiye denk geldim;

Advanced Filter den sonra

Üste 2 yuvarlak kutudan alttakini seçin.

Ortada 3 satırdan (3. sü İkinci yuvarlak kutuyu onaylarsanız aktif olur.)
1.sine Filitre yapacağınız alan
3.süne Hedef hücreniz (Tek hücre seçeceksiniz)

Ve , En alttaki kare kutuyu onaylayın.

Hiç İngilizce Excel çalışmadım Ancak böyle tarif edebilirim.

ancak ugulayamadım.
hocam ya bana yapmam gerekeni göster, yada ornek dosyada gelişmiş filtrelemeyi uygulayıp eklersen (sana zahmet) ben olayı ordan çözmeye çalışırım.

 

[Orion1]

Buyurun dosyanız.Butona basınız ve ölçütleri girin.

Private Sub CommandButton1_Click()
Dim adr As String, i As Byte, sat As Long
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("E1").Value = Range("A1").Value
For i = 1 To 5
    Cells(i + 1, "E").Value = Controls("TextBox" & i).Value
Next i
Range("E2:E65536").Sort Range("E2")
sat = Cells(65536, "E").End(xlUp).Row
sat2 = Cells(65536, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
If sat2 < 2 Then Exit Sub
adr = Range(Cells(1, "E"), Cells(sat, "E")).Address
Range("A1:A" & sat2).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range(adr), Unique:=False
End Sub

 

[bahocan]

çok sağolasın hocam, bu kadar formulü oluşturmak, uygulamak, bilmediğim şeyler. iki dakkada oluşturuvermişsin formulü, butonu... sayenizde yeni birşey öğrendim, mantığını çözmeye uğraşırım artık.

 

[Orion1]

çok sağolasın hocam, bu kadar formulü oluşturmak, uygulamak, bilmediğim şeyler. iki dakkada oluşturuvermişsin formulü, butonu... sayenizde yeni birşey öğrendim, mantığını çözmeye uğraşırım artık.

Rica ederim.
iyi çalışmalar.