Ir ao conteúdo
  • Cadastre-se
LSCaipira

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

Posts recomendados

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Plan1.JPG

Plan2.JPG

Compartilhar este post


Link para o post
Compartilhar em outros sites
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 a quem pode ajudar 😋

Compartilhar este post


Link para o post
Compartilhar em outros sites
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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Junte-se à conversa

Você pode postar agora e cadastrar-se depois. Se você tem uma conta, faça o login para postar.

Visitante
Responder

×   Você colou conteúdo com formatação.   Restore formatting

  Só é possível ter até 75 emoticons.

×   O link foi automaticamente convertido para mostrar o conteúdo.   Clique aqui para mostrá-lo como link comum

×   Seu texto anterior foi restaurado.   Limpar o editor

×   You cannot paste images directly. Upload or insert images from URL.






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!