ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   looping to create multiple files (https://www.excelbanter.com/excel-programming/272470-looping-create-multiple-files.html)

jrh

looping to create multiple files
 
I got this to work but then in order to change the list of
rep names, the person would have to go into the code. How
can I set the array to be cells on a particular
spreadsheet?

Thank you.
-----Original Message-----
try something like this:
Dim repNames as variant, i as integer
repNames=Array("Rep numb1", "rep2", "rep3")
' the array must contain the reps names you use
' on your code actually
for i=0 to ubound(repNames)
' this is your loop you are looking for
' you can use your code for one rep
' and the name of the sales rep is contained
' in repnames(i) like this
msgbox repNames(i)
' so you need to detect which instructions are
' for exactly one rep sales and put that code here
next i


-----Original Message-----
I wrote code that takes a template, populates it with a
Sales Rep's personal data, remove sales that aren't

theirs
and then saves the file as their file with a user
specified as of date. I then have code for each sales

rep
repeating the above.

Instead, can I write the code only once and then use a
loop to cycle through a list of all the reps maintained

on
a separate spreadsheet? This way, the code can be only
one person long and it will be easier to add things to

the
macro and revise the macro.

I do not know how to write a loop.
Thank you
.

.


pancho[_6_]

looping to create multiple files
 
You save time if you ask completely for the first time,

you can use something like:
Dim list As Variant, i
list = ActiveSheet.Range(Range("A1"), _
Range("A1").End(xlDown)).Value
For i = 1 To UBound(list)
MsgBox list(i, 1)
Next i



Francisco Mariscal
fcomariscal at hotmail dot com



-----Original Message-----
I got this to work but then in order to change the list

of
rep names, the person would have to go into the code.

How
can I set the array to be cells on a particular
spreadsheet?

Thank you.
-----Original Message-----
try something like this:
Dim repNames as variant, i as integer
repNames=Array("Rep numb1", "rep2", "rep3")
' the array must contain the reps names you use
' on your code actually
for i=0 to ubound(repNames)
' this is your loop you are looking for
' you can use your code for one rep
' and the name of the sales rep is contained
' in repnames(i) like this
msgbox repNames(i)
' so you need to detect which instructions are
' for exactly one rep sales and put that code here
next i


-----Original Message-----
I wrote code that takes a template, populates it with a
Sales Rep's personal data, remove sales that aren't

theirs
and then saves the file as their file with a user
specified as of date. I then have code for each sales

rep
repeating the above.

Instead, can I write the code only once and then use a
loop to cycle through a list of all the reps maintained

on
a separate spreadsheet? This way, the code can be only
one person long and it will be easier to add things to

the
macro and revise the macro.

I do not know how to write a loop.
Thank you
.

.

.



All times are GMT +1. The time now is 03:58 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com