Sütun silme makrosu

Cevapla
nadir
Mesajlar: 28
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Sütun silme makrosu

Mesaj gönderen nadir »

Belirli bir aralıktaki (örneğin: I-V arası) sütunları silmek için makro kodu nedir?
Kullanıcı avatarı
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: Sütun silme makrosu

Mesaj gönderen Hamurcu »

Merhaba,

Aşağıdaki şekilde yapabilirsin.

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

Re: Sütun silme makrosu

Mesaj gönderen nadir »

Teşekkürler
Cevapla