List of names inserted into VBA Code

[brianfosterblack]

I have a named range for Entries which is a list of names for my event

=OFFSET(Entries!$A$10,0,0,COUNTA(Entries!$A$10:$A$209),1)

I want to start with the first name, enter the value in Range ("Receipt!C48")
Then run my code
then put the next name on the list into Receipt!C48
Then run my code again
Continue this until the last name is entered.
I am running the macro while on the Receipt Worksheet and the list of names are in the Entries worksheet. My code needs to run on the Receipt Worksheet.

I have worked with looping macros and can do this but my way is exceedingly slow and clumsy.
Can anyone please help me with a code which will run quickly and efficiently to do this.

 

[StephenCrump]

The loop construction is quick and easy. One way you could do do this:

In Excel, Receipt!C48:= Index(Entries,N) where N is an Excel range name.

Dim i As Long

Application.ScreenUpdating = False

For i = 1 To Range("Entries").Rows.Count
    Range("N").Value = i
    'run your code here
Next i

Application.ScreenUpdating = True

I suspect it's your code here, rather than your looping, which is slow.

 

[brianfosterblack]

The loop construction is quick and easy. One way you could do do this:

In Excel, Receipt!C48:= Index(Entries,N) where N is an Excel range name.

Dim i As Long

Application.ScreenUpdating = False

For i = 1 To Range("Entries").Rows.Count
    Range("N").Value = i
    'run your code here
Next i

Application.ScreenUpdating = True

I suspect it's your code here, rather than your looping, which is slow.

It was the clumsy way I was creating my code to get the looping. This is so simple and works like a charm. Thank you so much

 

[brianfosterblack]

It was the clumsy way I was creating my code to get the looping. This is so simple and works like a charm. Thank you so much

 

[StephenCrump]

Great, I'm glad it works for you.