Son Boş Satır

Son Boş Satır

#2668 İleti | nadir | 14 Eyl 2020, 13:11

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.
nadir
 
İleti: 2
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Re: Son Boş Satır

#2669 İleti | Hamurcu | 15 Eyl 2020, 10:41

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

Re: Son Boş Satır

#2670 İleti | nadir | 15 Eyl 2020, 12:54

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...
nadir
 
İleti: 2
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Re: Son Boş Satır

#2671 İleti | Hamurcu | 15 Eyl 2020, 21:12

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


Calc - Hesap Tablosu

Kimler çevrimiçi

Kayıtlı kullanıcılar: Bing [Bot], Google [Bot], Yandex [Bot]

cron