[Çözüldü]  TreeView Hk.

Birbirine bağlantılı dosyaları klasör ağacı yapısında göstermeye yarayan nesne.

TreeView Hk.

İleti#1)  aoeflatun » 21 Mar 2012 16:41

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
aoeflatun
Yeni Başlamış
 
Adı Soyadı:Ali Osman Eflatun
Kayıt: 07 Eyl 2008 23:19
Konum: Ankara
Meslek: Muhasebe
Yaş: 47
İleti: 35
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Treewiev Yardım

İleti#2)  Tarkan VURAL » 21 Mar 2012 18:00

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27385
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Treewiev Yardım

İleti#3)  aoeflatun » 21 Mar 2012 19:12

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
aoeflatun
Yeni Başlamış
 
Adı Soyadı:Ali Osman Eflatun
Kayıt: 07 Eyl 2008 23:19
Konum: Ankara
Meslek: Muhasebe
Yaş: 47
İleti: 35
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara


Forum TreeView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe