Excel Preciso de um VBA

[deejaywesley]

Boa Tarde Galerinha!

Tudo ótimo com vocês

preciso de um código VBA, e achei mais fácil já explicar direto na planilha!

desde ja obrigado os que puderem dar uma olhadinha.

forte abraço! 

produtos.xlsx

[OreiaG]

Olá, Wesley.

Veja se este código lhe atende.

Considerei que a Plan2 (que receberá os dados) estará vazia ao executar a macro.

 

Sub MultiplicaDados()
 Dim LR As Long, k As Long, x As Long
  LR = Sheets("Plan1").Cells(Rows.Count, 1).End(3).Row
  Application.ScreenUpdating = False
  Sheets("Plan1").Range("A1:E1").Copy Sheets("Plan2").[A1]
  With Sheets("Plan1")
   For k = 2 To LR
    x = .Cells(k, 5)
    .Cells(k, 1).Resize(, 5).Copy Sheets("Plan2").Cells(Rows.Count, 1).End(3)(3).Resize(x)
   Next k
  End With
  Sheets("Plan2").Rows(2).Delete
End Sub

 

[deejaywesley]

Bom dia amigo @OreiaG

tudo joia com você

 

O código funcionou certinho, era isso mesmo que eu precisava.

você acertou a plan2 esta limpa para receber os dados...

 

muito obrigado por mais este meu amigo.

forte abraço!