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

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[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

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Sayın veyselemre çok teşekkür ediyorum. Sorunun birinci bölümünü böylece halletmiş oldunuz.
dEdE' Alıntı:
-->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.
 
Katılım
7 Temmuz 2004
Mesajlar
327
Excel Vers. ve Dili
office xp pro türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
:bravo: Teşekkürler... :bravo:
 
Üst