Copiar Células Não Vazias e Colar para Próximas Células Vazias em Outra Plan

[LSCaipira]

Olá, boa noite.

 

Vejam se conseguem me ajudar:

 

Tenho uma planilha de Excel onde gero pedidos de venda que podem ter vários itens (produtos).

Em uma planilha "Plan1" preciso copiar as informações contidas de itens que podem estar no intervalo "B17:k20" e Colar em uma outra planilha "Plan2" nas próximas células vazias começando por "B8".

 

A "Plan1" é a planilha de geração do pedido e a "Plan2" é a planilha onde constam todos os produtos vendidos.

 

Espero que possam me ajudar.

[Visitante]

Sugestão: disponibilize uma amostra do seu arquivo Excel, preencha o intervalo B17:K20 da "Plan1" e coloque na "Plan2" como você quer o resultado.

[LSCaipira]

Vide telas anexadas.

 

Plan1 com as informações do pedido e Plan2 com as informações importadas da Plan1, o comando que preciso é que sempre que importar informações da Plan1 vá na sequencia, pois, a plan2 é de controle gerencial para saber tudo que vendi.

 

Att.

[Visitante]

Em 13/03/2019 às 07:59, osvaldomp disse:

Sugestão: disponibilize uma amostra do seu arquivo Excel, preencha o intervalo B17:K20 da "Plan1" e coloque na "Plan2" como você quer o resultado.

 

 

 

 

 

 

o uso de  expressões como "por favor" e "obrigado" são oportunas pra quem precisa de favor e ainda  incentivam quem pode ajudar

[LSCaipira]

Bom dia companheiro Osvaldo.

 

Segue o Arquivo no Excel... obrigado pela a atenção dispensada.

 

Abraço.

Pasta1.xlsx

[Visitante]

Em 13/03/2019 às 00:07, LSCaipira disse:

... preciso copiar as informações contidas de itens que podem estar no intervalo "B17:k20" ...

Me parece que não faz sentido copiar do intervalo B17:K20.

O código abaixo irá copiar de B27:K27 até a última linha preenchida. Veja se atende.

 

Sub ReplicaDados()
 Dim LR As Long
  LR = Cells(Rows.Count, 2).End(3).Row
  If LR < 27 Then Exit Sub
  Range("B27:K" & LR).Copy
  Sheets("Plan2").Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
End Sub

 

[LSCaipira]

Boa tarde.

 

Perfeito, a parte de copiar e colar ficou perfeitamente como eu precisava.

 

Aproveitando, poderia complementar para assim que a Macro colar a informações na Plan2 ela apagasse as informações copiadas? para evitar duplos cliques?

 

Obrigado.

[Visitante]

Sub ReplicaDadosLimpaOrigem()
 Dim LR As Long
  LR = Cells(Rows.Count, 2).End(3).Row
  If LR < 27 Then Exit Sub
  Range("B27:K" & LR).Copy
  Sheets("Plan2").Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
  Range("B27:D" & LR).Value = "": Range("F27:K" & LR).Value = ""
End Sub

obs. a coluna E, que contém fórmulas, não será limpada pelo código.

[LSCaipira]

Bom dia.

 

Ótimo, muito obrigado pela ajuda, ficou muito boa.

 

Att.