Sayfalardan koşula bağlı veri alma

[okyanus123452]

Sayın ilgili,
Elimde arama yapmak istediğim yaklaşık 20 sayfa var.
Bunlar öğrencilerin kampüs ve şubelere göre soru başına aldıkları puanları gösterir.
Puan girişi olmayan öğrenci yazılıya girmemiş demektir.

Bunları ayrı bir sayfada listelemek istiyorum. Yardımcı olabilecek ilgilinin hangisi kolayına geliyorsa fonksiyon veya makro ile çözüm üretmesinde bir sıkıntı yok.

Ayrıntılı açıklama Excel Dosyasının "SınavaGirmeyenler" çalışma sayfasında bulunmaktadır.

Ayrıca konuyla ilgili örnek aramaya baktım ancak kendi durumuma uyun örnek göremedim. Bu bağlamda bu konuya yakın bir örnek varsa o örneğe bakabilirim. İşin işçinden çıkamazsam tekrar sorumu sorarım.

Şimdiden teşekkür ederim.

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırarak dener misiniz?

Sub SınavaGirmeyenler()
Set s1 = Sheets("SınavaGirmeyenler")
s1.Range("A3:D65536").ClearContents
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Makro Etkinleştirme" Then
If Sheets(i).Name <> "SınavaGirmeyenler" Then
If Sheets(i).Name <> "ANASAYFA" Then
If Sheets(i).Name <> "ST" Then
If Sheets(i).Name <> "RAPOR" Then
Son = Sheets(i).[C65536].End(3).Row
    For j = 4 To Son
        If Sheets(i).Cells(j, 3).Value <> "" And Sheets(i).Cells(j, 4).Value = "" Then
            son1 = s1.[A65536].End(3).Row + 1
            s1.Cells(son1, 1).Value = Sheets(i).Name
            s1.Cells(son1, 2).Value = Sheets(i).Cells(j, 1).Value
            s1.Cells(son1, 3).Value = Sheets(i).Cells(j, 2).Value
            s1.Cells(son1, 4).Value = Sheets(i).Cells(j, 3).Value
        End If
    Next
End If
End If
End If
End If
End If
Next
MsgBox "Listeleme İşlemi Tamamlandı..." & vbLf & son1 - 2 & "  Öğrenci Listelendi.", , "dEdE başarılar diler."
End Sub

 

[okyanus123452]

Teşekkür (Çözüldü)

Sayın dede
Öncelikle cevabınız için teşekkür ederim. Kodun çalıştığını ve arama sistemindeki 19 sayfayı yazma yerine diğer arama yapılmayan sayfaları koda yazmanız benim için daha iyi olduğunu sevinerek bildirmek istedim.Çünkü seneye başka sınıflar ve şubeler açılınca onlara ait sayfalarında olacağı düşünülürse benim daha çok işime yaradı diyebilirim.
Tekrar tekrar teşekkür ederim..
Saygılarımla..