sayfalar arası veri aktarımı

[nilgok]

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?

 

[yanginci34]

Merhaba bir örnek dosya gönderirmisiniz

 

[YUSUF44]

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.

 

[nilgok]

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

buradan aynı yapıda bir dosya hazırladım isim değişiklikleri yaparak.

 

[nilgok]

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)

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

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

 

[nilgok]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

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?

 

[YUSUF44]

Otomatikten kastınız nedir? Excel ne zaman otomatik getirilmesi gerektiğini nerden anlayacak?

 

[nilgok]

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.

 

[YUSUF44]

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.