Notifications

Clear all

Macro para copiar pulando linha

2024 - VBA & Macros

Post Recente por Fernando Fernandes 9 anos atrás

7 Posts

5 Usuários

0 Reactions

1,442 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: 858

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!!!

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

(@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