Hyperlinked sheets to copy cells in specific cell

**Niklas1976** · 02-29-2012, 04:03 PM

Hi
I have 2 columns A and B
Column A is all the sheets as hyperlinks and column B is a text.

What I want the macro to do is:
Copy the cell B2
Use the hyperlink in A2
Paste the B2 information in the hyerlink sheet cell J6
And loop it until there is no more information in A or B column

Any one can help me with this?

Best Regards Niklas

**AlvaroSiza** · 03-01-2012, 03:33 AM

I took "no more information" to mean that you did not want to keep it after we have completed each task. The following will send the B2 value to the J6 range of the linked worksheet in Column A until there are no more entries in Column B, and then erase the entire original set.

Please make a copy of your workbook and test the following on your copy. VBA is difficult to undo and a few simple precautionary steps can save you time and a headache.

Please Login or Register  to view this content.

If it is not your wish to erase the original data, replace:

Please Login or Register  to view this content.

of the above with:

Please Login or Register  to view this content.

which will simply navigate you back home.

-HTH-

**Niklas1976** · 03-01-2012, 04:43 AM

Thank you soooo soooo much this was amazing.
Just what I wanted
Gonna try to understand the code learn VBA-programming cause this is brilliant.

//Niklas

**Niklas1976** · 03-01-2012, 09:20 AM

Do i need to copy the code into every file I want to work with
or is it possible to just copy sheet1 into the file I want to do the macro in?
When I do that the code takes the old file, and opens it and do the command there.

Think I found it?

Set wsSource = ThisWorkbook.Sheets("Sheet1")
vs.
Set wsSource = ActiveWorkbook.Sheets("Sheet1")