Süz yerine ComboBox ve TextBox kullanımı

[Galus]

Örnekteki 4 adet ComboBox ve 4 adetTextBox ile verileri süz kullanmadan getirmek istiyorum.

İlgi ve desteklerinize şimdiden teşekkürler..

 

[Galus]

TextBox'a kod veya isim yazınca süz geliyor. İlaveten ComboBox'tan veriyi seçebilme ve (tüm&#252 seçeneğini kullanmak istiyorum.

Saygılar..

 

[Galus]

TextBox veya ComboBox ile süzdeki "tümü" seçeneği özelliğini kullanabilir miyiz?

Teşekkürler...

 

[N.Ziya Hiçdurmaz]

Yanıt

Combodan SIRA NO: yu seçtiğinizde tümü özelliği kullanılır.Aynı zamanda seçilen veri sayfadanda seçilmiş olur.

Private Sub ComboBox1_Change()
On Error Resume Next
TextBox1 = ComboBox1
If ComboBox1 = "SIRA NO:" Then
[a1].Select
Selection.AutoFilter
End If
Cells(ComboBox1.ListIndex + 1, 1).Select
End Sub

 

[Galus]

Çok çok teşekkürler sayın V.Basic For Applications..

 

[N.Ziya Hiçdurmaz]

Bişey değil Sayın Galus.