Çözüldü Şarta Göre Filtrele / Kaydet Hakkında..

[yesimgurol]

Merhabalar,

Combobox ile seçmiş olduğum değerlerin filtreleme sini yaptıktan sonra gelen veriler üzerinde değişiklik yapıp kaydetmek istiyorum. Forumda bu konuda örnek çalışmalar buldum ve yapabildiğim kadarı ile yapmaya çalıştım. Fakat eksiklerim var :-(

 

[Ömer BARAN]

Merhaba.
Sanırım istediğiniz şey ekli belgedeki gibi bir şey.
Denemeler yapınız.

 

[yesimgurol]

Sayın Ömer bey,
İlginize çok ama çok teşekkür ederim. Yeni inceleme imkanım oldu, evet tamda istediğim şekilde olmuş. Yalnız küçük bir ricam olsa,şöyle ki; Hani il seçtiğimizde combobox2 de ilçeler sıralanıyor ya. İlçelerin sıralandığı yerde birde "hepsi" diye bir şey yapabilir miyiz? Yani il seçtiğimde bazan bütün ilçe değerlerinin de görülmesini isteyebiliyorum
Yada Ömer Bey, bilmiyorum olur mu öylede ama şöyle bir şey yapılabilinir mi acaba ?
Mesela, yanlarında kutucuk olsa hangilerini istiyor isek işaret koysak onların verileri gelse

 

[Ömer BARAN]

Combobox1_Change kodunu aşağıdakiyle değiştirirseniz;
il seçimi yapıldığında o ile ait tüm veriler gelir, diğer Combobox'tan ilçe seçildiğinde sadece o ilçenin verileri gelir.

Private Sub Combobox1_Change()
Set s1 = Sheets("GİRİŞ")
Set s2 = Sheets("TOPLU HAM VERİLER")
ComboBox2 = ""
s2son = s2.Cells(Rows.Count, "A").End(3).Row
s2.Range("A3:AD" & s2son).AutoFilter Field:=1
s2.Range("A3:AD" & s2son).AutoFilter Field:=2
kriter1 = ComboBox1.Text

s1son = s1.Cells(Rows.Count, "A").End(3).Row
s2.Range("A3:AD" & s2son).AutoFilter Field:=1, Criteria1:="*" & kriter1 & "*"
If s1son > 7 Then s1.Range("A8:AD" & s1son).ClearContents
    If s2.Cells(Rows.Count, "A").End(3).Row > 3 Then
        s2.Range("A4:AD" & s2son).SpecialCells(xlCellTypeVisible).Copy s1.[A8]
    End If
    ililk = WorksheetFunction.Match(ComboBox1.Text, Sheets("İL").[A:A], 0)
    ilson = ililk + WorksheetFunction.CountIf(Sheets("İL").[A:A], ComboBox1.Text) - 1
    ComboBox2.ListFillRange = "İL!B" & ililk & ":B" & ilson
End Sub

 

[yesimgurol]

Ömer bey,
Gerçekten harika olmuş. Ellerinize sağlık, çok teşekkür ederim.