LibreOffice Türkiye Forumları

Kod: Tümünü seç

Sub SutunlariSil
    
    Dim oSheets As Variant
    Dim oSheet As Variant
    Dim oColumns As Variant
    Dim BaslangicSutunu As Integer
    Dim SutunSayisi As Integer
    
    oSheets = ThisComponent.getSheets()    
    oSheet = oSheets.getByName("Sayfa1")   
    oColumns = oSheet.getColumns() 
   
   BaslangicSutunu=1
   SutunSayisi=4
   
    oColumns.removeByIndex(BaslangicSutunu, SutunSayisi) 'BaslangicSutununundan itibaren SutunSayisi kadar Sutunu siler (BaslangicSutunu Dahil) 
End Sub