Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Inserir linha

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Renato



Mensagens : 6
Data de inscrição : 16/05/2013

MensagemAssunto: 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?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Inserir linha   Sab 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Renato



Mensagens : 6
Data de inscrição : 16/05/2013

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Renato



Mensagens : 6
Data de inscrição : 16/05/2013

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Renato



Mensagens : 6
Data de inscrição : 16/05/2013

MensagemAssunto: Re: Inserir linha   Seg Maio 27, 2013 8:18 pm

Agora deu certo,
muito Obrigado Alexandre.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Inserir linha   Ter Maio 28, 2013 3:05 am

Boa noite!!

Até a próxima Laughing

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Inserir linha   Hoje à(s) 10:48 pm

Voltar ao Topo Ir em baixo
 
Inserir linha
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Mudar cor das linhas do fórum (inserir uma linha)
» Como inserir dados no MEIO de um arquivo txt
» widgets para toda linha wave. Espero que cutão :D
» [TUTORIAL] Flashplayer 11.0.1.152 em toda linha Wave !
» Atras da linha vermelha

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: