Este fórum está sendo desativado

[Waltricke]

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.

[osvaldomp]

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

[Waltricke]

Meu amigo, muito obrigado!

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

Grande abraço!