Bugünün tarihini otomatik atsa?

[fuzbing]

Arkadaşlar bi excel sayfası hazırlıyorum, Şu firmaya şu kadar ödendi gibisinden. Ama tarih bölümünü otomatik atmasını istiyorum bugünün tarihini. Bunu nasıl sağlayabilirim ? Bide excel de yeniyim biraz detaylı anlatabilirseniz sevinirim.

 

[murattaskiran]

merhaba;

tarih'i görmek istediğiniz hücreye =BUGÜN() yazınız.k::

 

[security]

sn: fuzbing örnek dosya gönderirseniz daha yardımcı olacaktır.
eger ki sayfada bu gunun tarihini göstermek istiyorsanız .

 =BUGÜN()

kodunu kullanabilirsiniz.

 

[stres]

birde saat isterseniz ilgili hücreye =şimdi() yazın

 

[S.Yiğit]

Arkadaşlar bi excel sayfası hazırlıyorum, Şu firmaya şu kadar ödendi gibisinden. Ama tarih bölümünü otomatik atmasını istiyorum bugünün tarihini. Bunu nasıl sağlayabilirim ? Bide excel de yeniyim biraz detaylı anlatabilirseniz sevinirim.

Merhaba,

Bu istediğinizi hazır fonksiyonlarla yapmanız zor, çünkü bu fonksiyonlar dinamiktir. Ancak VBA ile yapılabilir.

Forumda Örnekler var..

 

[Orion1]

Merhaba,

Bu istediğinizi hazır fonksiyonlarla yapmanız zor, çünkü bu fonksiyonlar dinamiktir. Ancak VBA ile yapılabilir.

Forumda Örnekler var..

Güzel.

 

[fuzbing]

Hocam bu =BUGÜN() komutuyla olmaz, çünki diyelimki

Emre A. Tarih Ödenen ücret

Şeklinde olacağı için, ben bugün açtığımda o satıra bugünün tarihini atması gerek, o komutla hepsini =BUGÜN() yapıyor.

Son yazan arkadaş vba komutu demiş ama onlarıda pek anlamıyorum. dosyayı ekleyim ben birde, ekledim onuda ona bakarsanız.

 

[Orion1]

Güvenlik düzeyinin düşük olrak ayarlamanız lazım.Ayarlı değilse.
Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, 2).Value = Date
Target.Offset(0, 2).NumberFormat = "dd.mm.yyyy"
End Sub

 

[fuzbing]

hocam çok teşekkürler. A sütununa bir değer giriniz kısmını anlamadım ama çalışıyor onu sildim bi önemi varmıydı?

 

[fuzbing]

Güvenlik düzeyinin düşük olrak ayarlamanız lazım.Ayarlı değilse.
Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, 2).Value = Date
Target.Offset(0, 2).NumberFormat = "dd.mm.yyyy"
End Sub

Çok teşekkürler hocam çalıştı. A sütun kısmını anlamadım sildim ama sorun olmaz sanırım.

 

[Orion1]

Çok teşekkürler hocam çalıştı. A sütun kısmını anlamadım sildim ama sorun olmaz sanırım.

Sorun olmaz.

 

[embulu]

dd.mm.yyyy peki bunu formatını şu şekilde nasıl yapabiliriz

günsaatdakikaB ayyıl Örnek 241330B ARA09

 

[Orion1]

dd.mm.yyyy peki bunu formatını şu şekilde nasıl yapabiliriz

günsaatdakikaB ayyıl Örnek 241330B ARA09

"dd hh:mm mm/yyyy"

 

[embulu]

Yazdığım örnek gibi yapılması mümkün mü arada B harfi olacak ve ay 3 harfli yılın da son iki harfi olacak

 

[Orion1]

Yazdığım örnek gibi yapılması mümkün mü arada B harfi olacak ve ay 3 harfli yılın da son iki harfi olacak

"ddhhmm\B mmmyy"

 

[embulu]

olmadi galiba saati hep 00000 atıyor anlamadım Target.Offset(0, 2).Value = date yazıyo ""orası date olduğu için mi acaba ""

 

[Orion1]

olmadi galiba saati hep 00000 atıyor anlamadım Target.Offset(0, 2).Value = date yazıyo ""orası date olduğu için mi acaba ""

Date yerin now yazın.