Farklı Sayfalardaki Verileri Kritere Göre Listeleme
- Konuyu başlatan Cemsahin
- Başlangıç tarihi
Örnek bir dosya paylaşın. İçinde 'farklı sayfalar' olsun, 'y ile başlayan kelimeler' olsun. Hangi sayfaya listelemek istediğinizi de belirtirsiniz.
Mesaj yazdığınız yerin sol alt tarafında buton yok mu?
İsterseniz harici bir siteye yükleyip adresi burada paylaşın.
Sayfayı yenileyerek, mesaj yazma alanının sol alt köşesini kontrol eder misiniz?
Dosya Ekle düğmesini görebilmeniz gerekir.
Dosya Ekle düğmesini görebilmeniz gerekir.
Orijinal dosyanız bu şekilde mi? Yani sayfa isimleri Sayfa1, Sayfa2, Sayfa3 mü? Tüm sayfalarda başlangıç satırı 3 numaralı satır mı?
Eğer bu yüklediğiniz dosyaya göre bir makro kodu yazıp paylaşırsam; kod bilginiz yoksa düzenlemeye yapamadığınız için kodu kullanamayacaksınız.
Eğer bu yüklediğiniz dosyaya göre bir makro kodu yazıp paylaşırsam; kod bilginiz yoksa düzenlemeye yapamadığınız için kodu kullanamayacaksınız.
Orjinal dosyam bu değil fakat sayfa isimleri bu şekilde. Her sayfada veriler a sütununda 6.satırdan başlıyor fakat son satırları aynı değil
Kodu çalıştırdığımda Sayfa2 ve Sayfa3'teki tüm verileri Sayfa1'e getiriyor fakat sayfalardaki sadece Y ile başlayan isimleri getirebilir mi?
şimdi geldi teşekkür ederim.Sayfayı yenileyerek, mesaj yazma alanının sol alt köşesini kontrol eder misiniz?
Dosya Ekle düğmesini görebilmeniz gerekir.
O ayrıntıyı unutmuşum, müsait olduğumda paylaşırım.
@Cemsahin
Sn. @okutkan şu an çevrimiçi değil.
Fikrimi belirteyim.
Mevcut koddaki
-- sf1.Cells(a, 1) = sf2.Cells(i, 1) satırını If Left(sf2.Cells(i, 1),1) = "Y" Then sf1.Cells(a, 1) = sf2.Cells(i, 1)
-- sf1.Cells(a, 1) = sf2.Cells(i, 1) satırını If Left(sf3.Cells(i, 1),1) = "Y" Then sf1.Cells(a, 1) = sf3.Cells(i, 1)
olarak değiştirin.
Sn. @okutkan şu an çevrimiçi değil.
Fikrimi belirteyim.
Mevcut koddaki
-- sf1.Cells(a, 1) = sf2.Cells(i, 1) satırını If Left(sf2.Cells(i, 1),1) = "Y" Then sf1.Cells(a, 1) = sf2.Cells(i, 1)
-- sf1.Cells(a, 1) = sf2.Cells(i, 1) satırını If Left(sf3.Cells(i, 1),1) = "Y" Then sf1.Cells(a, 1) = sf3.Cells(i, 1)
olarak değiştirin.
Benzer konular Benzer kaynaklar Benzer dosyalar
-
-
Diğer Sayfalardaki Verileri Getirme- ExcelDepo
- Özel
- İndirme: 8
-
Kritere Göre Grafik Oluşturma
- ExcelDepo
- Özel
- İndirme: 7
-
Tekrar Eden Verileri Farklı Sütunda Yazma
- ExcelDepo
- Hazır Makrolar
- İndirme: 0
-
Verileri Farklı Matematiksel İşlemler için Gruplandırma
- ExcelDepo
- VIP
- İndirme: 6
-
Verileri Tek Sütuna Göre Sıralama
- ExcelDepo
- Hazır Makrolar
- İndirme: 0
-
-
-
Çoklu Sayfaları Tek Seferde Toplama
- ExcelDepo
- VIP
- İndirme: 27
-
Birden Fazla Sayfadan Toplam Alma
- ExcelDepo
- VIP
- İndirme: 14
-
Sayfalardaki Verileri Konsolide Etme
- ExcelDepo
- Excel Şablonları
- İndirme: 1
-
Farklı Sütunlardaki Aynı Verileri Bulma- Ömer BARAN
- VIP
- İndirme: 17
-
Farklı Sayfalardaki Verileri Tek Bir Formülle Alma
- ExcelDepo
- VIP
- İndirme: 22
-