Son işlem tarihini kaydetmek

Cevapla
Dtheater
Mesajlar: 3
Kayıt: 16 Nis 2022, 18:35
İşletim Sisteminiz: windows 10, Debian
LibreOffice Sürümü: 7.3x

Son işlem tarihini kaydetmek

Mesaj gönderen Dtheater »

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ı?
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: Son işlem tarihini kaydetmek

Mesaj gönderen Hamurcu »

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.

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
İşlemleri şöyle yapabilirsiniz.
Araçlar --> Makrolar --> Makroları Yönet --> Basic
Ekrana aşağıdaki pencere gelecektir.
makro_ata_2.PNG
makro_ata_2.PNG (15.17 KiB) 2216 kere görüntülendi
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.
makro_ata_3.PNG
makro_ata_3.PNG (31.31 KiB) 2216 kere görüntülendi
İ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.
Dtheater
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

Mesaj gönderen Dtheater »

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ü?
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: Son işlem tarihini kaydetmek

Mesaj gönderen Hamurcu »

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.

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
Dtheater
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

Mesaj gönderen Dtheater »

süper, tam istediğim gibi.
verdiğiniz emek için gerçekten teşekkürler.
Cevapla