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

kemal turan

Altın Üye
Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,259
Beğeniler
5
Excel Vers. ve Dili
Excel 2016
#1
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.
 
Katılım
31 Aralık 2014
Mesajlar
1,571
Beğeniler
32
Excel Vers. ve Dili
Excel 2010
#2
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
Kod:
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

Altın Üye
Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,259
Beğeniler
5
Excel Vers. ve Dili
Excel 2016
#4
Sn. plint ,
Kusura bakmayın.
Acaba 2 ayrı sayfa direk olarak tek bir listview1 de görüntülenebilir mi.?
Teşekkür ederim.
 
Katılım
31 Aralık 2014
Mesajlar
1,571
Beğeniler
32
Excel Vers. ve Dili
Excel 2010
#5
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
Kod:
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
 
Üst