Cell Value Needs To Replace String

[drmingle]

Const strURI As String = "http://www.google.com/#sclient=psy&hl=en&safe=active&source=hp&q=site:+squidoo.com+%22space saver treadmill%22&aq=f&aqi=&aql=&oq=&pbx=1&bav=on.2,or.r_gc.r_pw.&fp=d69918eb06677aa8"

This code snippet deals with one single hard-coded http, but I need the code to reference values in a cell.

I thought I could do Range(A2), but I have been unsuccessful. I am not sure if it has to do with " " or not...

 

[Jonmo1]

[B][COLOR=red]Const[/COLOR][/B] strURI As String = "http://www.google.com/#sclient=psy&hl=en&safe=active&source=hp&q=site:+squidoo.com+%22space saver treadmill%22&aq=f&aqi=&aql=&oq=&pbx=1&bav=on.2,or.r_gc.r_pw.&fp=d69918eb06677aa8"

This code snippet deals with one single hard-coded http, but I need the code to reference values in a cell.

I thought I could do Range(A2), but I have been unsuccessful. I am not sure if it has to do with " " or not...

You've dimmed it as a constant, so therefore it must be constant (cannot contain variables)...

Try changing that all to

Dim StrURI As String
StrURI =  "http://www.google.com/#sclient=psy&hl=en&safe=active&source=hp&q=site:+squidoo.com+%22space saver treadmill%22&aq=f&aqi=&aql=&oq=&pbx=1&bav=on.2,or.r_gc.r_pw.&fp=d69918eb06677aa8"

Then you can start concatenating the string using Range("A1").Value or whatever.

 

[drmingle]

StrURI = "http://www.google.com/#sclient=psy&hl=en&safe=active&source=hp&q=site:+squidoo.com+%22" [B][COLOR=Red]& Range(A2) &[/COLOR][/B] "%22&aq=f&aqi=&aql=&oq=&pbx=1&bav=on.2,or.r_gc.r_pw.&fp=d69918eb06677aa8"

The section in "red" is what I have added, but I am getting a 1004 error global fail...

Any suggestions.

 

[Jonmo1]

Change
Range(A2)
to
Range("A2")

 

[drmingle]

jonmo1
MrExcel MVP​

Outstanding...that's what I needed.​

Thank You.
​