Return live URLs

[John Caines]

Hi All.
Hope someone can help me out here.
Basically I have a long list of URLs in Col A From A2 down, here's a screenshot

Book1
	A	B
1	URLs	RETURNED URLS
2	http://www.abalkhailrealestate.com	http://www.abalkhailrealestate.com
3	http://www.dirc.ae	http://www.dirc.ae
4	http://www.luckydealuae.com	https://luckydealuae.com/
5
6	http://www.amberrealestate.ae	http://www.amberrealestate.ae
7	http://www.househuntersdubai.com	http://www.househuntersdubai.com
8
9	http://www.espace.ae	https://www.espace.ae/
Sheet1

What I'm looking to do is just test each URL that is listed in Col A and return whatever the LIVE URL is (returned in Col B).
That's it!
I've tried to find solutions online, but they all either delete empty spages or remove duplicates etc etc
I just need to test whatever is in Col A and return a result on the same row in COL B

Some URLs tested and returned (Col B) might go from http to https, or maybe from www. to non www. etc etc, or maybe even redirect to a different domain extention, IE from .com to .co.uk

If it's a VBA solution (Which I'm guessing it needs to be) it can have a long timeout period for each URL, (maybe 20 seconds even) as some URLs I'm looking at are abroad, and could be on a slow server etc
The Most URLs that will be in Col A will probably never go over 1,000

I really hope someone can help me out here
I've spent ages trying to find something online to do this, and I just don't see 1

Many thanks in advance, and hope everyone has a great New Year, even with this Covid around
(BTW) 1st time I'm trying out the xl2bb addin!
Hope it displays my URL examples ok!

Very Best regards
John C

 

[John Caines]

Hi there,,,
Just to add,
If it's easier,, you could return changed results in Col B,, and so then combine Changed results and original URLs that are still currently live) all into Col C

Whatever is easier.
Way above me,,, just trying to think aloud and give maybe another alternative

Many thanks again

Happy New Year to you all
Best Regards
John C

 

[navic]

Maybe here's the solution for you

Check if URL is valid

Hey guys, I have a column full of image URLs (from cell F2 down). I just need a macro or something to validate each URL leads to a valid image file (.jpg). If it is a valid image URL, it continues to the next without taking action on the cell. If it's invalid, then the cell value (ie the...

www.mrexcel.com

 

[John Caines]

Hi Navic!!
Many thanks for your reply, I've just seen it come in!
Great stuff,,,

Man, this looks like some serious code!

I'll take a look now.
Many thanks for this find, I'll see how it runs.

Thanks again Navic
I'll let you know how it works out!
Best regards
John C

 

[John Caines]

Hi Navic,
Sorry but I couldn't get this to run for me so I don't even know what the end result would look like.
I have a test sheet here, and it throws up an error when I clcik to run on the vba buitton

url-test-vba-sheet.xlsm

Shared with Dropbox

www.dropbox.com

I also attach image of the vba error that is being thrown up

I'm not 100% sure if this would give the correct result Navic as reading what the original poster said;
--------------------------
If it is a valid image URL, it continues to the next without taking action on the cell.

If it's invalid, then the cell value (ie the URL) is removed, and the function moves to the next cell in the column.
--------------------------
I don't know how this would work with redirected URLs,, IE if the original was say http and the LIVE url is now https would it return this or not?

I don't know why this is broken, so I can't test it
Many thanks though Navic,,
This is kind of on the right track I'm guessing.

Hope someone can work out a solution to my post as it would be really really handy.

Best regards Navic
And happy new year BTW!
John C