Paste x times

[atomazos]

Hi how can i copy a value and paste it lets say 10 times underneath with vba?

Thanks,

AAT

 

[mumps]

Please explain what you mean by "underneath".

 

[Joe4]

This line of code will copy the value in the active cell to the 10 rows beneath it.

Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(10, 0)) = ActiveCell

You can also substitute any range or range variable for "ActiveCell".

 

[Fluff]

Another option

ActiveCell.Copy ActiveCell.Resize(1 * 10)

You can also replace the 10 with the value in another cell like

ActiveCell.Copy ActiveCell.Resize(1 * Range("C5"))

 

[atomazos]

Joe thanks a lot this was really helpful!

 

[atomazos]

This line of code will copy the value in the active cell to the 10 rows beneath it.

Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(10, 0)) = ActiveCell

You can also substitute any range or range variable for "ActiveCell".

Thanks a lot Joe!

 

[atomazos]

Another option

ActiveCell.Copy ActiveCell.Resize(1 * 10)

You can also replace the 10 with the value in another cell like

ActiveCell.Copy ActiveCell.Resize(1 * Range("C5"))

Thank you Fulff for your reply

 

[Rick Rothstein]

Another option

ActiveCell.Copy ActiveCell.Resize(1 [B][COLOR="#FF0000"]*[/COLOR][/B] 10)

You can also replace the 10 with the value in another cell like

ActiveCell.Copy ActiveCell.Resize(1 [B][COLOR="#FF0000"]*[/COLOR][/B] Range("C5"))

Did you mean those asterisks to be plus signs (so that there would be 10 values underneath the ActiveCell)?

If so, another way...

ActiveCell.Resize(1 + 10) = ActiveCell

 

[Joe4]

You are welcome.
Glad we were able to help.