Página 1 de 1
INSERIR DADOS ULTIMA LINHA
Enviado: 23 Jul 2018 às 13:28
por tulioh1
Boa tarde pessoa, preciso de uma ajuda em uma planilha.
Preciso que uma macro copie todo o conteúdo que está entre as linhas 3 e 67 e cole na última linha vazia.
Queria que se possível, mantivesse sempre essas linhas originais ocultas.
Ou seja:
1- Copie 3:67
2- Cole na última linha vazia
3- Oculte as linhas 3:67
Agradeço imensamente pessoal.
Re: INSERIR DADOS ULTIMA LINHA
Enviado: 23 Jul 2018 às 15:45
por osvaldomp
tulioh1 escreveu:
2- Cole na última linha vazia
Não seria na primeira linha vazia ? 
Experimente:
Código: Selecionar todosSub CopiaCola()
Rows("3:67").Hidden = False
[A3:M67].Copy Cells(Rows.Count, 1).End(3)(2)
Rows("3:67").Hidden = True
End Sub
Re: INSERIR DADOS ULTIMA LINHA
Enviado: 24 Jul 2018 às 08:26
por tulioh1
osvaldomp escreveu:tulioh1 escreveu:
2- Cole na última linha vazia
Não seria na primeira linha vazia ?
Experimente:
Código: Selecionar todosSub CopiaCola()
Rows("3:67").Hidden = False
[A3:M67].Copy Cells(Rows.Count, 1).End(3)(2)
Rows("3:67").Hidden = True
End Sub
Agradeço muito !!!
Mas, sou surpreendido com a mensagem: "O método copy da classe range falhou"
Poderia me ajudar ?
Re: INSERIR DADOS ULTIMA LINHA
Enviado: 24 Jul 2018 às 09:04
por osvaldomp
Disponibilize uma amostra do seu arquivo Excel com algumas linhas com dados e com o código que passei instalado.
Sugestão - para responder clique em +Resposta localizado abaixo da última postagem, só clique em Responder com citação se necessário.
Re: INSERIR DADOS ULTIMA LINHA
Enviado: 24 Jul 2018 às 14:15
por tulioh1
Ah sim, obrigado e desculpa.
Coloquei o modelo em anexo.
As informações que eu copiarei, será de A2:BS78 (Pq queria uma linha branca entre os formulários).
Eu tentei gravando macro, mas não consegui configurar para a primeira linha em branco (kkkk)
Muito obrigado !!!!!!!!!!
Re: INSERIR DADOS ULTIMA LINHA
Enviado: 24 Jul 2018 às 14:59
por JCabral
Vê se ajuda
Código: Selecionar todosSub CopyPaste()
Rows("2:78").EntireRow.Hidden = False
LastLinha = Sheets("Registros").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("Registros").Range("A2:BS78").Copy Destination:=Sheets("Registros").Range("A" & LastLinha + 3)
Rows("2:78").EntireRow.Hidden = True
End Sub
Re: INSERIR DADOS ULTIMA LINHA
Enviado: 24 Jul 2018 às 18:52
por osvaldomp
tulioh1 escreveu:As informações que eu copiarei, será de A2:BS78
Não faz sentido copiar esse intervalo visto que a sua tabela está em B2:O78
Experimente:
Código: Selecionar todosSub CopiaCola()
Rows("3:78").Hidden = False
[B3:O78].Copy Cells(Rows.Count, 2).End(3)(3)
Rows("3:78").Hidden = True
End Sub