LİSTVİEW BİRLEŞTİRME

[kemal turan]

MERHABA,
İki ayrı sahifeden iki ayrı listview e aldığım satış ve kasa verilerini bir sayfaya gönderip ekstre olarak 3 ncü listview e alıyorum.
Sayfaya göndermeden 3 ncü listview de birleştirme mümkün müdür.

 

[PLİNT]

Merhaba
"Listview3" properties ayarlarının form açıldığında hazır olduğunu ve ilk iki "Listview" sütun sayısının aynı olduğunu varsayarak aşağıdaki gibi yapabiliriz
https://www.dosyaupload.com/rA3i

Private Sub CommandButton1_Click()
Dim x As Long, i As Integer, yy As Long, f As Integer, b As Long
x = Me.ListView1.ColumnHeaders.Count
With Me.ListView3
.ListItems.Clear
For i = 1 To 2
f = 1
For t = .ListItems.Count To Me.Controls("Listview" & i).ListItems.Count + Me.ListView3.ListItems.Count - 1
.ListItems.Add , , Me.Controls("Listview" & i).ListItems(f).Text
f = f + 1
yy = .ListItems.Count
For b = 1 To x - 1
.ListItems(yy).ListSubItems.Add , , Me.Controls("Listview" & i).ListItems(f - 1).ListSubItems(b).Text
Next
Next: Next
End With
End Sub

 

[kemal turan]

SN.Plint çok teşekkür derim.
Selametle kalınız.

 

[kemal turan]

Sn. plint ,
Kusura bakmayın.
Acaba 2 ayrı sayfa direk olarak tek bir listview1 de görüntülenebilir mi.?
Teşekkür ederim.

 

[PLİNT]

Merhaba
İki sayfa satırlarında seçim yapmaya veya filtrelemeye gerek yok ise ard arda aşağıdaki gibi olabilir.
https://www.dosyaupload.com/eZM4

Private Sub CommandButton1_Click()
syf = Array("Sayfa1", "Sayfa2")
c = Sheets("Sayfa1").Cells(1, Columns.Count).End(xlToLeft).Column
With ListView1
.ListItems.Clear
For i = 0 To UBound(syf)
Set sf = Sheets(syf(i))
For x = 2 To sf.Cells(Rows.Count, 1).End(xlUp).Row
.ListItems.Add , , sf.Cells(x, 1).Value
y = .ListItems.Count
For a = 2 To c
.ListItems(y).ListSubItems.Add , , sf.Cells(x, a).Value
Next
Next
Next
End With
End Sub

 

[kemal turan]

ÇOK TEŞEKKÜR EDERİM.