Excel (VBA): macro para inserir linhas na Planilha, de acordo com o valor indicado em uma célula

Question

Bom dia!

Gostaria de solicitar uma ajuda/apoio para resolver uma questão: tenho uma Planilha em que faço controle de contratos de NF's, de Fornecedores, em uma das "abas" de uma "pasta de trabalho", de um arquivo excel.

Em uma coluna (F3) insiro a data de início do contrato, e na próxima coluna (G3) insiro a data de fim do contrato, e na coluna B3 tenho o nº. do contrato. Na coluna H3, coloquei uma fórmula para calcular quantos são os meses de vigência destes contrato - = (ANO($G3)-ANO($F3))*12 +MÊS($G3)-MÊS($F3). A quantidade de meses serão a quantidade de NF's que serão geradas, e controladas.

Logo, se tivermos o exemplo em F3 com a data de 01/01/2016 e em G3 a data de 30/12/2016, teremos o resultado óbvio em H3 de 12 meses.

Agora, vem a questão:

• Preciso que este resultado, que está na coluna H3, seja utilizado como critério para a quantidade de linhas que deverão ser inseridas em uma outra aba de minha Planilha. No exemplo, com resultado de 12, precisaria que fossem inseridas 12 linhas abaixo do último registro, e que todas estas também viessem identificadas com o nº. do contrato, que também na outra "aba" da Planilha é em B3.

Já andei pesquisando sobre "macros" e os códigos em VB, mas não encontrei nada em específico do que preciso, ou seja, até encontrei exemplos sobre inserção de linhas em branco após último registro, em uma Planilha, mas não com um valor em referência.

Poderiam me orientar, como proceder?

Grata, desde já! :D

Gabriele

Answer 1

Olá GabrieleBrito, tudo bem? 

Bem-vindo à Comunidade da Microsoft!

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN que é um fórum especialmente destinado para desenvolvedores e

profissionais em TI.

:: MSDN ::

Se houver outras dúvidas relacionadas aos produtos Microsoft, por favor, volte a postar. Estamos à disposição.

Se essa informação foi útil, marque-a como resposta. 

Até mais!