Mover dados entre abas e excluir a linha.
Enviado: 21 Ago 2021 às 13:40
por GENECI
Boa tarde!
Solicito a sua ajuda conforme o anexo.
Grato.
Re: Mover dados entre abas e excluir a linha.
Enviado: 23 Ago 2021 às 10:17
por osvaldomp
Olá,
@GENECI .
Veja se atende.
Código: Selecionar todosSub Teste()
Dim c As Range
For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
If c.Value = "T" Then c.Resize(, 16).Cut Sheets("DESTINO").Cells(c.Row, 1)
Next c
[A1] = "hdr"
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
[A1] = ""
End Sub
Re: Mover dados entre abas e excluir a linha.
Enviado: 23 Ago 2021 às 11:02
por GENECI
Bom dia! osvaldomp
Muito obrigado por atender a solicitação.
Fizestes como solicitado.
Atende parcialmente.
Não me fiz entender, na aba ORIGEM na coluna A, quando constar a letra T, após teclar o enter automaticamente transferir o conteúdo para a aba DESTINO, para o endereço da mesma linha.
O conteúdo da aba ORIGEM que não foi movido deve permanecer na aba ORIGEM, porém excluir a linha do conteúdo movido para a aba DESTINO, de modo que a aba ORIGEM, não deverá ficar com células da coluna A em branco.
Grato,
Geneci.
Re: Mover dados entre abas e excluir a linha.
Enviado: 23 Ago 2021 às 11:43
por osvaldomp
GENECI escreveu: ↑23 Ago 2021 às 11:02
... quando constar a letra T, após teclar o enter automaticamente transferir o conteúdo para a aba DESTINO ...
Essa explicação muda tudo. 
Desconsidere o código que postei antes e cole uma cópia do código abaixo no módulo da planilha
ORIGEM.
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
If Target.Value = "T" Then Cells(Target.Row, 1).Resize(, 16).Cut Sheets("DESTINO").Cells(Target.Row, 1)
Rows(Target.Row).Delete
End Sub
Re: Mover dados entre abas e excluir a linha.
Enviado: 23 Ago 2021 às 12:04
por GENECI
Funcionou conforme solicitação.
Muito obrigado.
Geneci.