Excel Sayfalama

[dmyksl]

Arkadaşlar ekteki verdiğim örnekteki açıklamaya göre sayfalama nasıl yaparım acaba

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyin. E ve F sütununda tıklanan hücreye göre filtreleme yapıp sayfa oluşturur:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
son = WorksheetFunction.Max(Cells(Rows.Count, "E").End(3).Row, Cells(Rows.Count, "F").End(3).Row)
If Intersect(Target, Range("E2:F" & son)) Is Nothing Then Exit Sub
Application.EnableEvents = False
    Set s1 = Sheets("Sayfa1")
    s1.Move Before:=Sheets(1)
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$G$" & son).AutoFilter Field:=Target.Column, Criteria1:=Target
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets(2).Columns("A:G").EntireColumn.AutoFit
    Sheets(2).Range("F6").Select
    s1.Select
    ActiveSheet.Range("$A$1:$G$" & son).AutoFilter Field:=Target.Column
    Range("C1").Select
Application.EnableEvents = True
End Sub

 

[YUSUF44]

Her ne kadar konunuza dönüş yapmasanız da ekteki dosyayı inceleyin. Gördüğüm kadarıyla diğer konuda bu sorunuzun çözümünü arıyorsunuz:

https://drive.google.com/file/d/0B43WMUs21VpfWWxlMUpQLVFJcWc/view?usp=sharing

Dosyada iki düğme var. Eğer listede değişiklik yapmak istiyorsanız İptal düğmesine basıp makroları pasifleştirin, sonra aktif düğmesine basarak öğretmen ya da ders sütunundan herhangi bir hücreyi tıklayın.