merhaba,
Basit sayılabilecek bir tablom var.
Tablonun sonunda iki satır olsun istiyorum.
Dosyanın üzerindeki son işlem tarihi ve bir önceki işlem tarihlerini burada kaydetmek istiyorum.
isteğime en yakın sonuç olarak =BUGÜN() fonksiyonunu buldum, ama o da tam istediğim gibi değil.
önerebileceğimiz bir yöntem var mı?
Son işlem tarihini kaydetmek
- 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 işlem tarihini kaydetmek
Merhaba,
İstediğin oldukça basit.
Aşağıdaki gibi basit bir Basic makrosu yazarak bu makroyu da Belgeyi Kaydet olayına bağlarsanız olay tamamdır.
İşlemleri şöyle yapabilirsiniz.
Araçlar --> Makrolar --> Makroları Yönet --> Basic
Ekrana aşağıdaki pencere gelecektir. Bu ekranda yukarıda yazdığınız makroyu bulun ve Ata... butonuna basın.
Karşınıza yazdığınız makroyu neye bağlayacağınızı soran bir diyalog kutusu gelecektir. İlk olarak Olaylar sekmesine geçin, sonrasında Belgeyi Kaydet olayını seçin ve Makro butonuna basarak bağlayacağınız makroyu seçin.
Artık belgeniz her kaydedildiğinde A1 hücresine kayıt tarihi eklenecektir.
Hepsi bu.
İstediğin oldukça basit.
Aşağıdaki gibi basit bir Basic makrosu yazarak bu makroyu da Belgeyi Kaydet olayına bağlarsanız olay tamamdır.
Kod: Tümünü seç
Sub SonIslemTarihiniYaz
Dim Doc, Sheet, Cell as Object
Doc = ThisComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(0,0) '(0,0) A1 Hücresidir.
Cell.String = Date
End Sub
Araçlar --> Makrolar --> Makroları Yönet --> Basic
Ekrana aşağıdaki pencere gelecektir. Bu ekranda yukarıda yazdığınız makroyu bulun ve Ata... butonuna basın.
Karşınıza yazdığınız makroyu neye bağlayacağınızı soran bir diyalog kutusu gelecektir. İlk olarak Olaylar sekmesine geçin, sonrasında Belgeyi Kaydet olayını seçin ve Makro butonuna basarak bağlayacağınız makroyu seçin.
Artık belgeniz her kaydedildiğinde A1 hücresine kayıt tarihi eklenecektir.
Hepsi bu.
-
- Mesajlar: 3
- Kayıt: 16 Nis 2022, 18:35
- İşletim Sisteminiz: windows 10, Debian
- LibreOffice Sürümü: 7.3x
Re: Son işlem tarihini kaydetmek
Merhaba,
Öncelikle ayrıntılı anlatımınız için teşekkürler.
Macro olayı hakkında zerre bilgisi olmayan bana olayı çözdürdü.
Peki bir önceki kayıt işlemini de not almak istersem?
yani son iki kayıt tarihi ne ise onları tutmak istersem bu mümkün mü?
Öncelikle ayrıntılı anlatımınız için teşekkürler.
Macro olayı hakkında zerre bilgisi olmayan bana olayı çözdürdü.
Peki bir önceki kayıt işlemini de not almak istersem?
yani son iki kayıt tarihi ne ise onları tutmak istersem bu mümkün mü?
- 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 işlem tarihini kaydetmek
Son 2 işlem için kısaca şöyle yapabilirsin.
1. Önce A2 hücresindeki mevcut tarihi A1'e kopyala
2. Sonra A2'ye yeni kayıt tarihini yaz.
Özetle makroyu aşağıdaki şekilde değiştirirsen istediğin olacaktır.
1. Önce A2 hücresindeki mevcut tarihi A1'e kopyala
2. Sonra A2'ye yeni kayıt tarihini yaz.
Özetle makroyu aşağıdaki şekilde değiştirirsen istediğin olacaktır.
Kod: Tümünü seç
Sub SonIslemTarihiniYaz
Dim Doc, Sheet, Cell as Object
Doc = ThisComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(0,0) '(0,0) A1 Hücresidir.
Cell.String = Sheet.getCellByPosition(0,1).String ' A2 hücersindeki yazıyı A1'e kopyala
Cell = Sheet.getCellByPosition(0,1) '(0,1) A2 Hücresidir.
Cell.String = Date ' A2 hücresine kayıt tarihini yaz.
End Sub
-
- Mesajlar: 3
- Kayıt: 16 Nis 2022, 18:35
- İşletim Sisteminiz: windows 10, Debian
- LibreOffice Sürümü: 7.3x
Re: Son işlem tarihini kaydetmek
süper, tam istediğim gibi.
verdiğiniz emek için gerçekten teşekkürler.
verdiğiniz emek için gerçekten teşekkürler.