Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para copiar p...
 
Notifications
Clear all

Macro para copiar pulando linha

 
2024 - VBA & Macros
7 Posts
5 Usuários
0 Reactions
1,423 Visualizações
RSS
 MarcOlive
(@marcolive)
Posts: 8
Active 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
(@messiasmbm)
Posts: 223
Estimable Member
 

é isso?

 
Postado : 13/02/2016 1:37 am
 MarcOlive
(@marcolive)
Posts: 8
Active 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
(@mprudencio)
Posts: 2749
Famed Member
 

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

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 13/02/2016 2:26 pm
 Osvaldomp
(@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

Osvaldo

 
Postado : 14/02/2016 5:48 am
 MarcOlive
(@marcolive)
Posts: 8
Active 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
Fernando Fernandes
 Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/02/2016 11:19 am
Forum Jump:
  Tópico Anterior
Próximo Tópico