• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü iki farklı excel sayfasından tek listviewe veri alma

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
T

turgay1983

Yeni Üye
Katılım
14 Haz 2022
Mesajlar
209
Çözümler
2
Aldığı beğeni
21
Excel V
Office 2016 TR
Konu Sahibi
merhaba
herkese iyi akşamlar benim sormak istediğim iki farkı excel sayfasından tek bir listview e veri alabiliyormuyuz alabilirsek nasıl yapabiliyoruz. iki sayfanın da başlıkları aynı ama altındaki veriler değişik.
 
Çözüm
halily
1 - şöyle düşünün bu 2 sayfadaki veriler tek sayfada olsaydı
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
kodunu kullanabilir miydiniz?
2 -neden For x = 2 To 1000000
size 2 döngü kurmanız gerektiğini belirtmiştim
1. sayfa için
For x = 1. sayfa ilk satır To 1. sayfa son satır
Set item = LwCekler.ListItems.Add(text:=CStr(Sheets("AlinanCekler").Range("B" & x).Value))
item.SubItems(1) =....
item.SubItems(2) =....

next x
'__________________________________________________________
2. sayfa için
For x = 2. sayfa ilk satır To 2. sayfa son satır
Set item =...
Tarihe göre sırala Oylara göre sırala
listView normal veri ekler gibi eklenir
tek sayfa yerine 2 ayrı sayfa için döngü kurulur
 
Olumlu oy 0 Negatif oyla
1 - şöyle düşünün bu 2 sayfadaki veriler tek sayfada olsaydı
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
kodunu kullanabilir miydiniz?
2 -neden For x = 2 To 1000000
size 2 döngü kurmanız gerektiğini belirtmiştim
1. sayfa için
For x = 1. sayfa ilk satır To 1. sayfa son satır
Set item = LwCekler.ListItems.Add(text:=CStr(Sheets("AlinanCekler").Range("B" & x).Value))
item.SubItems(1) =....
item.SubItems(2) =....

next x
'__________________________________________________________
2. sayfa için
For x = 2. sayfa ilk satır To 2. sayfa son satır
Set item = LwCekler.ListItems.Add(text:=CStr(Sheets("2. sayfa adı").Range("B" & x).Value))
item.SubItems(1) =....
item.SubItems(2) =....

next x
3 - en önemlisi siz 2 sayfayı tek tanımlayıcıda birleştirmeye çalışmışsınız
Set ws = Sheets("AlinanCekler") And Sheets("VerilenCekler")
bildiğim kadarıyla sayfa atamada bir değişkene 1 sayfa tek atanır
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
bu dediğim sanırsam olmuyor. araştırdım bende her sayfa için ayrı bir liste oluşturdum. ilginiz için teşekkürler
 
Olumlu oy 0 Negatif oyla
yapıları aynı 2 farklı sayfadan listviewe veri alınabilir
zaten yukarda nasıl yapıldığı belirtilmiş
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst