Este fórum está sendo desativado

[TiagoVieira]

Olá,

gostaria de saber como faço para copiar uma linha inteira da planilha 1
se a coluna H da planilha 1 conter a palavra atrasou,

neste caso quero que copie para a planilha 2 no caso.

não sei se é relevante mais a coluna H é uma fórmula que mostra se saiu no prazo ou se atrasou.

[osvaldomp]

É possível via macro.
Se houver interesse então disponibilize uma amostra do seu arquivo Excel (imagens não servem), com as fórmulas e informe como você quer o resultado na Planilha2.

[TiagoVieira]

segue o arquivo

Copiar a linha da planilha 1 para outra planilha se a coluna I acusar atraso

[osvaldomp]

Instale uma cópia do código abaixo no módulo da planilha CONTROLE PEDIDO, assim:
1. copie o código daqui
2. clique com o direito na guia daquela planilha e escolha 'Exibir Código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column <> 6 Or Cells(Target.Row, "I") <> "ATRASOU" Then Exit Sub
 Application.ScreenUpdating = False
 Cells(Target.Row, "A").Resize(, 9).Copy
 Sheets("MOTIVO ATRASO").Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
 Application.CutCopyMode = False
End Sub

#
funcionamento - na planilha CONTROLE PEDIDO após inserir manualmente a data na coluna F e se a fórmula na coluna I retornar ATRASOU então o código irá replicar a linha correspondente na planilha MOTIVO ATRASO.

[Deciog]

TiagoVieira, Bom Dia.

Fiz por formula confere se é desta forma que desejas

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio

[TiagoVieira]

Funcionou
O passo a passo deu certinho sem nenhum problema .

Obrigado pela ajuda @osvaldomp
salvou minha vida cara.

[TiagoVieira]

Olá @Deciog , desta forma funcionou muito bem , Muito obrigado pela ajuda.

[TiagoVieira]

Instale uma cópia do código abaixo no módulo da planilha CONTROLE PEDIDO, assim:
1. copie o código daqui
2. clique com o direito na guia daquela planilha e escolha 'Exibir Código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column <> 6 Or Cells(Target.Row, "I") <> "ATRASOU" Then Exit Sub
 Application.ScreenUpdating = False
 Cells(Target.Row, "A").Resize(, 9).Copy
 Sheets("MOTIVO ATRASO").Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
 Application.CutCopyMode = False
End Sub

#
funcionamento - na planilha CONTROLE PEDIDO após inserir manualmente a data na coluna F e se a fórmula na coluna I retornar ATRASOU então o código irá replicar a linha correspondente na planilha MOTIVO ATRASO.

Me desculpe só tenho uma observação, se por um acaso eu mudar a data manualmente a célula vai retornar o como prazo. neste caso os dados que foram copiados para a planilha 2 não somem?

[osvaldomp]

Se você quiser que nesses casos o registro antes replicado seja excluído da planilha MOTIVO ATRASO então podemos acrescentar os comandos ao código. Para ser viável essa operação de exclusão será necessário criar um identificador único para cada registro na planilha CONTROLE PEDIDO, assim será possível localizá-lo e excluí-lo.

Por exemplo, poderia ser o número do pedido, coluna C, porém no seu exemplo o número está repetido, não sei se na planilha original esse número é único ou se repete. Outra opção seria inserir uma coluna vazia em A e nela criar um número sequencial automático para cada registro. Ou outra forma que você puder encontrar. Veja qual a melhor opção e retorne para as alterações no código.