ComboBoxta Süzme İşlevi

[class37]

ComboBoxta Süzme Ýşlevi

Merhabalar A Sütununda alfabetik sıraya göre isim listem var.Userform üzerindeki ComboBoxa örneğin A yazdığımda ComboBox açılıp sayfada A ile başlayan isimler gelip herhangi birini seçtiğimde ise seçili isim kalıp diğerleri silinebilirmi? :?

 

[Mahmut Bayram]

http://www.excel.web.tr/viewtopic.php?t=5712&highlight=comboboxta+s%FDralama

 

[class37]

Merhabalar Mahmut Bey ilginiz için teşekkür. fakat o kod ComboBoxta sıralamayla ilgili.

 

[Mahmut Bayram]

şöyle bir örnek işiniz görür mü?

 

[class37]

Bende gönderdiğiniz dosyadaki çalımayı kullanıyorum.Aynı olayı ListBox ve TextBox kullanmadan ComboBoxta yapabilirmiyiz?

 

[class37]

Sayın Raiderin yazmış olduğu kodu aşağıdaki gibi değiştirdim ama bazen harfleri atlıyor.Bİrde süzme yapılan isimler oka basmadan otomatik açılabilirmi?

Private Sub ComboBox1_Change()
Dim MyRange As Range
Dim noA As Integer
noA = WorksheetFunction.CountA(Sheets("Sayfa1").Range("A:A"))
For Each MyRange In Sheets("Sayfa1").Range("A1:A" & noA)
If Left(LCase(MyRange), Len(ComboBox1)) = LCase(ComboBox1) Then ComboBox1.AddItem (MyRange)
Next
End Sub

 

[oguz demirbas]

SAYIN :mahmut_bayram,



noA = WorksheetFunction.CountA(Sheets("Data").Range("f:f"))


HATASI VERİYOR......

 

[okyanus]

selamlar
ben cevap değilde aynı konu başlığı taşıdığı için soru için yazıyorum
ilgilikonuları takip ettim denemeler yaptım ama sorunumu çözemedim
kodlarda açıklama olsaydı belki birşeyler yapabilirdim
bu yüzde oynamalar yapabilmek için
kodlarda açıklama olmasınıda rica ediyorum
SORU
userformda gurptan yapılan seçim sonrası diğer combobox larda guruta seçili isimle alakakalı isimler görülecek
guruba ait model modele ait modül modüle ait kod koda ait fiyat
eğer kod biliniyor ve direk giriliyorsa gurup model modül fiyat otomatik yazılacak
ve bunlar sayfa 2 yada belirtilen adrese yapıştırılacaK
TEÞEKKÜRLER

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[okyanus]

sayın leventm
ilginize çok çok teşekkürler istediğim olmuş
(5 gündür internete giremediğim için forum a bugün bağlanabildim)
detayları inceleyip gerçekte kullanacağim yerde uygulamak için kullandığınız kodları anlamaya çalışıyorum
farkettinizmi bilmiyorum bazen gurup combobox da guruplar yerine tarih çıkıyor yada hiçbirşey çıkmıyor userformu kapatıp açınca düzeliyor
gecenin yarısında dahi soruları cevapladığınız için tekrar teşekkürler saygılar

 

[okyanus]

selamlar
iki msj öncesine dönüp sayın leventm in hazırladığı (çok teşekkür ederim) guruplandırma isimli dosyayı açıp
ikinci satırı son boş satıra kopyaladıktan sonra(türkiye>ankara>a3>.....) > formuaç tıkla > türkiye > ankara > a3 ü bulmaya çalışırsanız benim sorunumla karşılaşmış olacaksınız
kaynağı belli bir düzende kurarsak sorun yok ama ben combobox ları ve seçenekleri coğaltınca bu sorun beni kısıtlıyor
teşekkürler

 

[Levent Menteşoğlu]

Bu tip uygulamalarda tablonun alfabetik olarak sıralanmış olması her zaman kod yazımında kolaylık getirmektedir. Sıralama olmadanda elbette aynı işlem yapılabilir, fakat çok uzun ve yavaş çalışan kodlarla, bu durumu kolaylaştırmak için Userform_initialize olayının en başına aşağıdaki mavi renkli satırı ilave ederseniz. Tablo userform açılırken otomatikman sıralanacaktır.

[vb:1:9995837711]Private Sub UserForm_Initialize()
Range("A2:E" & [a65536].End(xlUp).Row).Sort Key1:=[a2], Key2:=[b2], Key3:=[C2]
Set f = WorksheetFunction
For x = 2 To [a65536].End(xlUp).Row 'bu döngü ile comboboxlara tablo üzerinden tekrarsız olarak yükleme yapılır
If f.CountIf(Range("a2:a" & x), Cells(x, 1)) = 1 Then gurup.AddItem Cells(x, 1).Value
If f.CountIf(Range("d2:d" & x), Cells(x, 4)) = 1 Then kod.AddItem Cells(x, 4).Value
Next
tarih = Format(Date, "dd"" ""mmmm"" ""yy")
tarih.SetFocus
End Sub[/vb:1:9995837711]

 

[okyanus]

sayın leventm
dediğinizi yaptım
( compile error:
syntax error )
veriyor neyi yanlış yapmış olabilirim

 

[Levent Menteşoğlu]

Yukarıdaki kodda iki satır birleşmişti, düzelttim tekrar deneyin.