On Apr 3, 12:22 pm, "NickHK" wrote:
Check your "With" blocks.
It looks like "Set nodX = .Add("GP", ...
is referring to Worksheets("tv").Range("Pr" & i)
You cannot nest 2 unrelated object hierarchies.
NickHK
"Ram" wrote in message
oups.com...
On Apr 3, 12:01 pm, "RB Smissaert"
wrote:
Set nodX = .Add( etc.
Nodes have to be added to a Treeview and I didn't see that in your
code.
RBS
"Ram" wrote in message
oups.com...
With Worksheets("Cert_Path_module")
For i = 1 To 5
With .Range("Module_" & i)
If .Range("Module_" & i).Values < "" Then
Set nodX = .Add("Path", tvwChild, "Mod",
Worksheets("Cert_Path_module").Range("Module_" & i).Value)
End If
End With
Next i
End With
But when the system executes
Set nodX = .Add("Path", tvwChild, "Mod",
Worksheets("Cert_Path_module").Range("Module_" & i).Value)
I get error
Run-time error '438':
Object doesn't support this property or method.- Hide quoted text -
- Show quoted text -
The complete code is as follows
Private Sub UserForm_Initialize()
Dim i As Integer
Dim nodX As Node
With TreeView1.Nodes
.Clear
Set nodX = .Add(, , "GP", Worksheets("tv").Range("GP").Value)
With Worksheets("tv")
For i = 1 To 5
With .Range("Pr" & i)
If .Range("Pr" & i).Values < "" Then
Set nodX = .Add("GP", tvwChild, "Parent1",
Worksheets("tv").Range("Pr" & i).Value)
End If
End With
Next
End With
nodX.Expanded = True
nodX.Expanded = True
nodX.EnsureVisible
End Sub
but i get error Run-time error '438': Object doesn't support this
property or method, when the system tries to excute this line
Set nodX = .Add("GP", tvwChild, "Parent1", Worksheets("tv").Range("Pr"
& i).Value)
Where am i going wrong??- Hide quoted text -
- Show quoted text -
My excel sheet has
1- Grand Parent
5- Parents
and 100 kids (each Parent having 20 kids each)
now i can write a huge code to get values from the sheet and Populate
the node, but the problem i face if there are Empty cells i.e. if in
the excel sheet on 2 parents fields are filled and only 10 kids fields
are filled. I get an empty node whereever empty cells. this make the
treeview look absurd. I got a reply from one of the group members to
use an if condition. And i used it (the above code) which throws an
error.
Any suggestions?