Loading ...
Sorry, an error occurred while loading the content.

Re: Stock screener.xls ticket hypelink each symbol

Expand Messages
  • almondtree
    I got it to work URL = http://finviz.com/quote.ashx?t= + cell.Value + &ty=c&ta=1&p=d End If I inserted a new column then copy tickers over, Run macro
    Message 1 of 7 , Dec 2, 2011
    View Source
    • 0 Attachment
      I got it to work URL = "http://finviz.com/quote.ashx?t=" + cell.Value + "&ty=c&ta=1&p=d"
      End If
      I inserted a new column then copy tickers over, Run macro works. Next to see if it works in Reuters or Google.
      --- In smf_addin@yahoogroups.com, Randy Harmelink <rharmelink@...> wrote:
      >
      > You would need to modify the "rng" and "URL" values to be what you need
      > them to be. Like I said, I personally prefer to use the hyperlink function
      > in a new column.
      >
      > On Thu, Dec 1, 2011 at 4:21 PM, almondtree <almondtree@...> wrote:
      >
      > >
      > > Ifound this Macro on Yahoo Answers: It makes all tickers blue I don't know
      > > how insert a URL maybe you could have a look:
      > > Sub ConvertToHyperlink()
      > > Dim rng As Range
      > > Set rng = Range("A6:A" & Cells _
      > > (rows.Count, 1).End(xlUp).Row)
      > > 'Set rng = ActiveSheet.UsedRange
      > > For Each cell In rng
      > > cell.Select
      > > If cell.Value <> "" Then
      > > If Left(cell.Value, 7) = "http://" Then
      > > URL = cell.Value
      > > Else
      > > URL = "http://" + cell.Value
      > > End If
      > > ActiveSheet.Hyperlinks.Add Anchor:=cell, _
      > > Address:=URL, TextToDisplay:=cell.Value
      > > End If
      > > here:
      > > Next
      > > End Sub
      > >
      > >
      > >
      > > ------------------------------------
      > >
      > > Yahoo! Groups Links
      > >
      > >
      > >
      > >
      >
    • Randy Harmelink
      If you re going to insert a new column, wouldn t it be easier to just use the HYPERLINK() function?
      Message 2 of 7 , Dec 2, 2011
      View Source
      • 0 Attachment
        If you're going to insert a new column, wouldn't it be easier to just use the HYPERLINK() function?

        On Fri, Dec 2, 2011 at 11:11 PM, almondtree <almondtree@...> wrote:
        I got it to work URL = "http://finviz.com/quote.ashx?t=" + cell.Value + "&ty=c&ta=1&p=d"
         End If
        I inserted a new column then copy tickers over, Run macro works. Next to see if it works in Reuters or Google.

      • almondtree
        What s the fun in that? when blinding speed works for you.
        Message 3 of 7 , Dec 2, 2011
        View Source
        • 0 Attachment
          What's the fun in that? when blinding speed works for you.

          --- In smf_addin@yahoogroups.com, Randy Harmelink <rharmelink@...> wrote:
          >
          > If you're going to insert a new column, wouldn't it be easier to just use
          > the HYPERLINK() function?
          >
          > On Fri, Dec 2, 2011 at 11:11 PM, almondtree <almondtree@...> wrote:
          >
          > > I got it to work URL = "http://finviz.com/quote.ashx?t=" + cell.Value +
          > > "&ty=c&ta=1&p=d"
          > > End If
          > > I inserted a new column then copy tickers over, Run macro works. Next to
          > > see if it works in Reuters or Google.
          > >
          >
        Your message has been successfully submitted and would be delivered to recipients shortly.