Satır Gizle

[nadir]

A3:A102 arasındaki boş satırları gizlemek ve yazdırma işi bittikten sonra gösterme kodu gerekiyor.

sub gizle_yazdir
...A3:A102 arası boş satırlar gizlenecek.
....yazdırma (kaydetme) işlmi PDF olarak yapılacak.
....gizlenen satırlar gösterilecek
end sub

[Hamurcu]

Merhaba,

A3:A102 arasındaki boş olan satırları gizlemek için aşağıdaki kodu kullanabilirsiniz.

Kod: Tümünü seç

Sub BosSatirlariGizle()

    Dim Kitap As Object
    Kitap =  ThisComponent

    Dim Sayfa As Object
    Sayfa = Kitap.getSheets().getByIndex(0)

    Dim SatirSayisi As Long
    SatirSayisi=Sayfa.getCellRangeByName("A3:A102").Rows.Count

    SatirNo=0

    For r = 2 To SatirSayisi-1 Step 1
   
       
        Hucre=Sayfa.getCellByPosition( 0, r )
       
        If Hucre.Type = com.sun.star.table.CellContentType.EMPTY Then
         
          Sayfa.Rows.getByIndex(r).IsVisible=False

        End If
       
    Next r

End Sub

Daha önce gizlenmiş olan satırları tekrar görünür yapmak için aşağıdaki kodu kullanabilirsiniz.

Kod: Tümünü seç

Sub GizliSatirlariGoster()

    Dim Kitap As Object
    Kitap =  ThisComponent

    Dim Sayfa As Object
    Sayfa = Kitap.getSheets().getByIndex(0)

    Dim SatirSayisi As Long

    SatirSayisi=Sayfa.getCellRangeByName("A3:A102").Rows.Count

    For r = 2 To SatirSayisi-1 Step 1
   
      Sayfa.Rows.getByIndex(r).IsVisible=True
       
    Next r

End Sub

[nadir]

Teşekkürler