Este fórum está sendo desativado

[Marcioaraujo]

Galera, boa tarde.
Estou querendo fazer uma macro que execute as seguintes funções.
Quando determinada célula for preenchida com a palavra "SIM", seja copiada a referida linha da planilha "A" e colada em uma planilha "B", e que a referida linha seja excluída da planilha "A".
Estou tentando usar "Cells.Active.Row", mas não está funcionando.
Alguém poderia me ajudar.
Desde já agradeço.
Márcio Araújo.

[osvaldomp]

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 On Error Resume Next
 Application.EnableEvents = False
 If Target.Value = "SIM" Then Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Copy Sheets("Plan2").Cells(Rows.Count, 1).End(3)(2):  Rows(Target.Row).Delete
 Application.EnableEvents = True
End Sub