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

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

turgay1983

Yeni Üye
Kullanıcı Bilgileri
Katılım
14 Haz 2022
Mesajlar
173
Aldığı beğeni
16
Excel Versiyonu
Office 2016 TR
Konuyu Başlatan
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
1 - şöyle düşünün bu 2 sayfadaki veriler tek sayfada olsaydı
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
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 =...

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Aldığı beğeni
1,861
Excel Versiyonu
Office 2019 TR
listView normal veri ekler gibi eklenir
tek sayfa yerine 2 ayrı sayfa için döngü kurulur
 

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Aldığı beğeni
1,861
Excel Versiyonu
Office 2019 TR
1 - şöyle düşünün bu 2 sayfadaki veriler tek sayfada olsaydı
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
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 SATIR To 1. sayfa son SATIR
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 SATIR To 2. sayfa son SATIR
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
 
Çözüm

turgay1983

Yeni Üye
Kullanıcı Bilgileri
Katılım
14 Haz 2022
Mesajlar
173
Aldığı beğeni
16
Excel Versiyonu
Office 2016 TR
Konuyu Başlatan
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
 

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Aldığı beğeni
1,861
Excel Versiyonu
Office 2019 TR
yapıları aynı 2 farklı sayfadan listviewe veri alınabilir
zaten yukarda nasıl yapıldığı belirtilmiş
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Üst