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

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,527
Excel Vers. ve Dili
Excel 2010 32 bit
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,845
Excel Vers. ve Dili
Excel 2010
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
Katılım
10 Haziran 2011
Mesajlar
1,527
Excel Vers. ve Dili
Excel 2010 32 bit
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,845
Excel Vers. ve Dili
Excel 2010
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
 

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,527
Excel Vers. ve Dili
Excel 2010 32 bit
ÇOK TEŞEKKÜR EDERİM.
 
Üst