Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Diğer Excel Soruları (http://www.excel.web.tr/forumdisplay.php?f=50)
-   -   7 farklı sayfada olan aynı verileri başka bir sayfada listelemek (http://www.excel.web.tr/showthread.php?t=169021)

teron 16-12-2017 18:33

7 farklı sayfada olan aynı verileri başka bir sayfada listelemek
 
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 16-12-2017 20:09

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.

Kod:

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 17-12-2017 15:14

Örnek Dosyayı nasıl ekleyebilirm

TanerSaydam 17-12-2017 15:19

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 17-12-2017 17:33

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 17-12-2017 18:24

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.

Kod:

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 17-12-2017 18:39

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 17-12-2017 18:44

Değiştirdim buyrun.

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

teron 17-12-2017 18:53

süpersiniz

teron 17-12-2017 19:01

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


Saat 19:56

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.