Este fórum está sendo desativado

[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á!

[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.

[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!

[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.

[caromacedo]

Perfeito! Me ajudou muitíssimo!!!
Já ajustei as células que continham fórmulas desnecessárias!
Muito obrigada!