Este fórum está sendo desativado

[Martins]

Boa tarde.

Eu tenho uma macro que cria linhas em branco cujo número é definido em um imputbox.

Alguém conseguem me ajudar para que a quantidade de linhas também seja alimentada por meio de um imptbox?


Sub linha()

Dim rowNum As Integer
On Error Resume Next

rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
Title:="Kutools for excel", Type:=1)
Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown

End Sub

[GabrielBulhosa]

Sub linha()

Dim rowQtd As Integer
Dim i As Integer
Dim rowNum As Integer
On Error Resume Next

rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
Title:="Kutools for excel", Type:=1)

rowQtd = Application.InputBox(Prompt:="Informe a quantidade de linhas:", _
Type:=1)

For i = 1 To rowQtd
Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
Next i

End Sub

[Martins]

Muito obrigado Gabriel.