1. sayfa (Toplam 1 sayfa)
Son Boş Satır
Gönderilme zamanı: 14 Eyl 2020, 13:11
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.
Re: Son Boş Satır
Gönderilme zamanı: 15 Eyl 2020, 10:41
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
Re: Son Boş Satır
Gönderilme zamanı: 15 Eyl 2020, 12:54
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...
Re: Son Boş Satır
Gönderilme zamanı: 15 Eyl 2020, 21:12
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