Son Boş Satır

Cevapla
nadir
Mesajlar: 16
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Son Boş Satır

Mesaj gönderen 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.
Kullanıcı avatarı
Hamurcu
Mesajlar: 229
Kayıt: 06 Ağu 2012, 00:14
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7.x
Konum: İstanbul
İletişim:

Re: Son Boş Satır

Mesaj gönderen 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
Mesajlar: 16
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Re: Son Boş Satır

Mesaj gönderen 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...
Kullanıcı avatarı
Hamurcu
Mesajlar: 229
Kayıt: 06 Ağu 2012, 00:14
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7.x
Konum: İstanbul
İletişim:

Re: Son Boş Satır

Mesaj gönderen 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
Lady Era
Mesajlar: 1
Kayıt: 19 Kas 2020, 19:15
İşletim Sisteminiz: win10
LibreOffice Sürümü: 7.0.1
İletişim:

Re: Son Boş Satır

Mesaj gönderen 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ı
Cevapla