Karışık Öğrenci Adı Listeleme

[yumatdeym]

Merhaba arkadaşlar,
Sayfa1'de sınıfları karışık okul listesi var, sayfa2'de belirlenen alanlara sadece istediğimiz sınıfın öğrencilerini istediğim sıra ile (isim ya da no) nasıl listeletebilirim.

 

[suleyman242]

Merhaba arkadaşlar,
Sayfa1'de sınıfları karışık okul listesi var, sayfa2'de belirlenen alanlara sadece istediğimiz sınıfın öğrencilerini istediğim sıra ile (isim ya da no) nasıl listeletebilirim.

Dosyayı incelermisin

 

[Orion1]

dosyanız ektedir.

Sub suz59()
Dim alan As Range
If Range("G1").Value = 1 Then
    Set alan = Range("D4")
    Else
    Set alan = Range("C4")
End If
Range("A4:E" & Rows.Count).ClearContents
Application.ScreenUpdating = False
Sheets("sayfa1").Range("A1").AutoFilter
Sheets("sayfa1").Range("A1").AutoFilter field:=2, Criteria1:=Range("A1").Value
Sheets("sayfa1").Range("A1").CurrentRegion.Copy Range("A3")
Sheets("sayfa1").Range("A1").AutoFilter
Range("A4:E" & Rows.Count).Sort alan
Application.ScreenUpdating = True

End Sub

 

[yumatdeym]

Arkadaşlar her iki örnek de işimi görüyor çok teşekkür ederim.
Orion1 arkadaşımız sıralamayı da yapmış, sağolasın.
Bu yoldan hareketle performans, proje, sınav değerlendirme, ödev takip çizelgeleri hazırlıycam, umarım başarabilirim.