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.
Son Boş Satır
- Hamurcu
- Mesajlar: 265
- Kayıt: 06 Ağu 2012, 00:14
- İşletim Sisteminiz: Windows 10/11 - Pardus Linux
- LibreOffice Sürümü: 7.x
Re: Son Boş Satır
Merhaba,
Adına göre sayfa seçmek için aşağıdaki kodu kullanabilirsin.
İstediğin Sütundaki son boş satıra gitmek için aşağıdaki kodu kullanabilirsin.
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)
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
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...
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
- Mesajlar: 265
- Kayıt: 06 Ağu 2012, 00:14
- İşletim Sisteminiz: Windows 10/11 - Pardus Linux
- LibreOffice Sürümü: 7.x
Re: Son Boş Satır
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