- Katılım
- 6 Kasım 2005
- Mesajlar
- 300
- Altın Üyelik Bitiş Tarihi
- 06-09-2023
Private Sub TextBox2_Change()
Application.ScreenUpdating = False
x = WorksheetFunction.CountA([b:b]) + 3
Rows("2:" & x).EntireRow.Hidden = False
a = Len(TextBox2.Value)
For i = 2 To [b65536].End(3).Row
If UCase(TextBox2.Value) <> Left(Cells(i, 2), a) And LCase(TextBox2.Value) <> Left(Cells(i, 2), a) Then
Rows(i).Hidden = True
End If
Next
If TextBox2.Value = "" Then Rows("2:" & x).EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
koduyla TextBox arama yaptığımda, aranan kelimelerin üzerinin renklenmesini istiyorum...kolay gelsin...
Application.ScreenUpdating = False
x = WorksheetFunction.CountA([b:b]) + 3
Rows("2:" & x).EntireRow.Hidden = False
a = Len(TextBox2.Value)
For i = 2 To [b65536].End(3).Row
If UCase(TextBox2.Value) <> Left(Cells(i, 2), a) And LCase(TextBox2.Value) <> Left(Cells(i, 2), a) Then
Rows(i).Hidden = True
End If
Next
If TextBox2.Value = "" Then Rows("2:" & x).EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
koduyla TextBox arama yaptığımda, aranan kelimelerin üzerinin renklenmesini istiyorum...kolay gelsin...