listbox formüllü hücreden süzme

[ugur111]

Merhaba arkadaşlar ,
Listboxta süzme ile ilgili bir çok örnek inceledim ama bulamadım . Problemim listboxta süzme yaptırdığım hücre aralığı formül sonucu oluşmuş verilerden oluşuyor ve süzme işlemi bu yüzden gerçekleşmiyor . DATA sheetinde , F:F aralığında =EĞER(VE(J2<>"";K2<>"");"FAAL";EĞER(J2<>"";"GEREK GÖRÜLMEDİ";EĞER(A2="";"";"ARIZALI"))) gibi bir formül var . Örneğin userformda comboboxtan ARIZALI kelimesini seçtiğimde ARIZALI olanlar formül nedeniyle gelmiyor .Kodlar aşağıdaki gibidir .

Kolay gelsin .

Private Sub ComboBox2_Change()
If Trim(ComboBox2.Value) = "" Then: ListeGuncelle1: Exit Sub
Set Sh1 = Sheets("DATA")
Ara = ComboBox2.Value
Set bulunacak = Sh1.Range("F:F").Find(Ara) 'VERİ HANGİ SÜTUNDA ARANACAK
If Not bulunacak Is Nothing Then
Adres = bulunacak.Address
ListView3.ListItems.Clear
Do
sat = bulunacak.Row
With ListView3
.ListItems.Add , , Sh1.Cells(sat, 1)
X = X + 1
With .ListItems(X).ListSubItems
.Add , , Sh1.Cells(sat, 2)
.Add , , Sh1.Cells(sat, 5)
.Add , , Sh1.Cells(sat, 6)
.Add , , Sh1.Cells(sat, 7)
.Add , , Sh1.Cells(sat, 8)
.Add , , Sh1.Cells(sat, 9)
.Add , , Sh1.Cells(sat, 11)
.Add , , sat
End With
End With
Set bulunacak = Sh1.Range("F:F").FindNext(bulunacak)
Loop While Not bulunacak Is Nothing And bulunacak.Address <> Adres
Else

End If

End Sub

 

[ugur111]

Değerli arkadaşlar ,

Bu konuda fikri olan yok mu ? Yoksa problemimi anlatamadım mı?