Validate three conditions and insert row

[adrianoam]

Querido
Estou trabalhando com uma macro (contribuição de um colega do fórum) que insere uma linha abaixo sempre que a resposta for PC ou NC.
====
>>> use code - tags <<<

Private Sub Worksheet_Change(ByVal Target As Range)
Em Erro Continuar Próximo
If Not Intersect(Target, Range("V:V")) Não é Nada Então
Application.EnableEvents = False
Alvo = UCase(Destino)
Application.EnableEvents = Verdadeiro
Fim se
Em erro GoTo 0

Se Alvo.Coluna <> 22 Ou Alvo.Texto <> "NC" E Alvo.Texto <> "PC" Então Exit Sub
Linhas(Destino.Linha + 1).Inserir
Células(Target.Row + 1, 23).Resize(, 42).Mesclar
Células(Destino.Linha + 1, 23).Selecione
Células(Destino.Linha + 1, 22).LimparConteúdo
Finalizar Sub

====

Como deve ser
--------------------
Bloco 1
----------
Pergunta 1 = C
Questão 2 = NC (Como a resposta foi NC, insira uma linha abaixo da questão 2)
Pergunta 3 = C
Pergunta 4 = C
Questão 5 = PC (Como a resposta foi PC, insira uma linha abaixo da questão 5)
(Como as respostas do PC ou NC apareceram neste bloco, insira mais uma linha abaixo da pergunta 5)
----------
Bloco 2
----------
Pergunta 1 = C
Pergunta 2 = C
Questão 3 = NC (Como a resposta foi NC, insira uma linha abaixo da questão 3)
(Como as respostas do PC ou NC apareceram neste bloco, insira mais uma linha abaixo da pergunta 3)
----------
Bloco 3
----------
Pergunta 1 = C
Pergunta 2 = PC (Como a resposta foi PC, insira uma linha abaixo da pergunta 2)
Pergunta 3 = C
Pergunta 4 = C
(Como as respostas do PC ou NC apareceram neste bloco, insira uma linha abaixo da pergunta 4)

 

[Marc L]

Wild cross posting ‼ As a reminder :​

Site Rules - New Users - Please Read

Hi all, Welcome to the Chandoo.org Forums. Posting Rules & Etiquette The Chandoo.org Forums is a collaborative and happy place to learn and expand your Excel knowledge. The Chandoo.org Forums consist of several Sub-Forums based on the type of question/area of Excel you are interested in...

chandoo.org