Link extraction...

[vaxo]

Hello friends, I need to extract link in I column... How is it possible?

[HansV]

Wouldn't that simply be the formula

="https://reportal.ge/Home.aspx/Reports/Report?q="&A2&"&SystemID=1&show="&A2&"&SystemID=1&show=1"

[vaxo]

Ok, can it be possible with vba?

[HansV]

I don't understand why you need this. You assemble the URL yourself...

Code: Select all

Sub ExtractURL()
    Dim r As Long
    Dim m As Long
    Application.ScreenUpdating = False
    m = Range("H" & Rows.Count).End(xlUp).Row
    For r = 2 To m
        Range("I" & r).Value = "'https://reportal.ge/Home.aspx/Reports/Report?q=" & Range("A2").Value & "&SystemID=1&show=" & Range("A2").Value & "&SystemID=1&show=1"
    Next r
    Application.ScreenUpdating = True
End Sub

[vaxo]

I need to open multiple URL's on the web and I have an extension for that, but I need to insert multiple links in this program..

[vaxo]

The links are identical for different companies why?

[HansV]

Sorry, my mistake

Code: Select all

Sub ExtractURL()
    Dim r As Long
    Dim m As Long
    Application.ScreenUpdating = False
    m = Range("H" & Rows.Count).End(xlUp).Row
    For r = 2 To m
        Range("I" & r).Value = "'https://reportal.ge/Home.aspx/Reports/Report?q=" & _
           Range("A" & r).Value & "&SystemID=1&show=" & Range("A" & r).Value & "&SystemID=1&show=1"
    Next r
    Application.ScreenUpdating = True
End Sub

[vaxo]

Big, big Thanks..