Combobox Filtreleme

[by_staras]

Arkadaşlar ekteki dosyada izah ettim. Combox'a koğuş ve yemekhane seçeneklerini ekleyip oradan koğuşu seçince Ad hücresi altındaki DOLU hücreleri filtrelesin istiyiorum

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Sub KOD()

Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5

If Range("K1") = 1 Then
Selection.AutoFilter Field:=4, Criteria1:="<>"

ElseIf Range("K1") = 2 Then
Selection.AutoFilter Field:=5, Criteria1:="<>"

ElseIf Range("K1") = 3 Then
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5

End If
End Sub

. . .

 

[by_staras]

Şu yandaki koğuş yemekhane tümü gözükmese olur mu

 

[by_staras]

bir de koğuş yemekhane değerlerini otomatik mi ekliyor comboboxa . benim o değerler baya uzunda 100 tane falan onların hepsinin comboboxa eklenmesini istiyorum

 

[Emir Hüseyin Çoban]

. . .

Görünmemesi için sütunu gizleyebilirsiniz.

Combobox üzerinde sağ tıklayın >
Denetim Biçimlendir >
Girdi aralığını verilerinize göre genişletirsiniz.

. . .

 

[by_staras]

Şimdi ben bu listeyi baya uzatacam . Koğuş yemekhane 1.bina 2.bina 3.bina 4.bina vs.100. binaya kadar gidecek. Bunları tek tek girmek baya zorlar. Kısayolu varmı açaba. Combox listesine bunları eklemenin ve kodu eklenenlere uydurmanın..

 

[Emir Hüseyin Çoban]

. . .

Programlama mantığı için önce filtreleme parametrelerini oluşturmanız gerekir.
Yani comboboxa bu veriler tanımlanmalı.
100 satırı bir defaya mahsus girmenin zahmetli olduğunu düşünmüyorum. Başka bir yerde kayıtlıysa kopyala yapıştır ile alabilirsiniz.

Veya bahsettiğiniz işlemi bilen arkadaşlar yardımcı olacaktır.
İyi günler.

. . .

 

[by_staras]

öncelikle çok teşekkür ederim. Olayı çözebildim. Bir sorum daha olacak. Filtrelenmiş veriyi ben sıra no stok no malzeme ad şeklinde ayrı bir kitaplıga tablo oluştursam o filtreli veriyi nasıl o tabloya aktarırım.Data kitaplıgından veri çekecez yani

 

[by_staras]

Dosya ektedir. ekteki gibi

 

[by_staras]

Bi yardımcı olabilir misiniz rica ediyorum