Macro para pegar um bloco de celulas e colar X vezes
Enviado: 07 Out 2016 às 16:51
por LLkameoka
O usuário digitaria um numero em uma célula e a macro irá pegar um bloco de celulas, C2:I5 , e esse bloco vai para a coluna ao lado, mantendo a formatação. por exemplo, o usuário digita 2, então a macro irá gerar 2 blocos desses, mantendo a formatação.
Re: Macro para pegar um bloco de celulas e colar X vezes
Enviado: 11 Out 2016 às 10:14
por alexandrevba
Bom dia!!
Tente assim
Código: Selecionar todosSub Ntimes()
Dim iCont As Integer
iCont = Application.InputBox("Number of Rows", "Number of Rows", Type:=1)
Do While iCont <> 0
Call AleVBA_3230
iCont = iCont - 1
Loop
End Sub
Código: Selecionar todosSub AleVBA_3230()
Dim iCont As Integer
Dim LC As Long
LC = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
Range("C1:I4").Copy
Cells(1, LC + 1).Offset(0, 1).PasteSpecial (xlPasteAll)
End Sub
Att