Página 1 de 1

Macro Para Copiar e Colar Sequencial

Enviado: 24 Ago 2021 às 13:28
por CAMILOALVES01
Boa Tarde!
Prezados, Estou precisando de uma macro para copiar e colar alguns dados, é o seguinte, na guia: "Registro de OS" tenho as informações que basicamente são inseridas através de outra guia: "Inserir OS".
Se houver possibilidades, gostaria de uma macro que repetisse os dados das colunas “B”, “C”, “D”, “E”, “F” da guia "Registro de OS " em função da variável “Nº OS” existente na mesma planilha.
Ressalva: observem que a cada evento de atualização de status através do botão “Atualizar Status OS” na guia "Inserir OS", os dados são acrescidos e ordenados na guia "Registro de OS" em função da variável “Nº OS”.
Anexo planilha com maiores detalhes.
Desde já Agradeço.

Re: Macro Para Copiar e Colar Sequencial

Enviado: 24 Ago 2021 às 20:31
por osvaldomp
Salve, CAMILOALVES01 - 24 Ago 2021 às 13:28.

Experimente:
Código: Selecionar todos
Sub ReplicaDados()
 Dim os As Long, k As Long
  With Sheets("Registro de OS")
   For os = 8 To .Cells(Rows.Count, 1).End(3).Row
    k = Application.CountIf(.[A:A], .Cells(os, 1))
    .Cells(os, 2).Resize(k, 5).FillDown
    os = os + k - 1
   Next os
  End With
End Sub
#
Se o código acima retornar o resultado esperado, e em seguida se você quiser executá-lo na sequência de algum outro código, então bastará colocar o seu nome no final do outro código, como abaixo:
Sub QualQuerSub()
blá...
blá...
blá...

ReplicaDados
End Sub
#

Re: Macro Para Copiar e Colar Sequencial

Enviado: 25 Ago 2021 às 15:51
por CAMILOALVES01
Boa Tarde! Prezado osvaldomp - 24 Ago 2021 às 20:31
Primeiramente Muitíssimo Obrigado Por Disponibilizar Seu Tempo e Conhecimentos Para Ajudar-me!
No Mais....Perfeito!
DEUS Continue Te Iluminando.
Atenciosamente