Macro que copia linha e cria outra planilha de armazenamento

Question

Estou precisando de ajuda, pois gostaria de realizar uma planilha que o usuário iria entrar com as seguintes informações:

CENTRO DE CUSTO	TIPO	MODALIDADE	VALOR	DATA DE EMISSÃO NF
I000550	MANUTENÇÃO	CORRETIVA	R$ 5000,00	23/11/2019

E do lado haveria um botão de gravar dados, quando esse botão acionado ele salvaria essa linha em uma outra planilha. Depois o usuário preencheria novamente e salvaria. Então o dado seria salvo na outra planilha na linha abaixo.

Estou usando o seguinte código, porém perco os dados anteriores e não pulo a linha para salvar:

Sub copiarDadosEntrePlanilhas()

'Copiar dados

Sheets("Planilha2").Range("B3:F22").Copy

'Ativa a planilha de destino

Sheets("Planilha3").Activate

'Seleciona o intervalo de destino

Range("B3").Select

'cola os dados de destino

ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select

ActiveCell.Value = ActiveCell.Value + 1

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

Answer 1

Que bom, ficou feliz em poder ter te ajudado.

Não esqueça de fechar o post marcando a minha postagem como resposta.

Abraços!

Answer 2

Se entendi a sua necessidade, ajuste o seu código conforme abaixo:

Sub copiarDadosEntrePlanilhas()

'Copiar dados

Sheets("Planilha2").Range("B3:F22").Copy

'Ativa a planilha de destino

Sheets("Planilha3").Activate

'Seleciona o intervalo de destino

Range("B" & Sheets("Planilha3").Range("B" & Rows.Count).End(xlUp).Row + 1).Select

'cola os dados de destino

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

Answer 3

Valeu Rafel, 

deu certo com esse código era isso mesmo.