veri süz hakkında yardım

[EmirhanG]

merhaba arkadaşlar....sizden ricam...

Private Sub TextBox7_Change()
For tem = 1 To 4
'Controls("textbox" & tem) = Empty
Next
Set SR = Sheets("SAYFA1")
ListView1.ListItems.Clear
ALAN = IIf(TextBox7 = "", Range("A2:A" & [A65536].End(3).Row).Address, Range("A1:A" & [A65536].End(3).Row).Address)
Set BUL = Range(ALAN).Find(TextBox7.Text & "*", LookAt:=xlWhole)
If Not BUL Is Nothing Then
Adres = BUL.Address
Do
satır = BUL.Row
With ListView1
.ListItems.Add , , SR.Cells(satır, 1)
x = x + 1
.ListItems(x).ListSubItems.Add , , SR.Cells(satır, 2)
.ListItems(x).ListSubItems.Add , , SR.Cells(satır, 3)
.ListItems(x).ListSubItems.Add , , SR.Cells(satır, 4)
.ListItems(x).ListSubItems.Add , , SR.Cells(satır, 5)
SAY = SAY + 1
End With
Set BUL = Range(ALAN).FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> Adres
End If
Label8 = SAY & " Adet Kayıt Mevcut"
Set SR = Nothing
Set ALAN = Nothing
Set BUL = Nothing
TextBox7.SetFocus
End Sub

yukardaki chane kodunda userform üzerindeki listview de bulunan veriler 1.satır baz alınarak süzülüyor bunu 2.kolndaki veriler baz alınarak süzecek duruma uyarlayamadım yardımlarınızı umuyorum....teşekürler

 

[Korhan Ayhan]

Selamlar,

O kadar karma&#351;&#305;k ifadeler kullan&#305;yorsunuz ki ("1.sat&#305;r baz al&#305;narak s&#252;z&#252;l&#252;yor bunu 2.kolndaki" gibi) cevap vermek isteyen arkada&#351;lar ilk &#246;nce sorulan soruyu anlamak i&#231;in epey bir zaman u&#287;ra&#351;&#305;yorlar ve sonuca ula&#351;amay&#305;nca da cevap verkmekten b&#252;y&#252;k ihtimalle ka&#231;&#305;n&#305;yorlar.

Ben anlad&#305;&#287;&#305;m kadar&#305;yla cevab&#305;m&#305; vermek istedim. K&#305;rm&#305;z&#305; renkle belirtti&#287;im de&#287;i&#351;ikli&#287;i yap&#305;p denermisiniz. Umar&#305;m sorunuzu do&#287;ru anlam&#305;&#351;&#305;md&#305;r.

ALAN = IIf(TextBox7 = "", Range("[COLOR=red]B[/COLOR]2:[COLOR=red]B[/COLOR]" & [[COLOR=red]B[/COLOR]65536].End(3).Row).Address, Range("[COLOR=red]B[/COLOR]1:[COLOR=red]B[/COLOR]" & [[COLOR=red]B[/COLOR]65536].End(3).Row).Address)