CONHEÇA o BABOO PRO e a Comunidade BABOO que substituirão o site BABOO e esse fórum

Ir para conteúdo
  • Cadastre-se
Thaiz Bechara

Macro copiar e transpor próxima linha em branco

Mensagem Recomendada

Tenho a Plan 1 e preciso copiar as linhas de D5:D10 na plan 2 na próxima linha em branco.

Essa é a Plan 1

image.png.ffa3151ee30c7b057139b79277ee0755.png

E essa é a Plan 2

image.png.71ff8cdef8674cb845af72f9559eec90.png

O que eu preciso mudar no código abaixo?

Sub Macro6()
'
' Macro6 Macro
'

'
    Range("D5:D10").Select
    Selection.Copy
    Sheets("Plan2").Select
    Range("B7").Select
    Selection.End(xlDown).Select
    Range("B10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
End Sub
 

Obrigada

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

Experimente:

Sub ReplicaDados()
 Sheets("Plan1").[D5:D10].Copy
 Sheets("Plan2").Cells(Rows.Count, 2).End(3)(2).PasteSpecial Paste:=xlValues, Transpose:=True
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...