View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson
 
Posts: n/a
Default SET statement tutorial

Ranges are objects. .Value (for a single cell range) will be a simple string or
double.

Dim rngNetwork as Range
Set rngNetwork _
= Workbooks("UserForm_training").Sheets("backendinfo ").Range("F11").Value

Should be:

Dim rngNetwork as Range
Set rngNetwork _
= Workbooks("UserForm_training").Sheets("backendinfo ").Range("F11")

Or

Dim rngNetwork as Long 'or string
rngNetwork _
= Workbooks("UserForm_training").Sheets("backendinfo ").Range("F11").Value

========
And for the workbook lines, you can't include the full path. It's just the
workbook name of that open file.

Dim wrkbkUrl1 As Workbook
Set wrkbkUrl1 = Workbooks("1 Network.xls")

On the other hand, if the workbook isn't open, you'd use:

Dim wrkbkUrl1 As Workbook
Set wrkbkUrl1 = Workbooks.open _
(filename:="P:\VBA training\Excel templates for Network stats\1 Network.xls")

=========
Debra Dalgleish has a list of books at her site:
http://www.contextures.com/xlbooks.html

John Walkenbach's is a nice one to start with.



Daminc wrote:

Code so far:

Code:
--------------------
Option Explicit


Public Sub UserForm_Initialize()

Dim rngNetwork As Range
Dim strNetwork1 As Range
Dim strNetwork2 As Range
Dim strNetwork3 As Range
Dim wrkbkUrl1 As Workbook
Dim wrkbkUrl2 As Workbook
Dim wrkbkUrl3 As Workbook

Set rngNetwork = Workbooks("UserForm_training").Sheets("backendinfo ").Range("F11").Value
Set strNetwork1 = Workbooks("UserForm_training").Sheets("backendinfo ").Range("I11").Value
Set strNetwork2 = Workbooks("UserForm_training").Sheets("backendinfo ").Range("I12").Value
Set strNetwork3 = Workbooks("UserForm_training").Sheets("backendinfo ").Range("I13").Value
Set wrkbkUrl1 = Workbooks("P:\VBA training\Excel templates for Network stats\1 Network.xls")
Set wrkbkUrl2 = Workbooks("P:\VBA training\Excel templates for Network stats\2 Network.xls")
Set wrkbkUrl3 = Workbooks("P:\VBA training\Excel templates for Network stats\3 Network.xls")


'P:\VBA training\Excel templates for Network stats\UserForm_training\backendinfo
End Sub
--------------------

I've come across about 6 different error types trying to work this
out.
Anything blatently wrong?
Any hints or nudges in the right direction

--
Daminc
------------------------------------------------------------------------
Daminc's Profile: http://www.excelforum.com/member.php...o&userid=27074
View this thread: http://www.excelforum.com/showthread...hreadid=501108


--

Dave Peterson