Notifications
Clear all

Macro para copiar pulando linha

7 Posts
5 Usuários
0 Reactions
1,418 Visualizações
(@marcolive)
Posts: 0
New Member
Topic starter
 

Amigos, preciso criar uma macro que copie os dados de uma linha, pulando 1 linha na sequencia até que não haja mais nenhuma informação na coluna B da planilha. Já pesquisei no fórum e encontrei a macro abaixo que me parece ser o caminho mas, não consigo fazer com que salte 1 linha e que vá somente até não haver mais dados na coluna B.
Segue abaixo a macro que estou tentando utilizar e a planilha em anexo.

Sub Lin()
Dim i As Integer

i = Cells(Cells.Rows.Count, 19).End(xlUp).Row
Range("C" & i & ":AU" & i).AutoFill Range("C" & i & ":AU" & i + 1)

End Sub

Desde já agradeço,

Marco.

 
Postado : 12/02/2016 10:31 pm
(@messiasmbm)
Posts: 0
New Member
 

é isso?

 
Postado : 13/02/2016 1:37 am
(@marcolive)
Posts: 0
New Member
Topic starter
 

Na verdade faltou dizer que o que preciso, é copiar a fórmula que está na terceira linha para as demais linhas nomeadas "Identif". Por isso preciso que a fórmula salte 1 linha, para copiar para a próxima linha "Identif" até a última desse mesmo nome. Mas isso na mesma planilha, não em uma nova.

 
Postado : 13/02/2016 12:47 pm
(@mprudencio)
Posts: 0
New Member
 

Nem olhei sua planilha mas se é pra copiar a formula um ctrl + C e um ctrl + V resolve.

 
Postado : 13/02/2016 2:26 pm
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente

Sub CopiaFórmulas()
 Dim LR As Long, k As Long
  LR = Cells(Rows.Count, 2).End(xlUp).Row
  For k = 5 To LR Step 2
   Rows(3).Copy Destination:=Rows(k)
  Next k
End Sub
 
Postado : 14/02/2016 5:48 am
(@marcolive)
Posts: 0
New Member
Topic starter
 

Osvaldo, deu certo é isso mesmo! Muitíssimo obrigado!!! :D

Perdoe não responder antes mas, estava numa correria e como não recebi nenhum e-mail do site notificando da tua resposta, acabei não vendo.
Obrigado também ao Messias cuja tentativa anterior em ajudar, creio que possa dar certo com algumas pequenas modificações que ainda não estou hábil a fazer, mas vou tentar pra ver se aprendo mais um pouco.

É muito bom ter pessoas como vocês ajudando a quem busca aprender sobre ferramentas tão úteis e ricas como Excel, VBA, etc.; e fazem do Planilhando referência como fonte de consulta e aprendizado.

Abs,

Marco.

 
Postado : 17/02/2016 7:11 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

MarcOlive

Se a resposta do Osvaldo foi útil, você se esqueceu de clicar na mãozinha para agradecer.
Favor tomarconhecimento --> viewtopic.php?f=7&t=16757

Outra coisa, sobre a notificação do fórum, configure:
Na página --> Portal --> no lado direito --> Menu do usuário --> Painel do Usuário --> Preferências --> Marque as opções para receber mensagens.

Acesse o tópico do link abaixo que tem mais esclarecimentos:
viewtopic.php?f=9&t=19201

[]s

Patropi - Moderador

 
Postado : 18/02/2016 11:19 am