Notifications
Clear all

Achar a última linha em branco e copiar dados

3 Posts
1 Usuários
0 Reactions
547 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite pessoal,

Adianto que tenho muito pouco experiência com macros, estou começando agora a entender mais.
Usava o recurso de gravação para poder automatizar algumas coisas.

Bom o que preciso, imagino ser bem simples de ser feito.

Tenho 2 arquivos
Template Cotação.xlsb e Custo licença 2016.xlsx

O "Template Cotação.xlsb" é minha matriz para gerar propostas comerciais, escolho o produto, coloco o nome do cliente, a quantidade, clico em um botão e ela exporta para uma nova planilha.
O que eu preciso é localizar a próxima linha vazia baseado na coluna B e copiar de forma automática algumas informações que foram para esta nova planilha no meu "Custo licença 2016.xlsx"

Espero que tenha conseguido explicar e por ser minha primeira postagem não sei se posso subir aqui estes 2 arquivos que tenho.

Aguardo retorno.

Obrigado.
Kaike

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/06/2016 9:33 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Kaike, você pode estar anexando os arquivos compactados (.zip, .rar, .7z ..) respeitando as Regras do Forum.

Quanto a sua solicitação :
Tenho 2 arquivos
Template Cotação.xlsb e Custo licença 2016.xlsx

O "Template Cotação.xlsb" é minha matriz para gerar propostas comerciais, escolho o produto, coloco o nome do cliente, a quantidade, clico em um botão e ela exporta para uma nova planilha.
Coloque qual rotina utiliza para exportar.
Esta nova Planilha, seria um novo Arquivo ? Ou uma nova aba no arquivo Custo licença 2016 ?

O que pretende copiar ? Linha inteira, só um range ?

Para identificar a última linha vazia na coluna B, pode usar esta instrução :

Dim UltLinColB As Long

'Ultima vazia Coluna B da Aba de nome Plan1
UltLinColB = Sheets("Plan1").Cells(Rows.Count, "B").End(xlUp).Row + 1

Quanto ao restante, vamos aguardar seus modelos ou detalhe melhor para não ficarmos em suposições.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/06/2016 5:46 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia Mauro,

Envio os arquivos para que possa ter uma melhor noção do que preciso fazer.
O Template Cotação.xlsb tem 2 abas principais (Matriz de Preenchimento e Cliente) a aba Matriz de preenchimento é onde vou definir qual produto, quantidade, margem, desconto e etc para esta proposta comercial, nela tem um botão (macro feita pela gravação) que ao clicar ela exporta a aba Cliente para uma nova planilha (book1.xls) e nessa nova planilha tiramos as fórmulas, já aplicamos os filtros nas tabelas para deixar visível só os produtos que tem quantidade e que em alguns casos, terei 01 ou mais produtos selecionados.
Tudo isso que expliquei acima já está funcional, porém tenho que manualmente copiar os dados desta nova planilha para minha outra planilha de controle de vendas (Custo licença 2016.xls)
A ideia seria que ao clicar no botão na Matriz de Preenchimento ele fizesse tudo o que já faz e além disso já populasse a planilha Custo licença 2016.xls, conforme os produtos e linhas selecionadas.

No arquivo Custo Licença 2016 anexo, tentei colocar da forma mais entendível as referências de qual range vai aonde.

Desde já agradeço.

Abs
Kaike

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/06/2016 9:18 am