Guru do Excel e Power BI

Mestres, preciso de uma ajuda bem simples para eliminar esta mensagem de erro.

Na planilha anexa, criei um código para que nas células amarelas eu simplesmente digite um número e ele automaticamente seja convertido para a "bolinha" correspondente ao seu número.

A aplicação disso será em uma outra planilha de trabalho que está em desenvolvimento.

O problema é que, quando seleciono um intervalo de duas células ou mais (amarelas) e deleto os valores, me aparece essa mensagem de erro conforme os prints.

Quero poder preencher e deletar livremente (seja por intervalo ou seja por célula individual) sem nenhuma mensagem de erro.

Alguém me ajuda a corrigir isto? Fico no aguardo.

Olá, @Waltricke .

Acrescente a linha em vermelho, conforme abaixo.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

Segue abaixo um código alternativo ao seu.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Not Intersect(Target, Range("D4:H4")) Is Nothing And Target.Value >= 1 And Target.Value <= 9 Then
  Target.Value = Cells(Target.Value + 3, 2)
 End If
End Sub

Meu amigo, muito obrigado!

Utilizei o código alternativo que tu me passou e ficou bem melhor!

Grande abraço!

Guru do Excel e Power BI

Erro ao deletar valores em um intervalo de células selecionadas

Erro ao deletar valores em um intervalo de células selecionadas

Re: Erro ao deletar valores em um intervalo de células selecionadas

Re: Erro ao deletar valores em um intervalo de células selecionadas