joão oliveira
Mensagens : 1
Data de inscrição : 23/08/2012
 | | Assunto: 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 | |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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
| |
|
