Este fórum está sendo desativado

[CarlinhosW]

Bom dia a todos.

Estou precisando de um ajuda, tenho um planilha que controla algumas reposições de materiais.
na aba GERAL, eu coloco todas as reposições que tenho a fazer, apos feita eu copio e colo para aba de aprovadas.

Gostaria de saber se existe algum comando que possa fazer para que eu coloque um OK no stats da aba Geral e ela va automaticamente para aba APROVADAS e assim sumindo da aba Geral.

Planilha está em anexo.

Desde já agradeço a ajuda de todos.

Att,

Carlos

[osvaldomp]

Olá, @CarlinhosW .

Segue uma sugestão. Veja se aproveita.

Cole uma cópia do código abaixo no módulo da planilha GERAL.
Para acessar o código 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 <> 11 Or Target.Value <> "OK" Then Exit Sub
 Application.ScreenUpdating = False
 Cells(Target.Row, 1).Resize(, 11).Copy
 Sheets("APROVADAS").Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
 Rows(Target.Row).Delete
End Sub

#
funcionamento - ao inserir manualmente o texto "OK" na coluna K da planilha GERAL, o código irá replicar os dados da linha na planilha APROVADAS e em seguida irá excluir a linha na GERAL.