ComboBox'a gelecek veriyi harfe göre süzerek nasıl getirebiliriz.

[HD1975]

Merhaba ;

Aşağıdaki combobox koduna sayfa4'den gelecek verilerin sadece "ch" ile
başlayanların gelmesini istiyorum.

Nasıl bir ekleme yapmam gerekir.

Saygılar

Private Sub UserForm_Initialize()
Dim s As Worksheet, a As Long
Set s = Sheets("sayfa4")
a = s.Range("d65536").End(3).Row
With ComboBox1
.RowSource = "Sayfa3!D2:N" & a
.ColumnCount = 5
.ColumnHeads = True
.BoundColumn = 4
End With
Set s = Nothing: a = Empty
End Sub

 

[ziya]

Aşağıdaki kodla bulunduğunuz sayfa A sütunun bilgilerinden "ch" dahil ne isterseniz filtre edebilirsiniz.

Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("A3:A65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

 

[HD1975]

İstediğim bu değil

ComboBox'a sayfa4'den verilleri alıyorum.Gelen veriler arasında sadece
"CH" ile başlayanlar ComboBox'ta gözüksün

Saygılar