Marcar y desmarcar Check de formato condicional al hacer dobleclick

[Pirtrafilla]

Buenas a todos de nuevo.

Necesito ayuda con esto. Subo un archivo donde necesitaría que al hacer doble click  sobre las celdas donde hay un formato condicional  que al poner 1 se marca un check, pues que si hay un 1 se ponga 0 y al volver a hacer doble click borre el 1.

Así no tengo que estar escribiendo constantemente o borrando.

No encuentro como hacerlo. ¿podéis ayudarme?

Gracias de antemano.

 

 

Nuevo Checklist.xlsm

[Pirtrafilla]

Hola, he añadido este código. No creo que sea el más adecuado aunque me funciona. Lo digo porque solo necesito que me afecte a las columnas J, O y T pero he cogido el rango entero. Si podéis ayudarme a dejar el código más ortodoxo lo agradezco.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next

If Intersect(Target, Range("J:T")) = 1 Then
Target.Value = ""
Exit Sub
End If
If Not Intersect(Target, Range("J:T")) Is Nothing Then
If Target.Value = "" Then Target.Value = 1
End If

Cancel = True

End Sub

 

Nuevo Checklist.xlsm

[Abraham Valencia]

Hola

Sin ver tu archivo, prueba cambiando por esto la línea o líneas respectivas:

If Not Application.Intersect(Target, Range("J:J, O:O, T:T")) Is Nothing Then

Saludos

[Pirtrafilla]

Gracias @avalencia.

Un abrazo.

[Antoni]

Aplicando la respuesta de Abraham, podría quedar así:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("J:J,O:O,T:T")) Is Nothing Then
   Cancel = True
   If Target = "" Then
      Target = 1
   Else
      Target = ""
   End If
End If
End Sub

 

[Pirtrafilla]

@Antoni, perfecto.

Gracias.