Autofilter veya combobox

[xrolexx]

Arkadaslar Sheet2'de bulunan bir datanin verilerini Sheet1'den nasil filtreleyebilirim? Örnek:

Sheet2'de A1 sütununda Sehir kolonum var ve filtre koydum ve bu sehir kolonundan Istanbul'u secmek istiyorum ama bu islemi Sheet1'de yapmak istiyorum..Yani bir nevi bu kolondaki filtre listesini sheet1'e tasimak istiyorum.

2. sorum ise combobox'a yüklettigim verileri gruplamak istiyorum..Yani combobox'i actigimda listedeki Istanbul,Istanbul,Istanbul,Istanbul,...gibi tekrarlayan verilerin tekrarlamasini istemiyorum sadece 1 kez gözüksün..

Simdiden tesekkürler..

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[xrolexx]

Yardiminiz icin tesekkürler Leven Bey ancak dosyayi acarken

Private Sub Workbook_Open()
Set s1 = Sheets("sheet2")
For a = 2 To s1.[a65536].End(3).Row
If WorksheetFunction.CountIf(s1.Range("a2:a" & a), s1.Cells(a, "a")) = 1 Then
Sheets("sheet1").ComboBox1.AddItem s1.Cells(a, "a")
End If
Next
End Sub

hata veriyor..

 

[Orion1]

Bende hata vermedi.
Dosyayı yollayın bakalım.

 

[xrolexx]

Hata mesajlari ekteki gibi..

 

[xrolexx]

pardon ekler bunlar

 

[Orion1]

Bende hata vermiyor.
Siz başka bir dosyada denediniz ise bilemem.

 

[xrolexx]

okeydir hallettim bu dosya acikken baska dosyalar da acikti dolayisiyla sheet isimleri cakisiyordu muhtemelen simdi inceleyebilirim tesekkürler..

 

[xrolexx]

Yardiminiz icin tesekkürler..Bayagi bir adim attim calismamda ancak bir yerde takildim yine..ekli dosyadaki 1.filtreyi sectikten sonra 2. filtrede bir veri tekrarliyorsa onu nasil gruplandirabilirim?

örnegin: database'deki ilcelerden ataköy'ü 2 defa yazdim ve sheet1'deki filtrede de bu 2 defa gözüküyor..ben 1 kere gözüksün istiyorum..

 

[Levent Menteşoğlu]

Combobox1 deki kodu aşağıdaki ile değiştirin.

Private Sub ComboBox1_Click()
Set s1 = Sheets("sheet2")
ComboBox2.Clear
ilk = WorksheetFunction.Match(ComboBox1, s1.[a:a], 0)
son = WorksheetFunction.CountIf(s1.[a:a], ComboBox1) + ilk - 1
For a = ilk To son
If WorksheetFunction.CountIf(s1.Range("b" & ilk & ":b" & a), s1.Cells(a, "b")) = 1 Then
ComboBox2.AddItem s1.Cells(a, "b")
End If
Next
If s1.AutoFilterMode = False Then s1.Rows(1).AutoFilter
s1.Rows(1).AutoFilter Field:=1, Criteria1:=ComboBox1
End Sub

 

[xrolexx]

Gösterdigin zahmet icin cok sagol..Sorunu astim sayende..