Giriş Tarih Saat

[nadirornek]

B sutununda herhangi bir hücreye veri girişi yaptığımda yanındaki C sutunundaki hücreye
o anki tarihi ve saati otomatik kendisin yazmasını nasıl sağlarız

 

[dEdE]

Merhaba,
Aşağıdaki kodları Sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Offset(0, 0).Value <> "" Then Target.Offset(0, 1).Value = Format(Now(), "dd.mm.yyyy - hh:mm")
End Sub

 

[Erdem Akdemir]

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

bu fonksiyonu kullanırsanız devamlı kendini günceller

atanan değerin sabit kalmasını istiyorsanız sayın dedenin vermiş olduğu kodu kullanın

 

[Orion1]

Birde biçimlendirdikmi süper olacak.

[CODE]=EĞER(B1="";"";METNEÇEVİR(ŞİMDİ();"gg.aa.yyyy ss:dd:nn"))

[/CODE]

 

[Erdem Akdemir]

Birde biçimlendirdikmi süper olacak.

[CODE]=EĞER(B1="";"";METNEÇEVİR(ŞİMDİ();"gg.aa.yyyy ss:dd:nn"))

[/CODE]

evren hocam bende biçimlendirmeye gerek kalmadan otomatik olarak olumuştu ama yinede biçimlendirmek en iyisi

 

[nadirornek]

Arkadaşlar öncelikle teşekkürler.Sorum galiba yanlış anlaşıldı B sutununda herhangi bir hücreye
veri girişi yapıldığında yandaki C sutununa karşılık gelen yani örnek B5 hücresine yazdığımda C5
hücresine o anki tarih saati versin bu kodlarla son girilen zamanı gösteriyor her hücre için ayrı ayrı göstersin tşk

 

[Erdem Akdemir]

Arkadaşlar öncelikle teşekkürler.Sorum galiba yanlış anlaşıldı B sutununda herhangi bir hücreye
veri girişi yapıldığında yandaki C sutununa karşılık gelen yani örnek B5 hücresine yazdığımda C5
hücresine o anki tarih saati versin bu kodlarla son girilen zamanı gösteriyor her hücre için ayrı ayrı göstersin tşk

sayın dede'Nin vermiş olduğu kodu kullanın, fonksiyonla yaparsanız devamlı aynı sonucu alırsınız

 

[nadirornek]

Şimdi oldu.Herkese teşekkürler

 

[dEdE]

Güle güle kullanın.

 

[sarlayanil]

Sayın Dedenin vermiş olduğu kodu kullandıktan sonra farklı kolonlara da aynı seyı uygulamak ıstersek yani aynı anda hem B hem D hemde F kolonunu kullanmak ıstedıgımızde nasıl bır kod uygulamamız gerekecektır?

 

[dEdE]

aynı anda hem B hem D hemde F kolonunu kullanmak ıstedıgımızde nasıl bır kod uygulamamız gerekecektır?

B,D,F kolonunu kullanmaktan kastınız nedir. Bu kolonlara siz veri mi gireceksiniz yoksa otomatik birşeyler mi yazılacak. Bunu bilmeden yanıtlamam mümkün değil.

 

[sarlayanil]

Hocam şoyle ki sızın yazdıgınız sayesınde B kolonuna ne yazarsak Cde otomatik tarih yazıyor, bunun üstüne D kolonuna yazıp gene E de otomatik tarih ve F kolonuna yazıp G de otomatik tarih yazılması ıcın koda ne eklememız gerekir.

 

[dEdE]

Merhaba,
Kodun ilk satırını aşağıdaki kod ile değiştirin.
Kolay gelsin.

If Intersect(Target, [B:B,D:D,F:F]) Is Nothing Then Exit Sub

 

[sarlayanil]

Çok teşekkür ederim..

 

[Eren03]

Selam benimde şöyle bir sorunum var.
Evrak Giriyorum diğlimki B kolunu

B1 Kolonunu 01.01.2009
B2 Kolonunu 02.01.2009
B3 Kolonunu 03.01.2009
B4 Kolonunu 04.01.2009
B5 Kolonunu 05.01.2009 gibi olduğunu varsayarsak

Ben istiyorum ki 01 yada 02 yada 03 gibi yazdığımda kendisi otomotaik
01.01.2009 atsın yada 02 yazdığımda
02.02.2009 atsın

Umarım anlatabildim.

 

[Eren03]

Selam benimde şöyle bir sorunum var.
Evrak Giriyorum diğlimki B kolunu

B1 Kolonunu 01.01.2009
B2 Kolonunu 02.01.2009
B3 Kolonunu 03.01.2009
B4 Kolonunu 04.01.2009
B5 Kolonunu 05.01.2009 gibi olduğunu varsayarsak

Ben istiyorum ki 01 yada 02 yada 03 gibi yazdığımda kendisi otomotaik
01.01.2009 atsın yada 02 yazdığımda
02.02.2009 atsın

Umarım anlatabildim.

Bu Konuda yardımcı olacak arkadaş yokmu.

 

[dEdE]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Offset(0, 0).Value <> "" Then Target.Offset(0, 1).Value = Format(Target.Offset(0, 0).Value & "." & Target.Offset(0, 0).Value & "." & Format(Now(), "yyyy"), "dd.mm.yyyy")
End Sub

 

[Eren03]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Offset(0, 0).Value <> "" Then Target.Offset(0, 1).Value = Format(Target.Offset(0, 0).Value & "." & Target.Offset(0, 0).Value & "." & Format(Now(), "yyyy"), "dd.mm.yyyy")
End Sub

Bu kodu nerde nasıl kullanacağım bilmiyorum.

 

[dEdE]

Merhaba,
Bu makroyu kullanacağınız sayfanın sayfa adına sağ tıklayın. Açılan pencereden kod görüntüle yi seçin. Açılan pencerenin sağ tarafındaki alana yapıştırın ve bu pencereyi kapatın.
Güle güle kullanın.

 

[Eren03]

Merhaba,
Bu makroyu kullanacağınız sayfanın sayfa adına sağ tıklayın. Açılan pencereden kod görüntüle yi seçin. Açılan pencerenin sağ tarafındaki alana yapıştırın ve bu pencereyi kapatın.
Güle güle kullanın.

Makrolar filan karıştırken dediğiniz yaptım

yalnız bir sorun var

1 yazınca 01.01.2009
2 yazınca 02.02.2009
3 yazınca 03.03.2009
.................... gibi gidyor ama benim istediğim

1 yazınca 01.01.2009
2 yazınca 02.01.2009
3 yazınca 03.01.2009..........gibi olması

şimdiden çok teşekkürler