İlk satırı boş olan tablodan TreeView oluşturamadım.

[dEdE]

Mrb
Uzunca bir süre önce bu forumdan indirdiğim bir treeview nesnesi üzerinde bazı değişiklikler yapmaya çalışıyorum.
Veri kaynağı olarak kullandığım sayfanın A sütünuna treeview e dahil edilmeyecek açıklamalar yazacağım. Aynı şekilde 1. satırıda boş bırakıp açıklamalar yazmak istiyorum. A sutunu boş olunca sorun çıkmıyor ama 1. satırı boşaltınca sorun çıkıyor.
-->TreeView i sayfanın 1. satır boş kalacak şekilde oluşturabilirmiyiz?
-->Sutunlardaki verilerin satırlara yazıldığını varsayarak aynı treeview i oluşturabilirmiyiz?
Saygılar.

 

[veyselemre]

[vb:1:03dfa4afd7]Private Sub UserForm_Initialize()
Dim NodX As Node
Dim Sutun_Sayisi As Integer, Sutunlardak_Son_Satir As Integer

Sutun_Sayisi = Cells(2, 256).End(xlToLeft).Column
With TreeView1
Set NodX = .Nodes.Add(, , "R", "PERSONEL")
NodX.Bold = True
NodX.ForeColor = vbRed
NodX.Expanded = True
For i = 2 To Sutun_Sayisi
Set NodX = .Nodes.Add("R", tvwChild, "Kat" & i, Cells(2, i))
NodX.ForeColor = vbBlue
Sutunlardak_Son_Satir = Cells(65536, i).End(xlUp).Row
For j = 3 To Sutunlardak_Son_Satir
If Cells(j, i) = "" Then
GoTo atla
End If
Set NodX = .Nodes.Add("Kat" & i, tvwChild, TreeView1.Nodes(i).Text & j, Cells(j, i))
NodX.BackColor = vbYellow
atla:
Next
Next
.LineStyle = tvwRootLines
.Style = tvwTreelinesPlusMinusText
End With
Set NodX = Nothing
End Sub
[/vb:1:03dfa4afd7]

 

[dEdE]

Sayın veyselemre çok teşekkür ediyorum. Sorunun birinci bölümünü böylece halletmiş oldunuz.

-->Sutunlardaki verilerin satırlara yazıldığını varsayarak aynı treeview i oluşturabilirmiyiz?

Bu bölüm için dostların yardımlarını bekliyorum.
Saygılar.

 

[abdi]

Sayın dEdE,
Aşağıdaki kodları denermisiniz.
Saygılar Sevgiler
Çalışmalarınızda Başarılar Dilerim.

[vb:1:f724d92b7b]Private Sub UserForm_Initialize()


Dim NodX As Node
Dim noPersonel As Integer, noMahal As Integer
Dim i, j As Integer

noPersonel = Cells(65536, 2).End(xlUp).Row

With TreeView1
Set NodX = .Nodes.Add(, , "R", "PERSONEL")
NodX.Bold = True
NodX.ForeColor = vbRed
NodX.Expanded = True

For i = 2 To noPersonel
Set NodX = .Nodes.Add("R", tvwChild, "Personel" & i, Cells(i, 2))
NodX.ForeColor = vbBlue

noMahal = Cells(i, 256).End(xlToLeft).Column
'NodX.Expanded = True
'
For j = 3 To noMahal
Set NodX = .Nodes.Add("Personel" & i, tvwChild, TreeView1.Nodes(i).Text & j, Cells(i, j))
NodX.BackColor = vbYellow
Next
Next
.LineStyle = tvwRootLines
.Style = tvwTreelinesPlusMinusText
End With
Set NodX = Nothing
End Sub
[/vb:1:f724d92b7b]

 

[dEdE]

:bravo: Teşekkürler... :bravo: