1 sayfadan 1. sayfa

TreeView Hk.

İletiTarih: 21 Mar 2012 16:41
aoeflatun
Arkdaşlar ekli dosyada treewiev ile ilgili bir çalışmam var.
Userform içindeki Treewiev nesnesinde A'nın bir alt dizini olan A 01'e tıkladığımda userformda sarı ile olan yere açıklayıcı not yazısı geliyor.
Yapmak istediğim sadece A 'yı tıkladığımda açıklayıcı yazı gelsin, A 01 'i tıkladığımda o yazı gelmesin istiyorum.
Yardımlarınız için teşekkür ederim.

Cevap: Treewiev Yardım

İletiTarih: 21 Mar 2012 18:00
Tarkan VURAL
Selamlar. Dosyanızdaki verilerde tamamlama yaptım. Örnekten incelersiniz. Şu kısa kodlarla istediğnizi yapabilirsiniz.


Kod: Tümünü seç
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Set ara = Sheets("A").Range("a2:a65536").Find(TreeView1.SelectedItem.Text, , xlValues, xlWhole)
If Not ara Is Nothing Then TextBox5.Value = Sheets("A").Range("D" & ara.Row).Value

Set ara = Sheets("a").Range("b2:b65536").Find(TreeView1.SelectedItem.Text, , xlValues, xlWhole)
If Not ara Is Nothing Then
For i = 5 To 19
    veri = veri & Sheets("A").Cells(ara.Row, i).Value & vbCrLf
Next i
    TextBox1.Value = veri
    TextBox4.Value = Sheets("A").Range("C" & ara.Row).Value
Else
    TextBox1.Value = ""
End If
End Sub

Cevap: Treewiev Yardım

İletiTarih: 21 Mar 2012 19:12
aoeflatun
Tarkan bey,
Yardımlarınız için teşekkür ederim.
Yaptığınız düzeltmeden sonra birazda ben değişiklik yaptım ve istediğim gibi oldu. İlave olarak 1 tane daha textbox kullandım.
Dosya ekteki gibi oldu.