refernande,

Boa tarde!

Veja se é assim.

Wagner, se me permite complementar sua ideia, acho que poderia inserir a "Inputbox" antes do For.. tipo:

Sub InserirLinha()
    Dim Qtde As Long
    Dim i As Long
    Dim j As Long
    Qtde = CLng(InputBox("Quantidade de Linhas", "LINHA A INSERIR"))
    For j = 1 To Sheets.Count
        Sheets(j).Select
            If Qtde <> 0 Then
            Rows("7:7").Select
            For i = 1 To Qtde
                Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Next
        End If
    Next
End Sub

Caso contrário ele teria que inserir a quantidade de linhas na inputbox 1500 vezes (ficaria inviável)

Abrç!

xlarruda,

Boa noite!

Excelente sugestão! Obrigado. Na verdade, fiz esse código meio às pressas e nem percebi isso. Sua ideia está corretíssima, exceto se o usuário quiser inserir quantidade de linhas diferentes por planilha. Todavia, nesse caso, creio que perderia o sentido da automatização.

Wagner, se me permite complementar sua ideia, acho que poderia inserir a "Inputbox" antes do For.. tipo:

Sub InserirLinha()
    Dim Qtde As Long
    Dim i As Long
    Dim j As Long
    Qtde = CLng(InputBox("Quantidade de Linhas", "LINHA A INSERIR"))
    For j = 1 To Sheets.Count
        Sheets(j).Select
            If Qtde <> 0 Then
            Rows("7:7").Select
            For i = 1 To Qtde
                Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Next
        End If
    Next
End Sub

Caso contrário ele teria que inserir a quantidade de linhas na inputbox 1500 vezes (ficaria inviável)

Abrç!

Muito bom mesmo xlarruda e wagner

Mais só uma coisa para finalizar se teria como em uma planilha essa macro não executar "Plan1". Que essa macro rodar na outras planilhas exceto plan1.

Obrigado

Sub InserirLinha()
    Dim Qtde As Long
    Dim i As Long
    Dim j As Long
    Qtde = CLng(InputBox("Quantidade de Linhas", "LINHA A INSERIR"))
    For j = 1 To Sheets.Count
if sheets(j).name <> "Plan1" then
        Sheets(j).Select
            If Qtde <> 0 Then
            Rows("7:7").Select
            For i = 1 To Qtde
                Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Next
        End If
end if
    Next
End Sub