7 farklı sayfada olan aynı verileri başka bir sayfada listelemek

[teron]

7 farklı sınıftaki öğrencilerden notu zayıf olan öğrencileri başka bir sayfaya liste olarak sınıf, numara, ad soyad ve yulsonu ortalamasının yazdırılması nasıl yapılır, bana yardımcı olabilir misiniz ?

 

[TanerSaydam]

Bu söylediğiniz ufak bir makro koduyla yapılabilir ama örnek bir excel koyarsanız daha ayrıntılı bir kod yazabilirim. Örnek olarak aşağıdaki kodları baz alabilirsiniz.

Sayfa 1'de aşağıdaki veriler var.
A sütunun da Öğrenci Adı
B sütunun da sınıfı
C sütunun da numarası
D sütunun da notu
E sütunun da yılsonu ort. olduğunu varsayalım. Buna göre Notu 60 puandan düşük öğrencileri Sayfa2'ye yazdırmak için aşağıdaki kodu yazmalısınız. Bu arada sayfa2'ye yazılan öğrencileri eğer Sayfa 1'den de silmek istiyorsanız, o zaman başka bir kod daha ilave etmeliyiz.

Dim ilk As Integer, son As Integer
Dim v As Integer, Dim yer As Integer

ilk = 1
Son = Range("A" & Rows.Count).End(xlUp).Row

yer = ilk

For v = ilk to son
If Not Range("D" & ilk) < 60 Then Goto atla
Sayfa2.Range("A" & ilk) = Sayfa1.Range("A" & ilk)
Sayfa2.Range("B" & ilk) = Sayfa1.Range("B" & ilk)
Sayfa2.Range("C" & ilk) = Sayfa1.Range("C" & ilk)
Sayfa2.Range("D" & ilk) = Sayfa1.Range("D" & ilk)
Sayfa2.Range("E" & ilk) = Sayfa1.Range("E" & ilk)
atla:
yer = yer + 1
Next v

 

[teron]

Örnek Dosyayı nasıl ekleyebilirm

 

[TanerSaydam]

https://www.dosyaupload.com/

bu adrese örnek dosyanızı yükleyin, ben size istediğiniz tarzda bir kodlama yapayım. Ama şunu da belirtin. Notu zayıf olan öğrencileri, aldığınız sayfadan siliyor musunuz? Notu, yıl sonu ortl. göre mi bakıyorsunuz yoksa Not diye bir bölüm var ve oradan mı ayırıyorsunuz.

 

[teron]

https://www.dosyaupload.com/dxNI
dosyayı yolladım, dosyada yazdım herşeyi, şimdiden teşekkür ederim
"KAlanlar Listesi" sayfasındaki "Kalanları Listele" ksımına tıklayınca listenin oluşturulmasını istiyorum

 

[TanerSaydam]

Dosyanızı hazırladım. Tüm Sınıflar sayfasındaki "Kalan Öğrencileri Aktar" tuşuna bastığınız da, "Kalanlar Listesi" adını verdiğiniz sayfayı öncelikle doluysa temizliyor ve Tüm Sınıflar sayfasındaki Y sütununda bulunan "1" Geçmez dediğiniz tüm öğrencileri o sayfaya yazıyor.

DOSYANIZ: https://www.dosyaupload.com/dxO1

Eğer sınıflar ayrı ayrı excel sayfasında ise, kod'da ufak bir değişiklik ile yine bu yapılabilir. İsterseniz tüm sayfaları tek bir sayfada birleştirip yine bu kod uygulanabilir. Tabii, bunları istediğinizi belirtirseniz o zaman buna dair kod yazabiliriz. Yani el ile girmek zorunda olmayacağınız her şeyi sistem otomatik yapabilir. Excel bu açıdan çok zengin içeriklere sahiptir.

Ayrıca eğer isterseniz siz yazılı notlarını yazdıkça sonunda M, W, Y, Z sütunu da otomatik hesaplanabilir. Onun kodunu da isterseniz yazarım.

Dosyanıza şu anda yazdığım kodlar aşağıda. Benzer bir şey için kod arayan arkadaşlar görsün diye yazıyorum.

Private Sub CommandButton1_Click()
Dim ilk As Integer, son As Integer
Dim v As Integer, yer As Integer

ilk = 4
son = Sayfa2.Range("C" & Rows.Count).End(xlUp).Row

yer = ilk
yer2 = 5

Sayfa3.Range("A5:Z6568").ClearContents

For v = ilk To son
If Not Sayfa2.Range("Y" & yer) = 1 Then GoTo atla
Sayfa3.Range("A" & yer2) = Sayfa2.Range("A" & yer)
Sayfa3.Range("B" & yer2) = Sayfa2.Range("B" & yer)
Sayfa3.Range("C" & yer2) = Sayfa2.Range("C" & yer)
Sayfa3.Range("D" & yer2) = Sayfa2.Range("D" & yer)
Sayfa3.Range("E" & yer2) = Sayfa2.Range("E" & yer)
Sayfa3.Range("F" & yer2) = Sayfa2.Range("F" & yer)
Sayfa3.Range("G" & yer2) = Sayfa2.Range("G" & yer)
Sayfa3.Range("H" & yer2) = Sayfa2.Range("H" & yer)
Sayfa3.Range("I" & yer2) = Sayfa2.Range("I" & yer)
Sayfa3.Range("J" & yer2) = Sayfa2.Range("J" & yer)
Sayfa3.Range("K" & yer2) = Sayfa2.Range("K" & yer)
Sayfa3.Range("L" & yer2) = Sayfa2.Range("L" & yer)
Sayfa3.Range("M" & yer2) = Sayfa2.Range("M" & yer)
Sayfa3.Range("N" & yer2) = Sayfa2.Range("N" & yer)
Sayfa3.Range("O" & yer2) = Sayfa2.Range("O" & yer)
Sayfa3.Range("P" & yer2) = Sayfa2.Range("P" & yer)
Sayfa3.Range("R" & yer2) = Sayfa2.Range("R" & yer)
Sayfa3.Range("S" & yer2) = Sayfa2.Range("S" & yer)
Sayfa3.Range("T" & yer2) = Sayfa2.Range("T" & yer)
Sayfa3.Range("U" & yer2) = Sayfa2.Range("U" & yer)
Sayfa3.Range("V" & yer2) = Sayfa2.Range("V" & yer)
Sayfa3.Range("W" & yer2) = Sayfa2.Range("W" & yer)
Sayfa3.Range("X" & yer2) = Sayfa2.Range("X" & yer)
Sayfa3.Range("Y" & yer2) = Sayfa2.Range("Y" & yer)
Sayfa3.Range("Z" & yer2) = Sayfa2.Range("Z" & yer)
yer2 = yer2 + 1
atla:
yer = yer + 1
Next v

End Sub

 

[teron]

Harikasınız hocam, ellerinize sağlık.
"Tüm Sınıflar" sayfasındaki mavi butonun(Kalan Öğrencileri Aktar) "Kalanlar Listesi" sayfasına almamız mümkün müdür.

Hocam ben size kendi hazırladığım Not dosyasını yollasam olur mu

 

[TanerSaydam]

Değiştirdim buyrun.

https://www.dosyaupload.com/59wa

 

[teron]

süpersiniz

 

[teron]

hocam benim hazırladığım not proğramı ekteki dosya,
"Tüm Sınıflar" sayfasından " Kalanlar Listesi" kısmına notu bir olan öğrencilerin listelenmesi, ayrıca "Kalan Öğrencileri Aktar" butonun "Kalanlar Listesi" sayfasında olması


https://www.dosyaupload.com/59wh

 

[TanerSaydam]

https://www.dosyaupload.com/dxOV

Buyrun.

 

[teron]

Ellerinize sağlık, harikasınız tam istediğim gibi oldu, tekrar teşekkür ederim.
Minik bir problem var, kalanlar listesini oluştururken "2.Döneme ait TELAFİ SINAVI" notunu göstermiyor, düzeltmeniz mümkün mü acaba

 

[teron]

Hocam, dediğim düzeltmeyi yapabilir misiniz, şimdiden çok teşekkür ediyorum

 

[teron]

Ellerinize sağlık, harikasınız tam istediğim gibi oldu, tekrar teşekkür ederim.
Minik bir problem var, kalanlar listesini oluştururken "2.Döneme ait TELAFİ SINAVI" notunu göstermiyor, düzeltmeniz mümkün mü acaba
teron Çevrimdışı

 

[TanerSaydam]

İş yerinde bilgisayar kısıtlı olduğu için buraya ulaşmakta zorluk yaşıyorum. O yüzden sürekli cevap veremiyorum. Acaba tam ne istediğinizi biraz detaylı anlatır mısınız? Anlamadım da.

 

[teron]

En son yolladığınız dosyada kalanlar listesindeki 2.dönem Telafi sınavı notynu kistelemiyor. Normal Sınıf listesinde Kalan bir öğrencinin tüm notlarını girdiğimde kalanları listeletdiğimde 2.dönem telafi sınav notunu listede göstermiyor

 

[TanerSaydam]

Q satırını eklerken unutmuşum Ondan kaynaklı bir sorunmuş, düzelttim. Güncel kodları aşağıda.

Dosya: https://www.dosyaupload.com/dy3r

Private Sub CommandButton1_Click()
Dim ilk As Integer, son As Integer
Dim v As Integer, yer As Integer

ilk = 4
son = Sayfa3.Range("C" & Rows.Count).End(xlUp).Row

yer = ilk
yer2 = 5

Sayfa1.Range("A5:Z6568").ClearContents

For v = ilk To son
If Not Sayfa3.Range("Y" & yer) = 1 Then GoTo atla
Sayfa1.Range("A" & yer2) = Sayfa3.Range("A" & yer)
Sayfa1.Range("B" & yer2) = Sayfa3.Range("B" & yer)
Sayfa1.Range("C" & yer2) = Sayfa3.Range("C" & yer)
Sayfa1.Range("D" & yer2) = Sayfa3.Range("D" & yer)
Sayfa1.Range("E" & yer2) = Sayfa3.Range("E" & yer)
Sayfa1.Range("F" & yer2) = Sayfa3.Range("F" & yer)
Sayfa1.Range("G" & yer2) = Sayfa3.Range("G" & yer)
Sayfa1.Range("H" & yer2) = Sayfa3.Range("H" & yer)
Sayfa1.Range("I" & yer2) = Sayfa3.Range("I" & yer)
Sayfa1.Range("J" & yer2) = Sayfa3.Range("J" & yer)
Sayfa1.Range("K" & yer2) = Sayfa3.Range("K" & yer)
Sayfa1.Range("L" & yer2) = Sayfa3.Range("L" & yer)
Sayfa1.Range("M" & yer2) = Sayfa3.Range("M" & yer)
Sayfa1.Range("N" & yer2) = Sayfa3.Range("N" & yer)
Sayfa1.Range("O" & yer2) = Sayfa3.Range("O" & yer)
Sayfa1.Range("P" & yer2) = Sayfa3.Range("P" & yer)
Sayfa1.Range("Q" & yer2) = Sayfa3.Range("Q" & yer)
Sayfa1.Range("R" & yer2) = Sayfa3.Range("R" & yer)
Sayfa1.Range("S" & yer2) = Sayfa3.Range("S" & yer)
Sayfa1.Range("T" & yer2) = Sayfa3.Range("T" & yer)
Sayfa1.Range("U" & yer2) = Sayfa3.Range("U" & yer)
Sayfa1.Range("V" & yer2) = Sayfa3.Range("V" & yer)
Sayfa1.Range("W" & yer2) = Sayfa3.Range("W" & yer)
Sayfa1.Range("X" & yer2) = Sayfa3.Range("X" & yer)
Sayfa1.Range("Y" & yer2) = Sayfa3.Range("Y" & yer)
Sayfa1.Range("Z" & yer2) = Sayfa3.Range("Z" & yer)
yer2 = yer2 + 1
atla:
yer = yer + 1
Next v

End Sub

 

[teron]

Çoookkkk teşekkür ediyorum, harikasınız

 

[teron]

Hocam, aynı dosyadaki her bir sınıfın(A-B-C-D-E-F-G sayfaları) 1.Dönem için D6 ile I40 hücreleri, 2.dönem için M6 ile V40 hücrelerini kilitleyen bir makro lazım. Ana sayfaya düğmeleri ben hazırladım.dosyayı yolladım
https://www.dosyaupload.com/5bkh

 

[teron]

Makro çalışırken şifre ile çalışssın