ayrı liste yapma

[erdenek]

merhaba arkadaşlar.ekteki dosyada sınav bilgileri var ben bu sınava girmeyenleri ayrı bir sayfada listelemek istiyorum arkadaşlar öğrenci sayısı 5000 den fazla olacak.makro ile olursa çok makbule geçer.

 

[Emir Hüseyin Çoban]

. . .

Kodları boş bir modüle yapıştırarak, sınav listesi sayfasında çalıştırın.

Sub KOD()
    Application.ScreenUpdating = False
    Dim i      As Integer
    Dim sat    As Integer
    Dim S2     As Worksheet
    Set S2 = Sheets("Sayfa2")
    sat = 3

    S2.Range("A1:E65536").ClearContents
    Range("A1:E2").Copy S2.Range("A1")

    For i = 3 To [E65536].End(3).Row
        If Cells(i, "E") = "G" Then
            Range("A" & i & ":E" & i).Copy S2.Cells(sat, "A")
            sat = sat + 1
        End If
    Next

    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

Alternatif olarak;
Sınav listesi sayfasında filtre ile G ileri süzebilirsiniz. Daha sonra kopyala yapıştır ile bu listeyi istediğiniz yere alabilirsiniz.


. . .

 

[erdenek]

üstadım ekteki dosyaya uyarlamaya çalıştım yapamadım.Üstadım Sınava Girmeyenler için ayrı bir sayfa açarsa sevinirim.birde sınava girmeyenlerde sınav puanı olmasına gerek yok.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

İşlem Sonucu:

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
http://yadi.sk/d/d92k-gbNH9hsz

. . .

 

[erdenek]

hocam çok güzel olmuş ellerinize sağlık.Dosyadaki sıralamayı VERİLER-İSTATİSTİKLER-SINAVA GİRMEYENLER şeklinde olsun.birde hocam sınava girmeyenleri 1-2-3 şeklinde olursa sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Kodlarda aşağıdakı kısımları bulup, kırmızı ile belirttiğim satırları ilave edin.

    If Not SayfaVarMi(Sayfa) Then
        Sheets.Add
        [COLOR="Red"]ActiveSheet.Move Before:=Sheets(3)[/COLOR]
        ActiveSheet.Name = Sayfa
    Else
    End If

        If S1.Cells(i, "E") = "G" Then
            S1.Range("A" & i & ":E" & i).Copy S2.Cells(sat, "A")
            [COLOR="red"]S2.Cells(sat, "A") = sat - 2[/COLOR]
            sat = sat + 1
        End If

. . .

 

[erdenek]

ellerinize sağlık.çok teşekkür ederim.