Página 1 de 1

Passar linha para outra planilha quando insere uma data de devolução

Enviado: 07 Fev 2023 às 13:18
por caromacedo
Boa tarde pessoal,

Cuido voluntariamente de um banco de produtos ortopédicos que são emprestados. Lanço tudo em uma planilha.

Queria que, quando eu lançasse na linha uma data de devolução desse produto, aquela minha linha inteira passasse para outra planilha dos "DEVOLVIDOS", isso é possível?

Muito obrigada desde já!

Re: Passar linha para outra planilha quando insere uma data de devolução

Enviado: 07 Fev 2023 às 15:54
por osvaldomp
Sim, é possível via macro.

Retorne se houver interesse e informe o que você quer fazer com a linha de origem dos dados.

dica - a sua planilha tem dados da coluna A até a J, no entanto ela tem Formatação Condicional até a última coluna da planilha. Isso provoca sobrecarga ao Excel e no futuro poderá causar lentidão, travamento e demora para abrir o arquivo.

Re: Passar linha para outra planilha quando insere uma data de devolução

Enviado: 07 Fev 2023 às 16:17
por caromacedo
Olá!

Sim! Gostaria que quando tivesse uma data de devolução na Coluna F, toda linha fosse excluída da planilha "Andadores" e fosse para a planilha "Devolvidos".

Muito obrigada pela dica, vou ajustar! :D

Re: Passar linha para outra planilha quando insere uma data de devolução

Enviado: 07 Fev 2023 às 17:43
por osvaldomp
Cole uma cópia do código abaixo no módulo da planilha ANDADORES.

Para acessar o módulo clique com o direito na guia daquela planilha e escolha Exibir Código.
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Column <> 7 Or Target.Value = "" Then Exit Sub
 Sheets("DEVOLVIDOS").Cells(Rows.Count, 1).End(3)(2).Resize(, 10) = Cells(Target.Row, 1).Resize(, 10).Value
 Rows(Target.Row).Delete
End Sub
##
funcionamento - após preencher manualmente na planilha ANDADORES qualquer célula da coluna G (DEVOLUÇÃO) o código irá replicar na primeira linha vazia da planilha DEVOLVIDOS os dados de A até J, correspondentes à linha da célula preenchida. Em seguida irá excluir a linha de origem dos dados.

obs. na planilha ANDADORES até a linha 33 as células da coluna A contém fórmulas e a partir da linha 34 elas contém números; após rodar o código em uma linha que contém fórmula na coluna A, as fórmulas abaixo dela retornarão erro (#REF!).
Se a numeração na coluna A for necessária, então retorne se você quiser algum ajuste ou alteração no código.

Re: Passar linha para outra planilha quando insere uma data de devolução

Enviado: 08 Fev 2023 às 09:24
por caromacedo
Perfeito! Me ajudou muitíssimo!!!
Já ajustei as células que continham fórmulas desnecessárias!
Muito obrigada!