LibreOffice Türkiye Forumları

Eğer bir dosya değil de bazı alanlardaki bilgileri indirmek istiyorsanız o zaman
ve komutlarına ihtiyacın olacaktır.

Merhaba, Eğer standard http authentication kullanıyorsa web sayfanız o zaman aşağıdaki kodu kullanarak siteye giriş yapabilirsiniz. dim sURL as string dim oArgs(0) As New com.sun.star.beans.PropertyValue dim oDocStatus as object dim oihandler oihandler = createUnoService("com.sun.star.task.Inte...

Aşağıdaki kod işini görür sanırım. Sub ExportToPDF() dim document as object dim dispatcher as object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") ' Elbette aşağıdaki path satırını kendine uygun şekilde değiştirmen ve UR...

Sayfadaki veriler az olduğunda sorun olmaz ama binlerce satır veri olursa her harfe bastığında yeniden hesaplayacağı için takılmalar oluşacaktır.

Sayfaya koyduğun Metin Kutusunun adı farklıdır sende ondan hata alıyorsundur.

Ben standart bir metin kutusu koydum ve adı otomatik olarak "Metin Kutusu 1"

Sen bu ismi kendine göre uygun şekilde değiştirmelisin.

Sanırım aşağıdaki kod işini görür. sub Filtrele() dim Sayfa as object, FiltreMetni as object dim FiltrelenecekBolge as object, FiltreParametreleri as object dim FiltrelenecekSutun(0) As New com.sun.star.sheet.TableFilterField Sayfa = thiscomponent.sheets.getByName("Çizelge1") FiltreMetni =...

Merhaba,

Bu isteğini hiç makro yazmadan Standart Süzgeç ile halledebilirsin.

Merhaba, Kod ilk hücreden son hücreye kadar çalışacak şekilde. Eğer belirli bir aralıkta çalışşın istiyorsan aşağıdaki kısmı düzenlemen gerekir. SatirSayisi=Sayfa.getCellRangeByName("B:B").Rows.Count ' B:B ibaresi B sütununun tamamı demektir Örneğin "B2:B250" gibi. Sıra numarasın...

Merhaba, A3:A102 arasındaki boş olan satırları gizlemek için aşağıdaki kodu kullanabilirsiniz. Sub BosSatirlariGizle() Dim Kitap As Object Kitap = ThisComponent Dim Sayfa As Object Sayfa = Kitap.getSheets().getByIndex(0) Dim SatirSayisi As Long SatirSayisi=Sayfa.getCellRangeByName("A3:A102"...

Merhaba, Açtığınız Çalışma Kitabının ilk sayfasındaki (Çizelge1) B sütununa ilk satırından son satırına kadar bakıp, eğer boş değilse A sütununa sıradaki numarayı vermek için aşağıdaki kodu kullanabilirsiniz. İyi çalışmalar. Sub DoluSatirlariNumaralandir() Dim Kitap As Object Kitap = ThisComponent D...