Double click code

[noelmus]

I have cell K8 with color fill yellow and I'm using the code below so that it became a no fill cell when double click on it. I think that I have something wrong in the code since its not functioning.
Thanks

Private Sub Worksheet_Change(ByVal Target As Range)  
  If Not Intersect(Target, Range("K8")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target.Value = "" Then
            Target.Interior.ColorIndex = 6
        Else
            Target.Interior.ColorIndex = xlNone
        End If
    End If
End Sub


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)




  If Not Intersect(Target, Range("K8")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target.Value = "" Then
            Target.Interior.ColorIndex = 6
        Else
            Target.Interior.ColorIndex = xlNone
        End If
    End If
    


End Sub

 

[rlv01]

What if you trim the target value?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("K8")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Trim(Target.Value) = "" Then
            Target.Interior.ColorIndex = 6
        Else
            Target.Interior.ColorIndex = xlNone
        End If
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("K8")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Trim(Target.Value) = "" Then
            Target.Interior.ColorIndex = 6
        Else
            Target.Interior.ColorIndex = xlNone
        End If
    End If
End Sub

 

[DanteAmor]

What is the sequence? you delete the contents of cell K8, then the Change event is activated, it verifies that the cell is = "" then it puts the color yellow, if you press double click on the cell, do you want it to change to unfilled? If so, then try:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("K8")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target.Value = "" Then
            Target.Interior.ColorIndex = 6
        Else
            Target.Interior.ColorIndex = xlNone
        End If
    End If
End Sub
'
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("K8")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target.Interior.ColorIndex = 6 Then wc = xlNone Else wc = 6
        Target.Interior.ColorIndex = wc
        'To avoid editing the cell
        Application.SendKeys "{ESCAPE}"
    End If
End Sub

 

[noelmus]

Hi,
Your code is doing like mine, its against what I need. Its fill the cell when it is a no fill color cell.
Thanks

 

[rlv01]

Your code is designed to turn the background (fill) yellow when double-clicked AND the cell is empty (""). Thats what the code says, and that's how it behaves on my PC. What is it you want it to do?

 

[noelmus]

Hi Dante,
Again you hit the nail on his head.
What I have to add to the code, if I need another cell do the same thing.

Thanks

 

[noelmus]

Hi,
I managed how to add another cell.
Thanks

 

[DanteAmor]

Hi Dante,
Again you hit the nail on his head.
What I have to add to the code, if I need another cell do the same thing.

Thanks

I'm glad to help you thanks for the feedback.