DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub TextBox1_Change()
On Error Resume Next
Columns("B").Interior.Color = xlNone
Set VV = Columns("B").Find(TextBox1.Text)
If Cells(VV.Row, "B") <> "" Then RANGE("B" & VV.Row & ":" & "P" & VV.Row).Interior.Color = vbRed
End Sub
Çok faydalı oldu. Teşekkürler...Altarnatif olsun 3 sayfada 3 farklı çözüm var.saygılar.