Este fórum está sendo desativado

[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.

[osvaldomp]

2- Cole na última linha vazia
Não seria na primeira linha vazia ?

Experimente:

Código: Selecionar todos

Sub CopiaCola()
 Rows("3:67").Hidden = False
 [A3:M67].Copy Cells(Rows.Count, 1).End(3)(2)
 Rows("3:67").Hidden = True
End Sub

[tulioh1]

2- Cole na última linha vazia
Não seria na primeira linha vazia ?

Experimente:

Código: Selecionar todos

Sub 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 ?

[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.

[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 !!!!!!!!!!

[JCabral]

Vê se ajuda

Código: Selecionar todos

Sub 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

[osvaldomp]

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 todos

Sub CopiaCola()
 Rows("3:78").Hidden = False
 [B3:O78].Copy Cells(Rows.Count, 2).End(3)(3)
 Rows("3:78").Hidden = True
End Sub