bul ctrl f nasıl özelleştirilir??

[orkaelk]

bul tuşunu kullanırken istediğim satıra geldiğinde satırın renginin farklı olabilmesi mümkünmü.
tablo tamamen sarı iken bul tuşu ile bulduğum satırın kırmızı olması gibi

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil işinizi görür ise inceleyiniz.

Private Sub CommandButton1_Click()
Dim deg As Range
Cells.Interior.ColorIndex = xlNone
Set deg = Cells.Find(TextBox1, LookAt:=xlWhole)
If Not deg Is Nothing And TextBox1 <> "" Then
deg.Select
ActiveCell.EntireRow.Interior.ColorIndex = 3
Else
MsgBox "Aranılan veri bulunamamıştır", vbInformation
End If
Set deg = Nothing
End Sub