1 sayfadan 1. sayfa

Son Boş Satır

İletiTarih: 14 Eyl 2020, 13:11
nadir
B sütununda son boş satıra gitme kodu lazım.

Bir de, Excel'deki şu kodun karşılğı nedir?
Sheets("FATURA").Select

Teşekkürler.

Re: Son Boş Satır

İletiTarih: 15 Eyl 2020, 10:41
Hamurcu
Merhaba,

Adına göre sayfa seçmek için aşağıdaki kodu kullanabilirsin.

Kod: Tümünü seç
Sayfa = ThisComponent.getSheets().getByName("FATURA")
ThisComponent.CurrentController.setActiveSheet(Sayfa)


İstediğin Sütundaki son boş satıra gitmek için aşağıdaki kodu kullanabilirsin.

Kod: Tümünü seç
Sub Last_Cell_in_Column( Optional iColumnIndex )

    Dim oDoc As Object      : oDoc    = ThisComponent

    If IsMissing( iColumnIndex ) Then iColumnIndex = oDoc.CurrentSelection.RangeAddress.StartColumn

    Dim oSheet As Object    : oSheet  = oDoc.CurrentController.ActiveSheet

    Dim oColumn As Object   : oColumn = oSheet.Columns.getByIndex( iColumnIndex )

    Dim oRanges As Object   : oRanges = oColumn.queryContentCells( 1023 )   

    Dim lRow As Long

    Dim lCount As Long      : lCount  = oRanges.getCount()

    Dim document   as object

    Dim dispatcher as object

    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

    If lCount > 0 Then        lRow    = oRanges.getByIndex( lCount - 1 ).RangeAddress.EndRow + 1

    Dim oCell As Object     : oCell   = oColumn.getCellByPosition( 0, lRow )

    oDoc.CurrentController.select( oCell )

End Sub

Re: Son Boş Satır

İletiTarih: 15 Eyl 2020, 12:54
nadir
Teşekkür ederim..

Hücre seçme işlemi nasıl?
aktif sayfa veya başka sayfada hücre seçimi olacaksa...

Range("B2").Select ..excel'deki bu şekilde...

Re: Son Boş Satır

İletiTarih: 15 Eyl 2020, 21:12
Hamurcu
Aşağıdaki şekilde yapabilirsiniz.

Kod: Tümünü seç
Sub BolgeSec()

  Dim Kitap As Object

  Dim Sayfa As Object

  Dim Bolge As Object   
 
  Kitap = ThisComponent

  Sayfa = Kitap.Sheets(0)
 
  Bolge = Sayfa.getCellRangeByName("B2:D8")

  Kitap.currentController.Select(Bolge)

End Sub

Re: Son Boş Satır

İletiTarih: 19 Kas 2020, 19:44
Lady Era
Hamurcu yazdı:Aşağıdaki şekilde yapabilirsiniz.

Kod: Tümünü seç
Sub BolgeSec()

  Dim Kitap As Object

  Dim Sayfa As Object

  Dim Bolge As Object   
 
  Kitap = ThisComponent

  Sayfa = Kitap.Sheets(0)
 
  Bolge = Sayfa.getCellRangeByName("B2:D8")

  Kitap.currentController.Select(Bolge)

End Sub



teşekkürler hocam çok işime yaradı