Macro copiar e colar linhas


#1

Estou precisando de uma macro que copie da Plan1 e cole na Plan2 repetindo 5 linhas. Os dados a copiar estão na Plan1 numa tabela que começa em B3 e termina em B102. Queria que corresse toda a tabela e copiasse sempre que a coluna B tivesse valor

Plan1 Copiar :
B3 E3 F3

B4 E4 F4

Plan2 Colar :
F2 G2 H2
F3 G3 H3
F4 G4 H5
F6 G6 H6
F7 G7 H7

F8 G8 H8
F9 G9 H9
F10 G10 H10
F11 G11 H11
F12 G12 H12


#2

Bom dia @RitaF
Veja se é isto que você precisa.
Qualquer coisa nos avise.
abs

Sub Macro1()
Application.ScreenUpdating = False
Sheets(“Plan2”).Select
Range(“B2:D501”).Select
Selection.ClearContents
LinIni = 2
For i = 3 To 102
Sheets(“Plan1”).Select
If Cells(i, 2) <> “” Then
celula = LTrim(Str(i))
celulaDestino = LTrim(Str(LinIni))
celulaDestino2 = LTrim(Str(LinIni + 4)): LinIni = LinIni + 5
Range(“B” & celula & “:D” & celula).Select
Selection.Copy
Sheets(“Plan2”).Select
Range(“B” & celulaDestino & “:B” & celulaDestino2).Select
ActiveSheet.Paste
End If
Next
Application.ScreenUpdating = True
End Sub


#3

Obrigado Iporto

Funciona na perfeição


#4

Boa tarde @lporto vi que você ajudou nesse tópico, e pelo que entendi o que ele precisa é +/- o que eu preciso. Será que consegue me ajudar?


esse foi o tópico que abri, se puder dar uma olhada, agradeço.

Att.


#5

Bom dia Oliveira,
Consigo ajudar sim, mas preciso de mais informações, pois dependendo pode ser feito formula ou por VBA, então vou precisar saber quais as colunas que estão sendo usadas em cada planilha e quais os nomes de cada uma delas (plan1, plan2, etc…).
Vc apaga toda a plan D a cada atualização ?
Duvida:
Se vc cadastrou 10 rolamentos, 5 esteiras e 1 motor, qual seria o resultado na planD ?
Vc poderia me enviar uma copia com alguns dados fictícios (ou não) para eu analisar ?
meu email é luiz@cet.com.br
Um abraço


#6

Bom dia @lporto, vou entrar em contato com você via e-mail, muito Obrigado.