Guru do Excel e Power BI

Boa tarde.

Solicito a sua ajuda, conforme o arquivo anexo.

Grato - Geneci.

Boa tarde.
Veja se a opção apresentada é o que vc deseja.
Até
Foxtri

Olá, Geneci.

Na planilha você colocou C1:U16 mas me parece que você quis dizer C1:U19

opção1 - para rodar o código via botão ou outro meio, instale uma cópia do código abaixo em um módulo comum.

Código: Selecionar todos

Sub ApagaCritB1()
 [C1:U19].Replace [B1], "", xlWhole
End Sub

#
opção2 - para rodar o código automaticamente após alterar manualmente o valor de B1, instale uma cópia do código abaixo no módulo da planilha.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Address <> "$B$1" Or Target.Value = "" Then Exit Sub
 [C1:U19].Replace [B1], "", xlWhole
End Sub

Guru do Excel e Power BI

Excluir alfanuméricos conforme opção.

Excluir alfanuméricos conforme opção.

Re: Excluir alfanuméricos conforme opção.

Re: Excluir alfanuméricos conforme opção.