Este fórum está sendo desativado

[Domingsp]

Olá, tudo bem? na planilha anexada gostaria de preencher o intervalo F3:N3 escrevendo EXCEL2016. As letras e números da palavra estão em C3:C11.
Conforme vou digitando cada caracter em F3:N3, o mesmo caracter deve ser apagado de C3:C11. Se tiver dois ou mais iguais, somente um será apagado, conforme digito.
Consegui um resultado apenas para o primeiro "E". Peço uma ajuda para prosseguir.
Gostaria que funcionasse para qualquer palavra ou combinação de caracteres.

Desde já, obrigado.

EXEMPLO.xlsm

[osvaldomp]

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim  c As Range, k As Long
  If Target.Count > 1 Then Exit Sub
  If Intersect(Target, [F3:N3]) Is Nothing Or Target.Value = "" Then Exit Sub
  For k = 1 To Len(Target.Value)
   Set c = [C3:C11].Find(Mid(Target.Value, k, 1))
   If Not c Is Nothing Then c.Value = ""
  Next k
End Sub

##
funcionamento: após inserir manualmente um ou mais caracteres em alguma célula de F3:N3, o código irá procurar em C3:C11 duplicados dos caracteres inseridos e irá apagá-los, caso existam.

[Domingsp]

Perfeito! Obrigado, osvaldomp