Este fórum está sendo desativado

[madefer]

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 .

[alexandrevba]

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

[madefer]

Poxa, exatamente isso, salvou o dia
Obrigado alexandrevba !