Página 1 de 1

Copiar de um intervalo e colar em intervalos subsequentes

Enviado: 03 Out 2017 às 18:05
por Angra
Boa tarde
Preciso copiar valores de um intervalo e colar em uma linha e depois na linha subsequente e... :D :D

Re: Copiar de um intervalo e colar em intervalos subsequente

Enviado: 03 Out 2017 às 19:54
por osvaldomp
Código: Selecionar todos
Sub ReplicaDdos()
 If [E21] = "" Then [E21].Resize(, 20).Value = [AL5:BE5].Value Else: Cells(Rows.Count, 5).End(3)(2).Resize(, 20).Value = [AL5:BE5].Value
End Sub

Copiar de um intervalo e colar em intervalos subsequentes

Enviado: 03 Out 2017 às 20:18
por JCabral
Está TOP, dá para explicar a parte "Cells(Rows.Count, 5).End(3)(2).Resize(, 20).Value = [AL5:BE5].Value"

Obrigado