1 sayfadan 1. sayfa

TreeView Hk.

İletiTarih: 31 Mar 2010 15:53
k_cagatay
Merhaba arkadaşlar;
Sizden bir konuda yardım istiyorum. Ekte gönderdiğim xls dosyasında sayfa2 ve sayfa3 de veriler bulunmaktadır. Bu verileri ayrı ayrı treeview e nasıl alınır yardımcı olursanız çok sevinirim. Siteden indirdiğim örnek üzerinde çok uğraştım ama beceremedim. İlginize şimdiden teşekkürler.
Kolay gelsin

Cevap: Treeview yardım

İletiTarih: 31 Mar 2010 17:21
Emrah ÇANAKKALE
Merhaba Çağtay, alttaki kodlar "Form" adlı userform için initialize olayını silip bu kodları kopyalayın. Kodlar biraz karışık. :D

Kod: Tümünü seç
Private Sub UserForm_Initialize()
With TreeView1
    .ImageList = Me.ImageList1
    .LabelEdit = tvwManual
    .LineStyle = tvwRootLines
End With
syl = 2
On Error Resume Next
With TreeView1.Nodes
.Add , , "ana", Sheets("sayfa2").Cells(1, 1).Value, 1
kk = WorksheetFunction.CountA(Sheets("sayfa2").Range("a:a"))
For t = 1 To kk 'WorksheetFunction.CountA(Sheets("sayfa2").Range("a:a"))
sy = 0
kkk = Sheets("sayfa2").Cells(65536, 4).End(3).Row
For i = syl To Sheets("sayfa2").Cells(65536, 3).End(3).Row
If Sheets("sayfa2").Cells(i, 1).Value <> "" Then
          .Add "ana", tvwChild, Trim(Sheets("SAYFA2").Cells(i, 1).Value), Trim(Sheets("SAYFA2").Cells(i, 1).Value), 2
       For g = i + 1 To Sheets("sayfa2").Cells(65536, 3).End(3).Row
       If Sheets("sayfa2").Cells(g, 1).Value <> "" Then sy = g: GoTo atla
       Next g
atla:
If sy < 1 Then sy = Sheets("sayfa2").Cells(65536, 3).End(3).Row
syl = sy
For ty = i To sy - 1
If Sheets("sayfa2").Cells(ty, 2).Value <> "" Then
.Add Trim(Sheets("SAYFA2").Cells(i, 1).Value), tvwChild, Trim(Sheets("SAYFA2").Cells(ty, 2).Value), Trim(Sheets("SAYFA2").Cells(ty, 2).Value), 4
  If Sheets("sayfa2").Cells(ty, 3).Value <> "" Then
  .Add Trim(Sheets("SAYFA2").Cells(ty, 2).Value), tvwChild, Trim(Sheets("SAYFA2").Cells(ty, 3).Value), Trim(Sheets("SAYFA2").Cells(ty, 3).Value), 4
     '.Add Trim(Sheets("SAYFA2").Cells(ty, 3).Value), tvwChild, Trim(Sheets("SAYFA2").Cells(ty, 4).Value), Trim(Sheets("SAYFA2").Cells(ty, 4).Value), 4
    End If
    For hj = 1 To 10
    If Sheets("sayfa2").Cells(ty + hj, 3).Value <> "" And Sheets("sayfa2").Cells(ty + hj, 2).Value = "" Then
    .Add Trim(Sheets("SAYFA2").Cells(ty, 2).Value), tvwChild, Trim(Sheets("SAYFA2").Cells(ty + hj, 3).Value), Trim(Sheets("SAYFA2").Cells(ty + hj, 3).Value), 4
       '.Add Trim(Sheets("SAYFA2").Cells(ty + hj, 3).Value), tvwChild, Trim(Sheets("SAYFA2").Cells(ty + hj, 4).Value), Trim(Sheets("SAYFA2").Cells(ty + hj, 4).Value), 4
      Else
      GoTo atla2
      End If
      Next hj
atla2:
End If
Next ty
End If
Next i
Next t
End With
TreeView1.Nodes(1).Expanded = True
End Sub