0

Estou com um problema em uma macro, estou tentando copiar dados de uma planilha e colar em outra, porém esta dando um erro na hora de fazer o inserte de uma nova linha (em amarelo).

imagem do erro

Planilhas: origem

destino

Código:

Sub copiarDadosEntrePlanilhas()
Application.ScreenUpdating = False
Worksheets(2).Rows("2:2").Insert

'copia de Formulario para Apontamento
    Worksheets("Formulario").Range("B3").Copy Destination:=Worksheets("Apontados").Range("A2")
    Worksheets("Formulario").Range("H3").Copy Destination:=Worksheets("Apontados").Range("B2")
    Worksheets("Formulario").Range("B7").Copy Destination:=Worksheets("Apontados").Range("C2")
    Worksheets("Formulario").Range("H7").Copy Destination:=Worksheets("Apontados").Range("D2")
    Worksheets("Formulario").Range("N3").Copy Destination:=Worksheets("Apontados").Range("E2")
    Worksheets("Formulario").Range("N7").Copy Destination:=Worksheets("Apontados").Range("F2")
    Worksheets("Formulario").Range("N11").Copy Destination:=Worksheets("Apontados").Range("G2")
    Worksheets("Formulario").Range("N14").Copy Destination:=Worksheets("Apontados").Range("H2")
    Worksheets("Formulario").Range("B11").Copy Destination:=Worksheets("Apontados").Range("I2")
    Worksheets("Formulario").Range("H11").Copy Destination:=Worksheets("Apontados").Range("J2")
    Application.CutCopyMode = falso

'Mensagem de texto
    MsgBox "Registro concluído!", vbInformation, "Concluído"
    Application.ScreenUpdating = True

End Sub

print do erro junto com as informações solicitadas inserir a descrição da imagem aqui

6
  • 1
    Sabe qual a mensagem de erro que mostra?
    – Sam
    Commented 23/04/2018 às 14:31
  • nn deu para mandar a imagem aqui
    – user111043
    Commented 24/04/2018 às 11:27
  • @danieltakeshi pronto já fiz a alteração
    – user111043
    Commented 24/04/2018 às 13:29
  • @danieltakeshi 3ª linha "Worksheets("Apontados").Rows("2:2").Insert"
    – user111043
    Commented 24/04/2018 às 13:35
  • @danieltakeshi todas as células são mescladas por exemplo as celular entre B3 ate F4 são mescladas , e sim a macro pertence a essa planilha mesmo.
    – user111043
    Commented 24/04/2018 às 13:44

2 Respostas 2

1

Tente trocar a instrução:

Application.CutCopyMode = Falso

por

Application.CutCopyMode = False
2
  • Wilson, para resposta tente dar uma resposta completa, quanto for tentativa use os comentários Commented 23/04/2018 às 18:15
  • BOM DIA não consegui entender a sua recomendação
    – user111043
    Commented 24/04/2018 às 11:27
0

Para seu código executar mais rápido, em vez de copiar e colar, você poderia fazer:

Worksheets("Apontados").cells("A2").value = worksheets("Formulario").cells("B3").value

e repetir essa sintaxe para as demais linhas do código.

4
  • Favor colocar recomendações como comentário e inserir como respostas somente que respondam a dúvida do OP. Commented 27/04/2018 às 19:26
  • muito obrigado pela dica
    – user111043
    Commented 2/05/2018 às 20:22
  • porem eu nao estou mais trabalhando nesse setor
    – user111043
    Commented 2/05/2018 às 20:22
  • projeto esta parado
    – user111043
    Commented 2/05/2018 às 20:22

Você deve fazer log-in para responder a esta pergunta.