VBA Range error - How does this work and what am I doing wrong?

VBA Range error - How does this work and what am I doing wrong?

Post by VUlCQ » Mon, 16 Oct 2006 12:39:01


I am stuck. I have a spreadsheet that I want to be able to select certain
stocks in col A and have the charts in col b loop through. An example of my
sheet is:
COL A COL B
BBBY http://www.yqcomputer.com/
BGP http://www.yqcomputer.com/
BKS http://www.yqcomputer.com/

My code follows:Sub Count_Selection()
Dim cell As Object
Dim chart As String
Dim count As Integer

count = 0
For Each cell In Selection
If cell = " " Then End

chart = ActiveCell.Offset(0, 1)

Range("chart").Select

count = count + 1

Next cell

MsgBox count & " item(s) selected"
End Sub
I get a "Methond Range of Worksheet failed" error, but I don't understand if
I should define col B as a range, and if so how to do that.

Any help you can lend someone trying to learn VBA would be greatly
appreciated.
 
 
 

VBA Range error - How does this work and what am I doing wrong?

Post by Stophe » Mon, 16 Oct 2006 14:06:16


Not real sure, but you have a If without end if in there as well. If
you are going to do a for next loop and you are selecting the cells
manually, is there a real need for the:

If cell = "" then End

I'm guessing that the code simple opens the links on the right hand
side? I don't think simply selecting these cells will open the links
either. You need

ActiveWorkbook.FollowHyperlink Address:="http://" &
ActiveCell.Offset(0, 1).value

or something similar to that.

Hope this help some.

 
 
 

VBA Range error - How does this work and what am I doing wrong?

Post by Stophe » Mon, 16 Oct 2006 14:10:56


Stepped away from keyboard and had a thought. You don't really need the
links in Col B because all the links look very similar ie all same
front end with Col A tacked on the end.

Why not just use:

ActiveWorkbook.FollowHyperlink Address:=" http://www.yqcomputer.com/ "
& ActiveCell.value

This will just use the values of the cells you click on in col A.

Regards
Stopher
 
 
 

VBA Range error - How does this work and what am I doing wrong?

Post by Mike Fogle » Mon, 16 Oct 2006 22:12:28

Cell needs to be a Range. Also avoid variable names that Excel uses as
objects ie, Cells, charts, range, sheets, etc.
Try this. It will open each hyperlink in a new IE window for each of the
cells selected in column A.

Sub Count_Selection()
Dim c As Range
Dim rng As Range
Dim chrt As String
Dim count As Integer

chrt = " http://www.yqcomputer.com/ "
Set rng = Selection
count = 0
For Each c In Selection
ActiveWorkbook.FollowHyperlink Address:=chrt & c.Value
count = count + 1
Next

MsgBox count & " item(s) selected"
End Sub

Mike F
 
 
 

VBA Range error - How does this work and what am I doing wrong?

Post by Mike Fogle » Mon, 16 Oct 2006 22:29:23

One more thing, since the hyperlink address is in the code, you don't even
need column B.

Mike F
 
 
 

VBA Range error - How does this work and what am I doing wrong?

Post by Don Guille » Mon, 16 Oct 2006 23:04:15

This will open a separate for each symbol in the list such as bbby(k1) &
bgp(k2)
Sub getyahoochart()
For Each c In Range("k1:k2")
ActiveWorkbook.FollowHyperlink Address:= _
" http://www.yqcomputer.com/ " & c
Next
End Sub

--
Don Guillett
SalesAid Software
XXXX@XXXXX.COM
 
 
 

VBA Range error - How does this work and what am I doing wrong?

Post by VUlCQ » Tue, 17 Oct 2006 04:56:02

You guys rock.

Thank you so much for all the comments, code and ideas. You got me going
again....

I really appreciate it!