arama makrosu

[rainmaker29]

üstadlar ekte gönderdiğim dosyada textboxta arama yapacağım firma ismini yazınca listviewde sadece onun gözükmesini istiyorum yardım edebilirmisiniz.şimdiden teşekkürler

 

[fedeal]

Private Sub ARAMA_Change()
ListView1.ListItems.Clear
On Error Resume Next
For i = 4 To [a65536].End(3).Row
If Sheets("sayfa1").Cells(i, 1).Value = ARAMA.Text Then
Set liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
liste.SubItems(1) = Cells(i, 2).Value
liste.SubItems(2) = Cells(i, 3).Value
liste.SubItems(3) = Cells(i, 4).Value
liste.SubItems(4) = Cells(i, 5).Value
liste.SubItems(5) = Cells(i, 6).Value
liste.SubItems(6) = Cells(i, 7).Value
liste.SubItems(7) = Cells(i, 8).Value
liste.SubItems(8) = Format(CDbl(Cells(i, 9).Value * 1), "#,##0.00")
liste.SubItems(9) = Cells(i, 10).Value
liste.SubItems(10) = Format(CDbl(Cells(i, 11).Value * 1), "#,##0.00")
liste.SubItems(11) = Format(CDbl(Cells(i, 12).Value * 1), "#,##0.00")
liste.SubItems(12) = Cells(i, 13).Value
End If
Next i
End Sub

İyi çalışmalar.

 

[rainmaker29]

sayın fedeal cevabınız için tşkr ederim.
sanırım eksik sormuşum. textboxa sadece "a" harfi yazsam a ile başlayanları süzecek ve sildiğimde yine listviewde bütün firmaların gözükmesini istiyorum.tşkrler

 

[fedeal]

Private Sub ARAMA_Change()
ListView1.ListItems.Clear
On Error Resume Next
FD = UCase(Replace(Replace(ARAMA, "ı", "I"), "i", "İ"))
For i = 4 To [a65536].End(3).Row
    If UCase(Replace(Replace(Sheets("sayfa1").Cells(i, 1).Value, "ı", "I"), "i", "İ")) _
    Like "*" & FD & "*" Then
Set liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
liste.SubItems(1) = Cells(i, 2).Value
liste.SubItems(2) = Cells(i, 3).Value
liste.SubItems(3) = Cells(i, 4).Value
liste.SubItems(4) = Cells(i, 5).Value
liste.SubItems(5) = Cells(i, 6).Value
liste.SubItems(6) = Cells(i, 7).Value
liste.SubItems(7) = Cells(i, 8).Value
liste.SubItems(8) = Format(CDbl(Cells(i, 9).Value * 1), "#,##0.00")
liste.SubItems(9) = Cells(i, 10).Value
liste.SubItems(10) = Format(CDbl(Cells(i, 11).Value * 1), "#,##0.00")
liste.SubItems(11) = Format(CDbl(Cells(i, 12).Value * 1), "#,##0.00")
liste.SubItems(12) = Cells(i, 13).Value
End If
Next i
End Sub

Sayın Evren GİZLEN'in kodlarından yararlandım kendisine teşekkürler.iyi çalışmalar.

 

[rainmaker29]

size veya sayın evren gizlene teşekkürler.iyi çalışmalar...