sayfayı sayfalara bölme

[selkar1]

excel çalışma sayfasında H sutununda il isimleri var sayfayı H sutunundaki il ismilerine göre makroyla nasıl böldüre biliriz.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir Modul'e kopyalayıp dener misiniz?

Not : H sütunu Şehire göre sıralı olduğu ve birinci Satırın Başlık olduğu varsayılmıştır.

Sub SayfaSonuEkle()

    Dim i   As Long, _
        Seh As String
    
    Seh = Range("H2")
    
    ActiveSheet.ResetAllPageBreaks

    For i = 3 To Cells(Rows.Count, "H").End(3).Row
        If Not Cells(i, "H") = Seh Then
            Seh = Cells(i, "H")
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, "H")
        End If
    Next i
    
End Sub