Combobox süzme hatası

[tete58]

Arkadaşlar aşağıdaki kod ile data sayfasındaki e sutununda bulunan değerleri userform listbox üzerinde combobox ile süzme işlemi yapıyorum e sutunundaki veriler A1,A2,A11,A12,D1,D2,D11 şeklinde şimdi ben comboboxta A1 i seçtiğimde A11 ve A12 lerde listboxta görünüyor yani A1 değerinde A'dan sonra 1 olduğu için A11 ve A12,A13 şeklinde hepsini listeliyor ben sadece seçtiğim değerin görünmesini istiyorum bunu düzeltebilirmiyiz acaba

Private Sub ComboBox2_Change()
Dim k As Range, adrs As String, j As Byte, a As Long, myarr()
ReDim myarr(1 To 30, 1 To 1)
With Worksheets("DATA")
Me.ListBox1.RowSource = vbNullString
If .FilterMode Then .ShowAllData
Set k = .Range("e2:e65536").Find(ComboBox2.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 30, 1 To a)
For j = 1 To 30
myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = .Range("e2:e65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With
End Sub

 

[tete58]

Arakdaşlar uğraşırken cevabı kendim buldum belki dğer arkadaşlarada lazım olur Find(ComboBox2.Text & "*", , xlValues, xlWhole) bölümü Find(ComboBox2.Text & "", , xlValues, xlWhole) şeklinde değiştirdim ve sorun düzeldi