Looping problem

Hi I'm having trouble getting a macro to loop through a list of names

Please Login or Register  to view this content.

I have BO2:BO6, a list of 5 names, I want the macro take the first name, copy that name to BK1, then run the import macro (which will generate some numbers in sheet2). copy those numbers (4 cells) in the cell right next to the corresponding name (BP column).. then loop through the next name, do the same thing, and so on until the end of the list.

I have made several mistakes, as it doesn't loop, but rather imports only the first or the last name in the list and then stops.
Thanks for your time

You are using "ActiveSheet" in your code; you should use the actual sheet name instead.
You are initializing lr & lr1 to the last row on some sheet, but there is no way from the code to tell what sheet it is, or should be.
It would be better for readabiliity and debugging to get the name of the sheet that is active when the code starts.

Dim Source as Worksheet
Set Source =Activesheet
Then

lr=Source.Cells(..... etc.

Notice that in the top your loop you say:
ActiveSheet.Range("BK1") = cell.Value

but at the bottom you say, Sheets("Sheet2").Activate. So, when the loop increments to the next cell, it looks on Sheet2. Is that what you want?

lr1 is set outside the loop, say, lr1 =10, then ws1.Range("BP" & lr1 + 1).PasteSpecial Paste:=xlPasteValues, will reference "BP11". Note that lr1 remains at 10, it does not increment. So the values are always pasted into row 11.

Please Login or Register  to view this content.