Farklı Sayfalardaki Verileri Kritere Göre Listeleme

[Cemsahin]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba, bir çalışma kitabında farklı sayfalarda yer alan a sütunundaki hücrelerde y ile başlayan kelimeleri nasıl yeni bir sayfada listeleyebilirim?Teşekkürler

 

Excel Kullanıcılara Paylaşma Hatası

Çalışan Personel Formülde Revize

[okutkan]

Örnek bir dosya paylaşın. İçinde 'farklı sayfalar' olsun, 'y ile başlayan kelimeler' olsun. Hangi sayfaya listelemek istediğinizi de belirtirsiniz.

 

[Cemsahin]

Örnek bir dosya paylaşın. İçinde 'farklı sayfalar' olsun, 'y ile başlayan kelimeler' olsun. Hangi sayfaya listelemek istediğinizi de belirtirsiniz.

Dosya ekle nerede bulamıyorum

 

[okutkan]

Mesaj yazdığınız yerin sol alt tarafında buton yok mu?

 

[Cemsahin]

Mesaj yazdığınız yerin sol alt tarafında buton yok mu?

Hayır buton görünmüyor

 

[okutkan]

İsterseniz harici bir siteye yükleyip adresi burada paylaşın.

 

[Cemsahin]

İsterseniz harici bir siteye yükleyip adresi burada paylaşın.

örnek dosya.xlsx

 

[Ömer BARAN]

Sayfayı yenileyerek, mesaj yazma alanının sol alt köşesini kontrol eder misiniz?
Dosya Ekle düğmesini görebilmeniz gerekir.

 

[okutkan]

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.

 

[Cemsahin]

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.

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

 

[okutkan]

Sayfa1 e bir buton ekleyin ve aşağıdaki kodu içine yapıştırın. Altıncı satırdan başlayacak şekilde döngü kurdum. Son satır neredeyse ona göre işlem yapar.

İndirmek için giriş yapmanız gerekmektedir.
(16 satır)

 

[Cemsahin]

Sayfa1 e bir buton ekleyin ve aşağıdaki kodu içine yapıştırın. Altıncı satırdan başlayacak şekilde döngü kurdum. Son satır neredeyse ona göre işlem yapar.

İndirmek için giriş yapmanız gerekmektedir.
(16 satır)

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?

 

[Cemsahin]

Sayfayı yenileyerek, mesaj yazma alanının sol alt köşesini kontrol eder misiniz?
Dosya Ekle düğmesini görebilmeniz gerekir.

şimdi geldi teşekkür ederim.

 

[okutkan]

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?

O ayrıntıyı unutmuşum, müsait olduğumda paylaşırım.

 

[Ömer BARAN]

@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.

 

[okutkan]

Aşağıdaki kodu kullanın.

İndirmek için giriş yapmanız gerekmektedir.
(23 satır)

 

[Cemsahin]

Aşağıdaki kodu kullanın.

İndirmek için giriş yapmanız gerekmektedir.
(23 satır)

Oldu teşekkür ederim