Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range(Target.Address).Value = "X" Then
Range(Target.Address).Value = ""
Else
Range(Target.Address).Value = "X"
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Range(Target.Address).Value = "X" Then
Range(Target.Address).Value = ""
Else
Range(Target.Address).Value = "X"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim INTERVALO As Range
    Set INTERVALO = ThisWorkbook.Sheets("Plan1").Range("D4:D23")
    Dim INTERVALO2 As Range
    Set INTERVALO2 = Application.Intersect(Target, INTERVALO)
    If Not INTERVALO2 Is Nothing Then
        If Range(Target.Address).Value = "X" Then
            Range(Target.Address).Value = ""
        Else
            Range(Target.Address).Value = "X"
        End If
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim INTERVALO As Range
    Set INTERVALO = ThisWorkbook.Sheets("Plan1").Range("D4:D23")
    Dim INTERVALO2 As Range
    Set INTERVALO2 = Application.Intersect(Target, INTERVALO)
    If Not INTERVALO2 Is Nothing Then
        If Range(Target.Address).Value = "X" Then
            Range(Target.Address).Value = ""
        Else
            Range(Target.Address).Value = "X"
        End If
    End If
End Sub

Funcionou no arquivo anexo. Se não funcionar na sua planilha, crie outra, pois ela está estranha.

Essa Macro ficou do jeito que quero

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim INTERVALO As Range
Set INTERVALO = ThisWorkbook.Sheets("Plan1").Range("D4:D23")
Dim INTERVALO2 As Range
Set INTERVALO2 = Application.Intersect(Target, INTERVALO)
If Not INTERVALO2 Is Nothing Then
If Range(Target.Address).Value = "X" Then
Range(Target.Address).Value = ""
Else
Range(Target.Address).Value = "X"
End If
End If
End Sub

porem quando seleciono mais de uma linha , ela da o erro 13

tem como tirar esse erro ?

caso nao tenha , uso essa de duplo clique .
vlew !!!

seleciono mais de uma linha pra apagar varias linhas que eu quis dizer ai ....

Veja se assim melhora:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim INTERVALO As Range
    Set INTERVALO = ThisWorkbook.Sheets("Plan1").Range("D4:D23")
    Dim INTERVALO2 As Range
    Set INTERVALO2 = Application.Intersect(Target, INTERVALO)
    If Not INTERVALO2 Is Nothing Then
    Application.EnableEvents = False
        If Range(Target.Address).Value = "X" Then
            Range(Target.Address).Value = ""
        Else
            Range(Target.Address).Value = "X"
        End If
        Application.EnableEvents = True
    End If
End Sub

Este vídeo explica um código parecido:

https://www.youtube.com/watch?v=6yzzeWKbHAQ&t=806s

quando seleciono mais de uma linha ele da o erro ainda , mais de boa ....

Pode ser que assim melhora:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    Dim INTERVALO As Range
    Set INTERVALO = ThisWorkbook.Sheets("Plan1").Range("D4:D23")
    Dim INTERVALO2 As Range
    Set INTERVALO2 = Application.Intersect(Target, INTERVALO)
    If Not INTERVALO2 Is Nothing Then
    Application.EnableEvents = False
        If Range(Target.Address).Value = "X" Then
            Range(Target.Address).Value = ""
        Else
            Range(Target.Address).Value = "X"
        End If
        Application.EnableEvents = True
    End If
End Sub

Ficou bacana .
melhor do que tinha pensado , pois aassim ao selecionar ja apaga.
vlew

marciobin

Só faltou clicar na mãozinha para agradecer aos colaboradores.
Acesse o link abaixo para saber como funciona, pois você marcou a tua resposta com Resolvido e tem que marcar a resposta que te atendeu:

viewtopic.php?f=7&t=16757

[]s

Patropi - Moderador