Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error
I'm getting error #9 subscript of of range error that I cannot figure out.
the error occors on the line with cPhones = rPhones.Find(.Customer, LookIn:=xlValue) Below is part of the code that give me the issue. Sub sSetupPhones(recBP As defBP, pCustomer As String) Dim nIdx As Integer Dim cPhones As Range Dim cFaxes As Range Dim rPhones As Range Dim rFaxes As Range Set rPhones = Range("tPhones") Set rFaxes = Range("tFaxes") With recBP cPhones = rPhones.Find(.Customer, LookIn:=xlValue) If Not cPhones Is Nothing Then .... recBP is a custom type which does have the following declaration type defBP Customer As String ' A Customer Number .... CommID(6) As String ' CT Communication Identification CommType(6) As String ' CU Communication Type CommExt(6) As String ' CV Communication Extention CommRemark(6) As String Message As String ' DI Message end type The subroutine sSetupPhone is called from another sub program that passes the type structure and the .customer field has a value of "10026241" Thanks in advance Guy Normandeau |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error
cPhones = rPhones.Find(.Customer, LookIn:=xlValue)
should be set cPhones = rPhones.Find(.Customer, LookIn:=xlValue) -- Regards, Tom Ogilvy "Guy Normandeau" wrote: I'm getting error #9 subscript of of range error that I cannot figure out. the error occors on the line with cPhones = rPhones.Find(.Customer, LookIn:=xlValue) Below is part of the code that give me the issue. Sub sSetupPhones(recBP As defBP, pCustomer As String) Dim nIdx As Integer Dim cPhones As Range Dim cFaxes As Range Dim rPhones As Range Dim rFaxes As Range Set rPhones = Range("tPhones") Set rFaxes = Range("tFaxes") With recBP cPhones = rPhones.Find(.Customer, LookIn:=xlValue) If Not cPhones Is Nothing Then ... recBP is a custom type which does have the following declaration type defBP Customer As String ' A Customer Number ... CommID(6) As String ' CT Communication Identification CommType(6) As String ' CU Communication Type CommExt(6) As String ' CV Communication Extention CommRemark(6) As String Message As String ' DI Message end type The subroutine sSetupPhone is called from another sub program that passes the type structure and the .customer field has a value of "10026241" Thanks in advance Guy Normandeau |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error
Now I feel a little stupid! Not only did I not have 'set', xlValue does not
esist! It should have read xlValues. Thanks for you help. Guy "Tom Ogilvy" wrote: cPhones = rPhones.Find(.Customer, LookIn:=xlValue) should be set cPhones = rPhones.Find(.Customer, LookIn:=xlValue) -- Regards, Tom Ogilvy "Guy Normandeau" wrote: I'm getting error #9 subscript of of range error that I cannot figure out. the error occors on the line with cPhones = rPhones.Find(.Customer, LookIn:=xlValue) Below is part of the code that give me the issue. Sub sSetupPhones(recBP As defBP, pCustomer As String) Dim nIdx As Integer Dim cPhones As Range Dim cFaxes As Range Dim rPhones As Range Dim rFaxes As Range Set rPhones = Range("tPhones") Set rFaxes = Range("tFaxes") With recBP cPhones = rPhones.Find(.Customer, LookIn:=xlValue) If Not cPhones Is Nothing Then ... recBP is a custom type which does have the following declaration type defBP Customer As String ' A Customer Number ... CommID(6) As String ' CT Communication Identification CommType(6) As String ' CU Communication Type CommExt(6) As String ' CV Communication Extention CommRemark(6) As String Message As String ' DI Message end type The subroutine sSetupPhone is called from another sub program that passes the type structure and the .customer field has a value of "10026241" Thanks in advance Guy Normandeau |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Runtime Error - Subscript out of range despite On Error statement | Excel Programming | |||
Subscript out of range error - save copy error | Excel Programming | |||
Subscript out of range error - save copy error | Excel Programming | |||
Subscript out of range error | Excel Discussion (Misc queries) | |||
Type Mismatch error & subscript out of range error | Excel Programming |