Macro to copy down specific number of rows

J

JA

Cell A1 contains Username and cell B1 contains a number
indicating how many times the names should be replicated
in the database.

Please help with a macro to do this.
 
M

Melanie Breden

Cell A1 contains Username and cell B1 contains a number
indicating how many times the names should be replicated
in the database.
Click to expand...

try this:

Range("A2:A" & Range("B1").Value).Value = Range("A1").Value

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
 
M

Melanie Breden

Cell A1 contains Username and cell B1 contains a number
I forgot a value:
Range("A2:A" & Range("B1").Value + 1).Value = Range("A1").Value

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
 
T

Tom Ogilvy

Using Resize might be clearer in terms of intent. Just offered for
consideration.

Range("A2").Resize(Range("B1").Value ,1).Value = Range("A1").Value
 
M

Melanie Breden

Hi Tom,

Tom said:
Using Resize might be clearer in terms of intent. Just offered for
consideration.

Range("A2").Resize(Range("B1").Value ,1).Value = Range("A1").Value
Click to expand...

thus it goes naturally also :)

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
 
Top