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.
Sayfa = ThisComponent.getSheets().getByName("FATURA")
ThisComponent.CurrentController.setActiveSheet(Sayfa)
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
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
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
Kayıtlı kullanıcılar: Bing [Bot], Google [Bot]