TreeView

[ktn]

Merhaba

Sayfa1 C,D,E,F,..........M sutunrında isimleri ve isimlerin altında bakmakla yükümlü kişiler bulunmaktadır.Sayfa 2 de ise B sütunuda bütün isimler C2,D2.......M2 de ise görevi TC kimilk no vb bilgiler bulunmakta Sayfa1 deki isimleri TreeView'in içine alıdıktan sonra ismin üzerini tıklayıp Sayfa2 de C2,D2.......M2 deki verileri TextBox'lara aktarabilir miyiz?

Yardımlarınız için Teşekkürler.

 

[tevfikdemir]

Bu çok rahat bir şekilde alınabilir, konuyla ilgili arama yaptırırsanız örnekleride göreceksiniz.Ayrıca örnek dosya gönderirseniz sorularınız daha kısa zamanda cevap bulacaktır.

Saygılar

 

[ktn]

Merhaba
Sayfa1'in içindeki bilgileri TreeView'in içine alıyorum.TreeView'in içine aldığım isimlerin üzerini tıkladığımda sayfa2 de o isme karşılık gelen bilgilerin TextBox'un içine yerleşmesini nasıl sağlayabiliriz.ListBox'ta bunu yapmak mümkün acaba TreeViev'de olur mu?

Dosya ektedir.

 

[abdi]

ekteki dosyayı bi inceleyin derim

seçtiğiniz personele çift tıklayınca ilgili textboxlar dolacaktır.

Çalışmlarınızda başarılar dilerim.

 

[ktn]

Teşekkürler Hocam

 

[tevfikdemir]

Dosyanızda değişikliği yapıp gönderdim umarım istediğiniz gibidir.

Saygılar

 

[tevfikdemir]

abdi hocam zaten gerekeni yapmış görmemiştim

 

[ktn]

Merhaba
İlginiz için Teşekkür ederim.Abdi Hocamın verdiği örnekte sadece personeli tıkladığım zaman o personele ait bilgileri alabiliyorum.Yapmak istediğim ise bakmakla yükümlü olduğu kişiler ve kişilerin biligileride sayfa2 de sıralanmış.hangi ismi tıklarsam ona ait bilgiler TextBox'lara aktarılsın.Sevk Programı yapmıştım.Fakat isimler aynı yerde olduğu için isimlere ulaşmak zaman alıyor.Bu şekilde olursa + tıkladığın zaman bakmakla yükümlü olduğu kişiler görünür ve üzerini tıkladığın zaman o kişiye ait bilgiler TextBox'lara ordan da Excel'de cizdiğim sevk kağıdını yansıtacağım.

 

[abdi]

Sayın ktn,

Private Sub TreeView1_DblClick()
a = UserForm1.TreeView1.SelectedItem.Parent.Text

Private Sub TreeView1_DblClick()
a = UserForm1.TreeView1.SelectedItem.Text
diğer kodlar aynen devam

a değişkeninin değerini dediğim gibi değiştirin
a = UserForm1.TreeView1.SelectedItem.Text
şeklinde yazın
Rica ederim.
Estağfurullah hoca sıfatını kabul etmiyorum. Bende sizler gibi bişeyler öğrenmeye çalışıyorum.
saygılar sunar
çalışmalarınızda başarılar dilerim.

 

[abdi]

Sayın tevfikdemir,
sizede çokl teşekkürler örnek çözümünüz sizinde güzel saygılar sevgiler
çalışmalarınızda başarılar dilerim.

 

[abdi]

Sayınktn,
aynı kodu biraz daha değiştirerek click olayınıa yazdım daha iyi oldu tercih sizin

Private Sub TreeView1_Click()
On Error GoTo son
Dim bak As Range
Dim a As String
a = UserForm1.TreeView1.SelectedItem.Text
If a <> "" Then

Sayfa2.Select
    For Each bak In Sayfa2.Range("B2:B" & WorksheetFunction.CountA(Sayfa2.Range("B1:B65000")))
        If StrConv(bak.Value, vbUpperCase) = StrConv(a, vbUpperCase) Then
        
        '   .ComboBox1.Value, vbUpperCase) Then
            bak.Select
            With UserForm1
            
            .TextBox1.Value = bak.Offset(0, 0) 'adı soyadı
            .TextBox4.Value = bak.Offset(0, 1) 'görevi
            .TextBox2.Value = bak.Offset(0, 3) 'tc kimlik no
            .TextBox3.Value = bak.Offset(0, 2) 'sicil no
            End With
            Exit Sub
        End If
    Next bak
Else
Exit Sub
   End If
son:
    MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub

 

[ünal karadavut]

merhaba arkadaşlar,
bu bilgilere bakarak secere programı yapabilir miyiz?
veyada secere programı yapan , ya da bu tür uğraşan varsa bizimle paylaşmasını istiyorum.

herkeze kolay gelsin.

 

[ktn]

Teşekkürler Abdi Bey
Tamamdır.