Deletar dados da célula que atende condição

Amanda Rodrigues · 14 de outubro de 2014

Galera,

Boa noite.

Preciso de uma macro que delete todo o conteudo de um grupo de celulas caso o conteudo de uma celula daquela linha seja um valor determinado.

Ex: tenho na coluna Q a palavra "ATIVO" PARA FUNCIONÁRIOS ATIVOS E "INATIVO" PARA FUNCIONARIOS DESLIGADOS.

Eu preciso que cada vez que uma linha da coluna Q esteja com o valor INATIVO, ele automaticamente delete todo o conteudo das colunas AV até a BH daquela linha.

Alguem me ajuda?????

Grata,

Amanda

Basole · 15 de outubro de 2014

Seja bem vinda ao forum. Abra a planilha, click c/ botao direito na aba (ex. "plan1"), em seguida em "exibir codigo" e cole o codigo abaixo.: E para testar insira "INATIVOS" (s/aspas), na coluna "q'"

Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("q1:q9999")) Is Nothing And Target.Cells.Value = "INATIVO" Then     Application.EnableEvents = False     Range("av" & Target.Row & ":bh" & Target.Row).ClearContents     Application.EnableEvents = True   End IfEnd Sub