macro recortar linha inteira e colar em outra aba

[cesar.hd]

Tem como montar uma planilha de pagamentos, que quando marcar "pago" na coluna D, recorte a linha inteira da aba e cole na aba seguinte(pagos)?

[Patropi]

Boa noite Cesar

Seja bem vindo ao fórum!

No link abaixo tem uma macro que faz o que você deseja quando seleciona a linha.

http://blog.planilhasexcel.com/2012/08/macro-mover-linha-para-outra-planilha.html

Um abraço.

[Visitante]

Instale o código abaixo no módulo da planilha 'pagamentos', assim:

1. copie o código daqui

2. clique com o direito na guia da planilha e escolha 'Exibir código'

3. cole o código na janela em branco que vai se abrir

4. feito! 'Alt+Q' para retornar para a planilha e testar

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column <> 4 Then Exit Sub
 If Target.Value <> "pago" Then Exit Sub
 Dim LR As Long
  With Sheets("pagos")
   LR = .Cells(Rows.Count, 1).End(xlUp).Row
   .Cells(LR + 1, 1).Resize(, 4).Value = Cells(Target.Row, 1).Resize(, 4).Value
  End With
Rows(Target.Row).Delete
End Sub

[AlysonR]

Olha ai este exemplo ^^

Arquivo: Pasta1