1. sayfa (Toplam 1 sayfa)

yan sutuna otomatik tarih yazdırmak

Gönderilme zamanı: 09 Ara 2022, 17:57
gönderen nilseninsaat
Herkese Merhaba
Ekli calc dosyasında A sutununda tarihler var. bu tarihler, ben harcama girdiğimde otomatik o günün tarihi ve saati olarak oluşuyor.

ancak şöyle bir sorunum var. ben bir alt satıra ertesi gün harcama girdiğimde, üstteki tarihler de değişiyor. yani, üstteki önce girdiğim tarihler de, en son girdiğim tarih oluyor. bunu bir türlü çözemedim.

Bu konuda destek rica ediyorum. emek veren herkese teşekkürler

kemal Rahmi ŞENER

Re: yan sutuna otomatik tarih yazdırmak

Gönderilme zamanı: 09 Ara 2022, 22:21
gönderen Hamurcu
Merhaba,

Öncelikle aşağıdaki BASIC makrosunu yazın ve kaydedin.

Kod: Tümünü seç

Function TARIHYAZ(Hucre As String) As Double

Dim Tarih As Object, DogruTarih As Date

  Tarih = ThisComponent.NullDate
  DogruTarih = DateSerial(1899,12,30) - DateSerial(Tarih.Year, Tarih.Month, Tarih.Day) 

  If Hucre="" Then
    TARIHYAZ = 0.0
  Else
    TARIHYAZ = Now + DogruTarih
  End If  

End Function
Sizin örneğinize uygularsak B2 hücresinden başlayarak aşağı doğru doldurun. Yazdığınız BASIC makrosunu aşağıdaki şekilde çağırın.

Kod: Tümünü seç

=TARIHYAZ(D2)
Eğer D2 hücresi boş ise 30/12/1899 (LibreOffice için tarihin başlangıcını) eğer dolu ise şimdiki zamanı kalıcı olarak geri döndürecektir.

Umarım işinizi görür.

Re: yan sutuna otomatik tarih yazdırmak

Gönderilme zamanı: 09 Ara 2022, 23:39
gönderen nilseninsaat
çok teşekkür ederim.
"BASIC makrosunu aşağıdaki şekilde çağırın." bunu anlamadım.

sizin yazdığınız programı macro ya kopyalayacağım. Başka ne yapmam gerek?

Re: yan sutuna otomatik tarih yazdırmak

Gönderilme zamanı: 09 Ara 2022, 23:43
gönderen nilseninsaat
çok teşekkürler
yaptım çalışıyor