Guru do Excel e Power BI

Enviado: **26 Jun 2015 às 10:13**

Ola, estou tentado fazer o seguinte:

fiz um UserForm e coloquei um botão e um Textbox.

Coloquei o seguinte código no botão:

Código: Selecionar todos

Private Sub CommandButton1_Click()
Dim rCell As Excel.Range
    
    For Each rCell In Selection.Cells
Selection.Insert Shift:=xlDown
    Next rCell
End Sub

Porem, ele insere somente uma linha, mas ele deve inserir a quantidade de linhas que se coloca no Textbox.

Por exemplo, se colocarmos 12 no Textbox, e clicar no Botão ,ele deve inserir 12 linhas a partir da célula selecionada.

Também deixei a opção SHOWMODAL em False para poder clicar nas células com o Userform aberto .

Outra coisa, as linhas tem que serem inseridas ABAIXO da célula selecionada .

Obrigado pela atenção .

Enviado: **26 Jun 2015 às 10:56**

Bom dia!!

Tente

Código: Selecionar todos

Option Explicit

Private Sub CommandButton1_Click()
Dim x As Integer
    x = TextBox1
    Range(ActiveCell, ActiveCell.Offset(x - 1, 0)).EntireRow.Insert Shift:=xlDown
End Sub

Att

Enviado: **26 Jun 2015 às 11:01**

Poxa, exatamente isso, salvou o dia

Obrigado alexandrevba !

Guru do Excel e Power BI

Inserir quantidade de linhas desejadas usando Textbox

Inserir quantidade de linhas desejadas usando Textbox

Re: Inserir quantidade de linhas desejadas usando Textbox

Inserir quantidade de linhas desejadas usando Textbox