• Merhaba, 22 Ocak 2020 Çarşamba günü sabah 08:00 ile 12:00 saatleri arasında forumun bulunduğu sunucuda genel bakım çalışması yapılacaktır.
    Bu sürenin tamamında olmasa da bir süreliğine forum geçici olarak erişilemez olacaktır. Bilgilerinize

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

kemal turan

Altın Üye
Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,279
Excel Vers. ve Dili
Excel 2016
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,694
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
Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,279
Excel Vers. ve Dili
Excel 2016
SN.Plint çok teşekkür derim.
Selametle kalınız.
 

kemal turan

Altın Üye
Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,279
Excel Vers. ve Dili
Excel 2016
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,694
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
Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,279
Excel Vers. ve Dili
Excel 2016
ÇOK TEŞEKKÜR EDERİM.
 
Üst