Este fórum está sendo desativado

[GENECI]

Boa tarde!
Solicito a sua ajuda conforme o anexo.

Grato.

[osvaldomp]

Olá, @GENECI .

Veja se atende.

Código: Selecionar todos

Sub 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

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

[osvaldomp]

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

Private 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

[GENECI]

Funcionou conforme solicitação.

Muito obrigado.

Geneci.