1 sayfadan 1. sayfa

Satır Gizle

İletiTarih: 14 Ekm 2020, 10:23
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

Re: Satır Gizle

İletiTarih: 19 Ekm 2020, 17:40
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

Re: Satır Gizle

İletiTarih: 23 Ekm 2020, 09:56
nadir
Teşekkürler