Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 11-08-2016, 10:28   #1
nilgok
 
Giriş: 09/06/2016
Mesaj: 13
Excel Vers. ve Dili:
365
Varsayılan sayfalar arası veri aktarımı

merhaba,
toplamda içerisinde dört sayfa bulunan excel dosyamın son sayfasına diğer üç sayfadan veri getirmek istiyorum. diğer üç sayfadaki "gönderiliş tarihi" sütunu boş olan tüm verileri "bekleyen dosyalar" sayfamda toplamak istiyorum.
yani şöyle detaylandırayım eğer gönderiliş tarihi yazmıyorsa, hangi sayfadan geldiği ve geliş tarihi ve dosya adı sütunlarını içeren özet tabloyu nasıl yapabilirim?
nilgok Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2016, 10:38   #2
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 694
Excel Vers. ve Dili:
excel2013
Varsayılan

Merhaba bir örnek dosya gönderirmisiniz
yanginci34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2016, 10:42   #3
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,708
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Mevcut dosyanızla aynı yapıda (sayfa sayısı, adları, sütun sayısı, sütun başlıkları vs) örnek bir dosya hazırlayıp, dosya yükleme sitelerinden birinde paylaşıp burada linkini verirseniz daha kolay çözüm buluruz.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2016, 11:03   #4
nilgok
 
Giriş: 09/06/2016
Mesaj: 13
Excel Vers. ve Dili:
365
Varsayılan

http://s2.dosya.tc/server2/duta23/Book1.xlsx.html

buradan aynı yapıda bir dosya hazırladım isim değişiklikleri yaparak.
nilgok Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2016, 11:08   #5
nilgok
 
Giriş: 09/06/2016
Mesaj: 13
Excel Vers. ve Dili:
365
Varsayılan

Alıntı:
nilgok tarafından gönderildi Mesajı Görüntüle
http://s2.dosya.tc/server2/duta23/Book1.xlsx.html

buradan aynı yapıda bir dosya hazırladım isim değişiklikleri yaparak.
11A, 11B, 11C ve 11D sayfalarında "sınav sonuçlarının açıklandığı tarih" sütunu boş ise "bekleyen dosyalar" sayfasına öğrenci adı, sınav tarihi satırları otomatik getirilsin "sınıfın adı" sütununa ise hangi sayfadan getirildiyse o sayfasının adı yazsın(11A, 11B gibi)
nilgok Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2016, 11:11   #6
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,708
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sınav()
Set s1 = Sheets("BEKLEYEN DOSYALAR")

For sınıf = 1 To Sheets.Count
    If Sheets(sınıf).Name <> s1.Name Then
        son = Sheets(sınıf).Cells(Rows.Count, "A").End(3).Row
        For öğrenci = 2 To son
            If Sheets(sınıf).Cells(öğrenci, "C") = "" Then
                yeni = s1.Cells(Rows.Count, "A").End(3).Row + 1
                s1.Cells(yeni, "A") = Sheets(sınıf).Cells(öğrenci, "A")
                s1.Cells(yeni, "B") = Sheets(sınıf).Cells(öğrenci, "B")
                s1.Cells(yeni, "C") = Sheets(sınıf).Name
            End If
        Next
    End If
Next
End Sub
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2016, 13:21   #7
nilgok
 
Giriş: 09/06/2016
Mesaj: 13
Excel Vers. ve Dili:
365
Varsayılan

Alıntı:
YUSUF44 tarafından gönderildi Mesajı Görüntüle
Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sınav()
Set s1 = Sheets("BEKLEYEN DOSYALAR")

For sınıf = 1 To Sheets.Count
    If Sheets(sınıf).Name <> s1.Name Then
        son = Sheets(sınıf).Cells(Rows.Count, "A").End(3).Row
        For öğrenci = 2 To son
            If Sheets(sınıf).Cells(öğrenci, "C") = "" Then
                yeni = s1.Cells(Rows.Count, "A").End(3).Row + 1
                s1.Cells(yeni, "A") = Sheets(sınıf).Cells(öğrenci, "A")
                s1.Cells(yeni, "B") = Sheets(sınıf).Cells(öğrenci, "B")
                s1.Cells(yeni, "C") = Sheets(sınıf).Name
            End If
        Next
    End If
Next
End Sub
Teşekkür ederim istediğim gibi çalışıyor. ancak excele çok hakim olmadığımdan soruyorum her seferinde makroyu çalıştırmak mı gerekiyor bu hücrelerin getirilmesi için. otomatik getirmesi için bir kısa yolu var mıdır?
nilgok Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2016, 13:27   #8
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,708
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Otomatikten kastınız nedir? Excel ne zaman otomatik getirilmesi gerektiğini nerden anlayacak?
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2016, 13:33   #9
nilgok
 
Giriş: 09/06/2016
Mesaj: 13
Excel Vers. ve Dili:
365
Varsayılan

Alıntı:
YUSUF44 tarafından gönderildi Mesajı Görüntüle
Otomatikten kastınız nedir? Excel ne zaman otomatik getirilmesi gerektiğini nerden anlayacak?
yani sınav sonuçlarının açıklandığı tarih girilmediği zaman direkt olarak o satırı bekleyen dosyalara atmasını kastediyorum.
nilgok Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2016, 14:21   #10
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,708
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Onu anlamak biraz zor, çünkü siz veri gireceksiniz diyelim, A ve B'yi gireceksiniz, C'ye veri girmeyeceksiniz. Zaten az önce de C'de veri yoktu. Excel sizin biraz sonra C'ye veri girip girmeyeceğinizi bilemez. Onun yerine boş bırakma değil de "Yok" gibi bir ifade yazıldığında aktarma yapması sağlanabilir. Başka aklıma bir şey gelmiyor.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 09:48


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden