Yoklama listesi

[Kavinsky]

Herkese merhabalar;
Kurumumuzda yoklama sistemi excel üzerinden yürütülüyor.
Basit mantık ile gelmeyenlerin yanındaki onay butonu seçiliyor ve durumu gelmedi olarak gözüküyor.
Benim istediğim ise çalışma kitabına açtığım yoklama isimli çalışma sayfasına durumu gelmedi olan öğrencilerin B,C,D,E,F,G,H hücrelerindeki öğrenci bilgilerin orada liste halinde gözükmesi. Yardımlarınızı rica ediyorum üstatlar.

Ekstradan bir fikir danışması;
yaklaşık 15 adet sınıf var , tek bir excel dosyası üzerinden 10 adet yoklama dosyasındaki tüm gelmeyenlerin bulunduğu rapor dosyasına ulaşıp listeleyebilir miyim ?

Yoklama dosyası linktedir.
http://dosya.co/2sm1h7mw0rfh/YOKLAMA.xlsm.html

 

[vardar07]

Yeterli bilgi yok. En azından yoklama sayfasına örnek olarak bitmiş halini gösterir veriler ekleseydiniz.
Rapor dosyası ayrımı. Daha açıklayıcı bilgiler verirseniz ilgili arkadaşlardan yardım alma şansınız artar.

 

[Kavinsky]

Yeterli bilgi yok. En azından yoklama sayfasına örnek olarak bitmiş halini gösterir veriler ekleseydiniz.
Rapor dosyası ayrımı. Daha açıklayıcı bilgiler verirseniz ilgili arkadaşlardan yardım alma şansınız artar.

Cevabınız için teşekkür ederim.
Şimdi linkte verdiğim dosyada emir,ali ve fatih isimli öğrenciler gelmemiş .Yoklama diye açtığım diğer sheette ben bu 3 öğrenciyi tüm bilgileri ile görmek istiyorum.Bilgiden kastım da b,c,d,e,f,g sütunlarındaki bilgiler. Yani gelmeyenleri yan sheete otomatik olarak geçirecek. İNDİS komutu ile yapmaya çalıştım ama içinden çıkamadım.

http://dosya.co/6z7373ddn40u/YOKLAMA.xlsm.html

 

[vardar07]

Böyle Bir şey olur mu?
YOKLAMA__1_.rar

 

[Merhum İdris SERDAR]

.

Buradaki örneği inceleyin.

http://www.excelgurusu.com/sinif-devam-cizelgesi/


.

 

[Kavinsky]

Böyle Bir şey olur mu?
YOKLAMA__1_.rar

Hocam bu kâfidir benim için teşekkür ederim.Ellerinize sağlık.

 

[Kavinsky]

.

Buradaki örneği inceleyin.

http://www.excelgurusu.com/sinif-devam-cizelgesi/


.

Üstadım inceledim dosyayı çok komplike ve güzel bir çalışma lakin bizim derslerde öğretmenler yoklamaları akıllı tahtalardan aldığı için tıklayarak alıyor. Bu sistemde akıllı tahtalarda öğretmen zorlanır. Ama ben tüm dönem yoklamaları için bir şey arıyordum bu işime yaracak benim. Çok teşekkür ederim

 

[Kavinsky]

Böyle Bir şey olur mu?
YOKLAMA__1_.rar

Hocam son bir şey listediği gibi listelediği alanı seçme imkanı varmı , direk kopyala yapalım.

 

[vardar07]

Aşağıdaki kodlar ile değiştiriniz..

Sub aktar()
Set s1 = Sheets("YOKLAMA")
s1.Range("A2:G" & Rows.Count).ClearContents
With Sayfa1
son = .Range("B5000").End(3).Row
For m = 2 To son
If .Cells(m, "J") = "GELMEDİ" Or .Cells(m, "L") = "GELMEDİ" Or .Cells(m, "N") = "GELMEDİ" Or .Cells(m, "P") = "GELMEDİ" Then
son1 = s1.Range("B5000").End(3).Row + 1
s1.Cells(son1, 1).Value = WorksheetFunction.Max(s1.Range("A1:A" & son1 - 1)) + 1
For k = 2 To 7
s1.Cells(son1, k).Value = .Cells(m, k).Value
Next
End If
Next
End With
s1.Range("A2:G" & s1.Range("B5000").End(3).Row).Select

End Sub

 

[Kavinsky]

Aşağıdaki kodlar ile değiştiriniz..

Sub aktar()
Set s1 = Sheets("YOKLAMA")
s1.Range("A2:G" & Rows.Count).ClearContents
With Sayfa1
son = .Range("B5000").End(3).Row
For m = 2 To son
If .Cells(m, "J") = "GELMEDİ" Or .Cells(m, "L") = "GELMEDİ" Or .Cells(m, "N") = "GELMEDİ" Or .Cells(m, "P") = "GELMEDİ" Then
son1 = s1.Range("B5000").End(3).Row + 1
s1.Cells(son1, 1).Value = WorksheetFunction.Max(s1.Range("A1:A" & son1 - 1)) + 1
For k = 2 To 7
s1.Cells(son1, k).Value = .Cells(m, k).Value
Next
End If
Next
End With
s1.Range("A2:G" & s1.Range("B5000").End(3).Row).Select

End Sub

Tamamdır hocam. Çok teşekkür ederim yardımlarınız için.

 

[Merhum İdris SERDAR]

.

Bir de bu örneğe bakın.

http://www.excelgurusu.com/sinif-gunluk-yoklama-cizelgesi/



.