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 | 
 

 Macro para inserir linha

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
joão oliveira



Mensagens : 1
Data de inscrição : 23/08/2012

MensagemAssunto: Macro para inserir linha    Qui Ago 23, 2012 10:50 pm

Olá,
Sou novo no forum e não tenho conhecimento sobre macros!
Preciso de uma macro que insira uma quantidade de linhas copiando as formulas da linha acima. A quantidade de linhas a ser inseridas seria determinado preenchendo uma celula (ex:a1).

A1 = quantidade de linhas a serem inseridas

A1:G1 = Alinhas inseridas a partir deste intervalo de celular

Ficaria muito agradecido se alguém pudesse ajudar pois não encontrei nada que me atenda na net.

JP
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: Macro para inserir linha    Dom Ago 26, 2012 7:51 pm

Boa tarde!!

Eu não entendi tente..

Código:
Sub Inserir_Linhas_Vazias()
    Dim lastrow As Long
    Dim i As Long
   
    Application.ScreenUpdating = False
   
    With ActiveSheet
       
        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For i = lastrow To 1 Step -1
           
            If IsNumeric(.Cells(i, "A").Value) Then
               
                If .Cells(i, "A").Value > 0 Then
                   
                    .Cells(i + 1, "A").Resize(.Cells(i, "A").Value, 7).Insert shift:=xlDown
                End If
            End If
        Next i
    End With
   
    Application.ScreenUpdating = True
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Macro para inserir linha
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Criar uma caixa para inserir texto
» colocar um modelo de postagem pronto para inserir
» Código para estender linha vertical no perfil
» widgets para toda linha wave. Espero que cutão :D
» codigo para full screen e para tela normal

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: