البحث فى خلية مع التلوين

Dim lColor As Long



Private Sub CommandButton1_Click()

    If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then

        lColor = ActiveWorkbook.Colors(10)

    End If

    TextBox1.SetFocus

End Sub



Private Sub TextBox1_AfterUpdate()

    Dim x

    If lColor = 0 Then MsgBox "Select Color First", vbExclamation: Exit Sub

    x = Application.Match(Val(TextBox1.Value), Sheet1.Columns(1), 0)

    If Not IsError(x) Then

        Sheet1.Cells(x, 1).Interior.Color = lColor

    End If

    TextBox1.Text = Empty

End Sub