WAGNER DE MELO DUARTE

@CasaDoHardware Obrigado por todas as dicas. adicionado 3 minutos depois @osvaldomp Antes de tudo, quero aqui registrar meu agradecimento pela sua ajuda, meu muito obrigado a você por toda a paciência, pela orientação e pelas correções feitas. Quero também dizer o quanto esse espaço é valioso (aprendi bastante em outros tópicos) e demonstra claramente que existem pessoas que prezam o partilhar de informação e conhecimento, estando dispostas a oferecer ajuda. Obrigado a todos.

@osvaldomp Obrigado pelo alerta, encaminho novamente a tabela. Saudações PLANILHA OFICINA teste 3.rar adicionado 4 minutos depois @osvaldomp Muito obrigado, vou fazer isso e qualquer dúvida eu pergunto. adicionado 13 minutos depois @osvaldomp Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 11 Or Target.Value <> "OK" Then Exit Sub Cells(Target.Row, 1).Resize(, 12).Copy Sheets("ARQUIVO TRABALHOS REALIZADOS").Cells(Rows.Count, 1).End(3)(2) Rows(Target.Row).Delete End Sub Bom dia, coloquei no VBA, salvei, mas nada aconteceu, devo ter deixado de fazer alguma coisa. você poderia me dizer qual como devo fazer? Eu bari o VBA (ALT+F11) selecionei a tabela TRABALHOS EM EXECUÇÃO, depois inserir módulo, colei a rotina que me mandou salvei e fechei, mas não funcionou, o que deixei de fazer? Obrigado mesmo.

@osvaldomp Estou fazendo no Office, não sei o que houve, envio novamente, desculpe pela dificuldade. Obrigado PLANILHA OFICINA teste 3.rar adicionado 7 minutos depois @CasaDoHardware Boa tarde, então, há 3 planilhas, trabalhos em execução, arquivos de trabalhos realizados e fomulário. Quando insiro uma nova através da macro salvar no formulário, ele cria uma nova linha, a partir da linha 4, essa nova linha fica com todas as condicionais programadas, mas não leva a fórmulas da coluna H (FINALIZADO), essa daqui =SE(G4=0;"";"OK"), ou seja, se data real de entrega estiver preenchida ela marca OK na coluna H. A ideia do VBA seria fazer com que TODA LINHA que estivesse anotada como OK na linha H fosse apagada e seus dados transferidos para o ARQUIVO, arquivos trabalhos realizados. Desde já agradeço imensamente a ajuda, deixo a planilha aqui para caso possa dar uma olhada e, se possível me dar alguma dica, saudações. PLANILHA OFICINA teste 3.rar

@osvaldomp Vou tentar anexar de novo, muito obrigado PLANILHA OFICINA TESTE.rar

@osvaldomp Muito obrigado pelo aviso, compactei e anexei. valeu pela força. PLANILHA CONTROLE OFICINA.rar

@patropi obrigado pela dica. planilha controle oficina.xlsx

PLANILHA CONTROLE OFICINA.xlsxSaudações a todos, por favor, será que alguém poderia me dar uma ajuda no EXCEL para manter a fórmula em uma célula quando uma linha é inserida. Eu criei um formulário com uma MACRO para inserção de novos dados (através de uma nova linha), a linha inserida leva todas as regras condicionais automaticamente, mas não leva as fórmulas. Obrigado desde já.

Muito obrigado pela dica, segue a tabela. PLANILHA CONTROLE OFICINA.xlsx adicionado 1 minuto depois

Boa tarde, gostaria de uma ajuda, eu tenho que controlar uns trabalhos aqui na oficina, uso o excel para isso, gostaria de alguma dica de MACRO para que eu pudesse retirar da plan1 "Trabalhos em execução" todos os que forem concluídos e levá-los para a plan2, "Arquivo de trabalho realizados". Ou seja, na plan1 há uma coluna com FINALIZADO, todas as linhas com OK (J) nessa coluna deveriam sair da planilha1 (Trabalhos em Execução) e migrar para a planilha 2 (Arquivo de Trabalhos Realizados), sendo que estas linhas com OK seriam apagas logo em seguida da planilha 1 (Trabalhos em Execução). Muito obrigado 1- A ideia seria que o código colasse os registros na linha 1 da Plan2 e empurrasse os mais antigos para baixo, mantendo o que já está armazenado. 2. A vontade é de deixar a Plan1 o mais intacta possível para não perder as fórmulas e condicionantes, então seria só mesmo apagar o conteúdo da linha cuja coluna J estivesse marcada como OK. A linha da plan1 está compreendida entre A até K. Tentei adaptar esse VBA e não consegui. Sub CopiaLinhaCritério() Do While Range("A1").Select Cells.Find(What:="OK").Activate lin = ActiveCell.Row Rows(lin).Select Selection.Copy Sheets("Plan2").Select ActiveSheet.Paste Rows("1:1").Select Application.CutCopyMode = False Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("Plan1").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp Range("A1").Select Loop End Sub