Hücre Değerine Göre Sayfalama

[cimcoz]

Merhabalar,

Ekteki dosyama göre A sütünunda ki dönemlere göre sayfalama yapmak istiyorum.
Örneğin, 2000-01 dönemi bir sayfada, 2001-02 dönemi başka bir sayfada olması gerekiyor.
Ayrıca sayfalama yaparken 1. satırdaki başlıklar ile A ile M arasındaki veriyi deyeni sayfaya kopyalamasını içeren bir makro veye fonksiyona ihtiyacım var.
(Elimdeki veri çok büyük o yüzden rastgele verilerle bir dosya oluşturdum. Veri sayfasına bir makro çalıştıran tuş konabilir basınca sayfalama yapabilir.)

Yardımlarınız için şimdiden teşekkür ederim.

Saygılarımla,

 

[YUSUF44]

Her sayfada başlık yenileme işlemini Sayfa Özelliklerinden Başlıkları yazdır kısmında Üstte yinelenecek satırlar kısmında ayarlayabilirsiniz.

Her dönem değişiminde sayfa sonu eklemeyi aşağıdaki makro ile yapabilirsiniz:

Sub sayfasonu()
    ActiveSheet.ResetAllPageBreaks
    son = WorksheetFunction.Max(3, Cells(Rows.Count, "A").End(3).Row)
    For i = 3 To son
        If Cells(i, "A") <> Cells(i - 1, "A") Then
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, "A")
        End If
    Next
End Sub

Makroyu çalıştırmak için sayfanıza bir düğme/nesne/resim ekleyip bu düğmeye/nesneye/resme sağ tıklayıp makro ata diyerek ve açılan listeden sayfasonu makrosunu seçerek, o düğme aracılığıyla yapabilirsiniz.

 

[cimcoz]

Her sayfada başlık yenileme işlemini Sayfa Özelliklerinden Başlıkları yazdır kısmında Üstte yinelenecek satırlar kısmında ayarlayabilirsiniz.

Her dönem değişiminde sayfa sonu eklemeyi aşağıdaki makro ile yapabilirsiniz:

Sub sayfasonu()
    ActiveSheet.ResetAllPageBreaks
    son = WorksheetFunction.Max(3, Cells(Rows.Count, "A").End(3).Row)
    For i = 3 To son
        If Cells(i, "A") <> Cells(i - 1, "A") Then
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, "A")
        End If
    Next
End Sub

Makroyu çalıştırmak için sayfanıza bir düğme/nesne/resim ekleyip bu düğmeye/nesneye/resme sağ tıklayıp makro ata diyerek ve açılan listeden sayfasonu makrosunu seçerek, o düğme aracılığıyla yapabilirsiniz.

Merhaba,
Dediğinizi denedim ama hiçbir hareket olmadı. Yolladığım dosya üzerinde yapabilieseniz çok sevinirim.

Saygılar..

 

[YUSUF44]

Ne yaptınız da olmadı?

Burdaki kodları dosyanızda VBA sayfasına eklediniz mi?

Ayrıca makro sayfada sayfa sonlarını düzenlemekten başka bir şey yapmaz. Herhangi bir hareket olmaz. Makroyu çalıştırdıktan sonra baskı önizlemeden bakarak durumu inceleyiniz.

 

[cimcoz]

Ne yaptınız da olmadı?

Burdaki kodları dosyanızda VBA sayfasına eklediniz mi?

Ayrıca makro sayfada sayfa sonlarını düzenlemekten başka bir şey yapmaz. Herhangi bir hareket olmaz. Makroyu çalıştırdıktan sonra baskı önizlemeden bakarak durumu inceleyiniz.

Benim konuya benzer bir dosya buldum, çalıştırabildim. Yardımınız için teşekkürler..