Son Boş Satır

[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.

[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

[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...

[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