Thread: Dropdown box
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Darin Kramer Darin Kramer is offline
external usenet poster
 
Posts: 397
Default Dropdown box



Im trying to get dynamic dependent dropdowns to work.

I was referred to xldynamic.com - and downloaded their code,
(http://www.xldynamic.com/source/xld.Dropdowns.html#dv)

I am wanting to do it using excel validation. I downloaded the sample
excel file, but when trying to get the file to work, Excel returns the
error, "Method range of object failed", and then I am referred to the
code see below.

Any ideas - to fix the code, or where else I can try....

Many thanks Darin



If Not Intersect(Range(kList1), Target) Is Nothing Then
If Target.Count = 1 Then

With data.Range(kList1Hnd)
Set oFoundCell = .Find(what:=Target.Value, _
LookIn:=xlValues)
If oFoundCell Is Nothing Then
MsgBox "Critical error"
Exit Sub
End If
End With

'load the List2 dropdown and set the default to item 1
iTargetCol = oFoundCell.Column - 1
fzCreateValidationList2 Target.Offset(1, 0), iTargetCol,
Target
Target.Offset(1, 0).Value = data.Range(kList2Hnd &
iTargetCol).Value
End If



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!