Ö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.
Moderatörün son düzenlenenleri:
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
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.
Kod:
Görüntülemek 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?
ş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.
Moderatörün son düzenlenenleri:
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.
Aşağıdaki kodu kullanın.
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(23 satır)