Sekmelere otomatik tarih ataması.

[Masuk72]

Günlük tuttugum kasa föylerinde tarihin günlük otomatik atmasını istiyorum formülle yapma şansım var mı acaba?


Örnek: Kasa No 1: 1 Ocak 2020 Çarsamba
Kasa No:2 2 Ocak 2020 Perşembe
Bu şekilde Ay sonuna kadar ya da Sene Sonuna kadar formülle düzenlemem mümkün mü?

 

[Necdet]

Merhaba,

Örnek bir dosyanızı paylaşım sitelerinden birine kopyalayıp sorunuzu ona göre sorarsanız yanıt almanız kolaylaşır. Örneğin sizin "kasa Föy" dediğiniz şeyden ben hiç bir şey anlamadım.
Sayfa mıdır, hücre değeri midir vs vs vs .

 

[asimavi50]

Sayın, @Masuk72 Anladığım kadarı ile bir örnek vereyim belki istediğiniz budur.

Verilerinizin - değerlerin B1'Den başladığını varsayarsak; A1'E Tarih atacak formül

(A1'E Kopyalayıp aşağı doğru sürükleyin, B Sütununa değer girildiği zaman A1'E Tarihi otomatik verir)

=EĞER(B1>0;ŞİMDİ();"")

 

[YUSUF44]

Sayın, @Masuk72 Anladığım kadarı ile bir örnek vereyim belki istediğiniz budur.

Verilerinizin - değerlerin B1'Den başladığını varsayarsak; A1'E Tarih atacak formül

(A1'E Kopyalayıp aşağı doğru sürükleyin, B Sütununa değer girildiği zaman A1'E Tarihi otomatik verir)

=EĞER(B1>0;ŞİMDİ();"")

Yalnız bu formül sürekli çalışır ve sürekli en son hesaplama yapılan anı gösterir. Örneğin bugün yapılırsa yarın dosya açıldığında yarının tarihini gösterir, sabit kalmaz.

 

[asimavi50]

) Zaten cevap niteliğinde değil söylediğim; örnek olarak söyledim. Sayın @Masuk72 örnek vermemiş yada verememiş, bende istediği böyle bir şey mi diye örnek vereyim dedim. ) Tabi ki benim verdiğim formül değişken ve iş görmez asla. En azından böyle bir örnek istiyorsa makro çözümünü vereceğiz. Sayın @YUSUF44 ilginize çok teşekkür ediyorum.

 

[asimavi50]

"B" Satır ve Sütununa veri girilmesi halinde günün tarihini "A" Sütununa veren makro örneği aşağıdaki gibi, istenilen buysa tabii.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B1048576]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

 

[Masuk72]

ÖRNEK 1

Örnekteki bizim önmuhasebenin günlük kasa föyü her bir gün için günlük kasa föyü tutulur.
1 nolu kasa föyüne 01.01.2020 tarihini girdikten sonra geri kalan diger kasa föylerine tarihi otomatik atamak istiyorum

 

[YUSUF44]

Link hatalı galiba. Bir de yüklediğiniz site sanki sadece resim yüklüyor gibi, eğer öyleyse resim yerine excel dosyası paylaşmanız daha iyi olur.

 

[Masuk72]

Şimdi olması lazım. İlginiz için teşekkür ederim
Örnek

 

[YUSUF44]

Aşağıdaki makro aktif sayfayı kopyalayıp bir gün sonraya göre düzenler:

Sub yenigun()
On Error Resume Next

gun = ActiveSheet.[H5]
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "K" & Day(gun) + 1
ActiveSheet.[H5] = gun + 1
ActiveSheet.[C8:H27].ClearContents
End Sub