| | Inserir linha |  |
|
|
| Autor | Mensagem |
|---|
Renato
Mensagens : 6
Data de inscrição : 16/05/2013
| | Assunto: Inserir linha Sex maio 17, 2013 3:17 pm | |
| Bom dia pessoal,
Alguém poderia me ajudar a escrever uma macro para a seguinte função:
assim que eu digitar um número na célula determinada, a macro analisa esse número e insere a quantidade de linhas correspondente ao valor colocado em um lugar específico. Alguém pode me ajudar? | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Inserir linha Sáb maio 18, 2013 2:45 am | |
| Boa noite!! Se em E1 for digitado 4, onde estiver o cursor, será inserido 4 linhas a partir de onde o curso estiver posicionado - Código:
-
Sub InserirLInhas()
Range("A" & ActiveCell).Resize(Range("E1")).EntireRow.Insert
End Sub
| |
|
| | |
Renato
Mensagens : 6
Data de inscrição : 16/05/2013
| | Assunto: Re: Inserir linha Seg maio 20, 2013 3:31 pm | |
| Bom dia,
Só mais uma duvida, ele está sempre adicionando uma linha a mais do valor que eu coloco. Por ex.: coloco 1 e ele adiciona 2 linhas, coloco 2 e ele adiciona 3 linhas, como resolvo isso?
Obrigado | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Inserir linha Ter maio 21, 2013 3:37 am | |
| Boa noite!! Tente assim - Código:
-
Sub TenteIsso()
Dim i As Integer, n As Integer, m As Long, CurrentCell As Range
Set CurrentCell = Cells(1, 5)
Do While Not IsEmpty(CurrentCell)
n = CurrentCell.Value
m = CurrentCell.Row
If n > 0 Then
Rows(m + 1 & ":" & m + n).Insert
Set CurrentCell = CurrentCell.Offset(n + 1, 0)
Else
Set CurrentCell = CurrentCell.Offset(1, 0)
End If
Loop
End Sub | |
|
| | |
Renato
Mensagens : 6
Data de inscrição : 16/05/2013
| | Assunto: Re: Inserir linha Ter maio 21, 2013 3:52 am | |
| Boa noite,
Coloquei e deu certo deste modo, só a linha adicionada é a logo abaixo da E1, como faço para escolher abaixo de qual linha será adionado as outras?
Obrigado | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Inserir linha Qui maio 23, 2013 4:40 am | |
| Boa noite!! Talvez seja isso. - Código:
-
Sub InserirLinha()
Dim x As Integer
x = Application.InputBox("Número de linhas", "Número de linhas", Type:=1)
Range(ActiveCell, ActiveCell.Offset(x - 1, 0)).EntireRow.Insert Shift:=xlDown
End Sub
| |
|
| | |
Renato
Mensagens : 6
Data de inscrição : 16/05/2013
| | Assunto: Re: Inserir linha Seg maio 27, 2013 8:18 pm | |
| Agora deu certo,
muito Obrigado Alexandre. | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Inserir linha Ter maio 28, 2013 3:05 am | |
| Boa noite!! Até a próxima  Att | |
|
| | |
Conteúdo patrocinado
| | Assunto: Re: Inserir linha | |
| |
|
| | |
| | Inserir linha | |
|
