code highlight range based on values in column not work correctly

[abdelfattah]

hello
I have this code what I'm trying when fill the values in column C should highlight the range from COL A: COL C and if the cells in COL C are empty then shouldn't highlight
I note when I press twice in empty cells in COL C also highlight by yellows color how can I fix it please ?

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cell As Range

    If Not Intersect(Target, Columns("C:C")) Is Nothing Then
        For Each cell In Intersect(Target, Columns("C:C"))
            If IsNumeric(cell) Then
                cell.Interior.Color = 65535
            Else
                cell.Interior.Pattern = xlNone
            End If
        Next cell
    End If

    
End Sub

 

[mumps]

It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach a screenshot (not a picture) of your sheet. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).

 

[abdelfattah]

this is my file it only highlight based on numbers value in col C not text or symbol just numeric
1.xlsm

 

[mumps]

when I press twice in empty cells in COL C also highlight by yellows color

By "press twice" do you mean that if you "double click" in an empty cell in column C, you want to highlight A:C in yellow?

 

[abdelfattah]

I mean if if I fill value in col c then highlight but I double click in empty cell shouldn't highlight

 

[mumps]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 3 Then Exit Sub
    If IsNumeric(Target) And Target <> "" Then
        Range("A" & Target.Row).Resize(, 3).Interior.ColorIndex = 39
    ElseIf Target = "" Then
        Range("A" & Target.Row).Resize(, 3).Interior.ColorIndex = xlNone
    End If
End Sub

 

[abdelfattah]

excellent ! this exactly what I want just I want adding condition and message boxes what I want when I don't write number in COL C should show message " you have to enter only number and the condition the value should be 100 when enter more or less than this value in COL C then should show message " you have to enter the value is 100 "

thanks again

 

[mumps]

Do you want to force the value of 100 to be entered in column C immediately after you enter a value in column B? In other words, column C would never be blank. Please clarify in detail, step by step.

 

[abdelfattah]

no I'm just wanting to force the value of 100 to be entered in COLUMN C when enter for instance 120 or 90 as you see more and less then should show the message and if I write in COL C like date or number with text or symbols , then also show message" you have to add only value is 100 ,the COL A,B are not relating with COL C

 

[mumps]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 3 Then Exit Sub
    If Target <> 100 And Target <> "" Then
        MsgBox ("The value must be 100.")
        Range("C" & Target.Row) = 100
        Range("A" & Target.Row).Resize(, 3).Interior.ColorIndex = 39
    ElseIf Target = "" Then
        Range("A" & Target.Row).Resize(, 3).Interior.ColorIndex = xlNone
    End If
End Sub