Notifications
Clear all

Inserir linha conforme critério

3 Posts
2 Usuários
0 Reactions
647 Visualizações
(@lamarck)
Posts: 0
New Member
Topic starter
 

Bom dia galera tudo bem?

Sou novo no fórum e novo no ambiente VBA, gostaria de um auxílio para inserção de linha de acordo com o valor de uma determinada célula... Por exemplo:

eu tenho uma planilha de cadastro, e nessa planilha há uma célula (D10, por exemplo) onde colocarei o número de linhas a ser inserido... em uma planilha2 eu gostaria que fosse inserido, em um determinado local da planilha, esse número de linhas digitado na célula da planilha1. Conseguiria fazer isso? como?

Obrigado!

 
Postado : 03/07/2017 5:40 am
(@osvaldomp)
Posts: 857
Prominent Member
 

Veja se ajuda.

Sub InsereLinhas()
 Sheets("Plan2").Rows("5:" & 5 - 1 + Sheets("Plan1").[D10]).Insert
End Sub
 
Postado : 03/07/2017 7:53 am
(@lamarck)
Posts: 0
New Member
Topic starter
 

Muito Obrigado Osvaldo!

 
Postado : 04/07/2017 10:52 am