Este fórum está sendo desativado

[NeowG]

Ola pessoa, estou avançando no meu projeto e me deparei com uma situação a qual não achei solução, o objetivo do projeto é simples: entrada dedados, simular valores dos planos, e salvar para depois poder entrar em contato, na outra aba (lista de espera) ficam os dados salvos, e ai eu não estou conseguindo formular uma solução a partir daqui, preciso de ajuda para atravez de um botão ou de forma programada, transferir a linha toda desse cliente especifico de lista de espera, para lista de matriculado.

a lista de espera e de matriculados são identicas, o problema que eu estou é de achar algum jeito de criar uma rotina de transferir a linha para a outra planilha e consequentemente, apagar-se da lista de espera.


[*]esta é a tela que simula e salva se for de agrado


[*]Esta é a segunda planilha que é a lista de espera, e onde estou travado, não estou conseguindo formular ou achar uma solução para transpor dela para a de matriculados.
eu até pensei em quando eu informar Matriculado na ultima linha uma macro para pegar isso e transportar a linha para o outro lado,mas não sei nem se isso é possivel

[osvaldomp]

Olá, @NeowG .

Veja se o código abaixo pode lhe ajudar.

Cole uma cópia no módulo da planilha Lista de Espera. 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 <> 31 Or Target.Value <> "Matriculado" Then Exit Sub
 Cells(Target.Row, 1).Resize(, 31).Cut Sheets("Matriculados").Cells(Rows.Count, 1).End(3)(2)
 Rows(Target.Row).Delete
End Sub

#
funcionamento - após o usuário inserir manualmente na coluna AE a palavra Matriculado, por digitação ou por seleção na lista de Validação, o código irá transferir o registro da linha correspondente para a planilha Matriculados.

[NeowG]

Nossa muito obrigado, eu aqui pensando criei um botão e graveiuma macro, mas ainda não estava perfeito, com sua ajuda meu projeto esta completo,grato