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

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

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

Gracias @avalencia.

Un abrazo.

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

 

@Antoni, perfecto.

Gracias.