Macro-inserir linhas usando combox

2512nilson · 23 de janeiro de 2013

Mestres, estou tentando fazer uma planilha excel protegida onde a partir de certa linha seja permitido incluir e excluir linhas. A ideia e deixar que o usuário selecione o range a sua escolha (não permitir incluir e excluir no cabaçalho).

Pesquisando aqui no forum, cheguei muito proximo, porém, esbarei em dois problemas: a) tratamento quando é acionado o botão cancelar e, não consegui bloquear o espaço usado para o cabeçalho. Alguem se habilita? abraço.

Segue a macro até onde chequei...

Sub InserirLinhasConcep_Nilson()

Dim Linha As Long ' número da linha a partir da qual vai inserir

Dim k As Long ' quantidade de linhas a inserir

Dim Response As Long

Linha = InputBox("A partir de qual linha deseja incluir?")

k = InputBox("Quantas linhas?")

k = k - 1

Rows(Linha & ":" & Linha + k).Insert

MsgBox linhas & " linhas inseridas.", vbInformation

End Sub

-------

jeffsilveira · 24 de janeiro de 2013

Crie uma condição!

Use o código abaixo e tente inserir a partir da linha 2, por exemplo.

Sub InserirLinhasConcep_Nilson()

Dim Linha As Long ' número da linha a partir da qual vai inserir
Dim k As Long ' quantidade de linhas a inserir
Dim Response As Long

OK:
Linha = InputBox("A partir de qual linha deseja incluir?")
If Linha <= 2 Then
MsgBox "Proibido inserir no cabeçalho!" & vbLf & _
    "Escolha outra linha!"
GoTo OK:
End If

k = InputBox("Quantas linhas?")
k = k - 1
Rows(Linha & ":" & Linha + k).Insert

MsgBox k + 1 & " linhas inseridas.", vbInformation
End Sub