Comments by Member 13902663 (Top 1 by date)

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

If Node.Key = "Mjpahfkk;" Or Node.Key = "ahj;jpuhfkk;" Or Node.Key = "Nytpauhfkk;" _
Or Node.Key = "vz;zhfkk;" Or Node.Key = "cghfkk;" Or Node.Key = "NahRth" _
Or Node.Key = "epahahjpgjpfs;" Or Node.Key = "&j;" Or Node.Key = "1 rhKNty;" _
Or Node.Key = "2 rhKNty;" Or Node.Key = "1 ,uh[hf;fs;" Or Node.Key = "2 ,uh[hf;fs;" _
Or Node.Key = "1 ehshfkk;" Or Node.Key = "2 ehshfkk;" Or Node.Key = "v];wh" _
Or Node.Key = "neNfkpah" Or Node.Key = "v];jh;" Or Node.Key = "NahG" _
Or Node.Key = "rq;fPjk;" Or Node.Key = "ePjpnkhopfs;" Or Node.Key = "gpurq;fp" _
Or Node.Key = "cd;djg;ghl;L" Or Node.Key = "Vrhah" Or Node.Key = "vNukpah" _
Or Node.Key = "Gyk;gy;" Or Node.Key = "vNrf;fpNay;" Or Node.Key = "jhdpNay;" _
Or Node.Key = "Xrpah" Or Node.Key = "NahNty;" Or Node.Key = "MNkh];" _
Or Node.Key = "xgjpah" Or Node.Key = "Nahdh" Or Node.Key = "kPfh" _
Or Node.Key = "eh$k;" Or Node.Key = "Mg$f;" Or Node.Key = "nrg;gdpah" _
Or Node.Key = "Mfha;" Or Node.Key = "rfhpah" Or Node.Key = "ky;fpah" _
Or Node.Key = "kj;NjA" Or Node.Key = "khw;F" Or Node.Key = "Y}f;fh" _
Or Node.Key = "Nahthd;" Or Node.Key = "mg;Ngh];jyUila elgbfs;" Or Node.Key = "NuhkH" _
Or Node.Key = "1 nfhhpe;jpaH" Or Node.Key = "2 nfhhpe;jpaH" Or Node.Key = "fyhj;jpaH" _
Or Node.Key = "vNgrpaH" Or Node.Key = "gpypg;gpaH" Or Node.Key = "nfhNyhnraH" _
Or Node.Key = "1 njrNyhdpf;NfaH" Or Node.Key = "2 njrNyhdpf;NfaH" Or Node.Key = "1 jPNkhj;NjA" _
Or Node.Key = "2 jPNkhj;NjA" Or Node.Key = "jPj;J" Or Node.Key = "gpNyNkhd;" _
Or Node.Key = "vgpNuaH" Or Node.Key = "ahf;NfhG" Or Node.Key = "1 NgJU" _
Or Node.Key = "2 NgJU" Or Node.Key = "1 Nahthd;" Or Node.Key = "2 Nahthd;" _
Or Node.Key = "3 Nahthd;" Or Node.Key = "A+jh" Or Node.Key = "ntspg;gLj;jpd tpNr\k;" Then

Else

Dim LastRowID As Long

LastRowID = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row

For Each ID In Range(Sheet2.Cells(2, 1), Sheet2.Cells(LastRowID, "A"))

If ID.Value = Node.Key & ":" & Node.Text & ":" & SpinButton1.Value Then

Label6.Caption = ID.Offset(, 1).Value
Label7.Caption = ID.Offset(, 2).Value
Label8.Caption = ID.Offset(, 3).Value
Label9.Caption = ID.Offset(, 4).Value
TextBox1.Text = ID.Offset(, 5).Value

End If
Next ID

End If

End Sub