Ir para conteúdo
  • Cadastre-se

A partir do dia 19/11/2018, o foco do Fórum do BABOO é apenas Windows e Segurança Digital conforme informado no início de 2018.
As áreas que não têm relação com esses dois assuntos foram arquivadas e seus tópicos estão disponíveis para consulta na área Tópicos Antigos.

Conheça as novidades de 2019 para o BABOO e Fórum do BABOO

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

×