Macro to copy down specific number of rows
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. |
Macro to copy down specific number of rows
Cell A1 contains Username and cell B1 contains a number
indicating how many times the names should be replicated in the database. 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) |
Macro to copy down specific number of rows
Cell A1 contains Username and cell B1 contains a number
indicating how many times the names should be replicated in the database. 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) |
Macro to copy down specific number of rows
Using Resize might be clearer in terms of intent. Just offered for
consideration. Range("A2").Resize(Range("B1").Value ,1).Value = Range("A1").Value -- Regards, Tom Ogilvy "Melanie Breden" wrote in message ... Cell A1 contains Username and cell B1 contains a number indicating how many times the names should be replicated in the database. 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) |
Macro to copy down specific number of rows
Hi Tom,
Tom Ogilvy schrieb: Using Resize might be clearer in terms of intent. Just offered for consideration. Range("A2").Resize(Range("B1").Value ,1).Value = Range("A1").Value thus it goes naturally also :-) -- Mit freundlichen Grüssen Melanie Breden - Microsoft MVP für Excel - http://excel.codebooks.de (Das Excel-VBA Codebook) |
All times are GMT +1. The time now is 03:04 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com