COPIAR E EXCLUIR LINHA

RVC5 18/06/2013 22:31:22
#424960
Boa Noite

Não tenho muito conhecimento em VBA, mas desenvolvi um trabalho que contem 6 planilhas.

Minha dúvida é que quando marco a CheckBox [Ô]Consertado[Ô], quero que os dados dessa linha sejam copiados para a Plan [Ô]Consertado[Ô], consegui que copiasse com o seguinte macro:

If Check_Consertado.Value = True Then
ActiveCell.EntireRow.Copy (ThisWorkbook.Worksheets([Ô]Consertado[Ô]).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0))
End If

Porém ele copia todas as linhas da Plan1 para a Plan [Ô]Consertado[Ô] e quero que copie apenas a linha onde está com o CheckBox marcado.

Depois, caso eu desmarque essa CheckBox dessa mesma linha, quero que a linha seja apagada da Plan [Ô]Consertado[Ô].

Aguardo uma ajuda, Obrigado!
Faça seu login para responder