otomatik tarih atma

[KON_AK]

herkese mrb arkadaşlar excel de otomatik tarih atması örneğin (a 1 sütununa bişey yazdığımda b1 sütununa kendiliğinden nasıl tarihi attırabiliriz yardım için tşk ederim
formulünü yazarmısınız

 

[Necdet]

Günün tarihini mi? ve günün tarihi ise bu tarih ertesi gün de değişecek mi?

 

[KON_AK]

dostum şimdi a1 satırına bişeyler yazdığım da b1 satırına otomatik aynı günün tarihini hatta saatini yazması nı istiyom eğer aynı gün a2 satırına bişeyler yazarsam yine b2 satırına aynı günün tarihlerini atsın

ben bunu bir veresiye sayfası olarak kullanıyom müşterinin aldığı malın hangi tarhte ne almış bunu takip etmek için


ofis 2003 tr

 

[Necdet]

Birşeyler yapmaya çalıştım, dosyayı inceliyiniz.
Aşağıdaki kodu ilgili sayfanın kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Cells(Target.Row, "B") = Now
son:
End Sub

 

[KON_AK]

dostum çok tşk ederim bu işimi gördü sğl

 

[demhatozcelik]

Sayın Necdet Yesertener çok güzel olmuş.
Ben bunu yaptığım kasa programında güvenlik açısından kullanmak istiyorum.
Sayfa birde yapılan değişklikler yedek sayfasına kayıt yapılacak. Bununla ilgili dosyamı ekliyorum. Açıklamaları dosya içine yazdım. Bu konuda yardım ve önerilerinizi benimle paylaşırsanız sevinirim.

 

[Mdemir63]

dostum çok tşk ederim bu işimi gördü sğl

Selamlar

Necdet Hocam kodlarla yapmış bu da formülle değişik bir örnek

Kolay gelsin

 

[Necdet]

Sayın komutan63,

Fonksiyonlarla yaptığınız zaman dosya her açıldığında günün tarihini ve saatini alır o yüzden fonksiyon kullanma bu soruda sakıncalı olur.

Sayın demhatozcelik,

Sizin dediğiniz yapılabilir mi, ben açıkçası bilemiyeceğim, o kadar bilgim yok, bunu ustalara bırakıyorum. Yapılsa bile kolay olmayacağı kanısını taşıyorum.

 

[Mdemir63]

Sayın komutan63,

Fonksiyonlarla yaptığınız zaman dosya her açıldığında günün tarihini ve saatini alır o yüzden fonksiyon kullanma bu soruda sakıncalı olur.

Sayın demhatozcelik,

Sizin dediğiniz yapılabilir mi, ben açıkçası bilemiyeceğim, o kadar bilgim yok, bunu ustalara bırakıyorum. Yapılsa bile kolay olmayacağı kanısını taşıyorum.

Haklısınız Necdet Hocam
ben onu hiç düşünmedim Teşekkürler uyarınız için
Saygılar

 

[demhatozcelik]

Teşekkür ediyorum arkadaşlar.

 

[engin52]

arkadaşlar merhabalar
exelle ilgili birşey sormak istiyorum. bunu örnekle soracağın ki iyi anlaşılsın.
örnek: 24/07/2008 tarihinde A1 hücresine 5 yazdım, B1 hücresine otomatik olarak 24/07/2008 tarihini atsın ve bu tarih burada kalsın.
25/07/2008 tarihinde A2 hücresine 4 yazdım, B2 hücresine 25/07/2008 yazsın ve bu tarihler kayıtlı kalsın.
yani sayfayı her güncellediğimde o günün tarihleri değil hücreleri doldurma tarihleri gözüksün.
bu konuyla ilgili yardımlarınızı bekliyorum.
şimdiden teşekkürler.

 

[hamitcan]

Galiba cevapları çok iyi incelememişsiniz. Sorunuzun yanıtı konu içinde mevcut.

 

[serserimayin1986]

Birşeyler yapmaya çalıştım, dosyayı inceliyiniz.
Aşağıdaki kodu ilgili sayfanın kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Cells(Target.Row, "B") = Now
son:
End Sub

hocam excel de çok yeniyim yukarıda yazdığınız kod tam benlik teşekkür ediyorum ancak bir sorunum var ben bu "kod bölümüne ekleyin" basamağını yerine getiremedim yani kod bölümünü bulamadım yada bu kodları nasıl uygularım bana P.M. atarmısınız

yada bu konuda bilgisi olan varsa yardımcı olurmusunuz?

şimdiden teşekkürler
serserimayin1986@hotmail.com

 

[engin52]

hocam excel de çok yeniyim yukarıda yazdığınız kod tam benlik teşekkür ediyorum ancak bir sorunum var ben bu "kod bölümüne ekleyin" basamağını yerine getiremedim yani kod bölümünü bulamadım yada bu kodları nasıl uygularım bana P.M. atarmısınız

yada bu konuda bilgisi olan varsa yardımcı olurmusunuz?

şimdiden teşekkürler
serserimayin1986@hotmail.com

sayfa numarasına sağ tıkla kod görüntüleye tıkla karşına bir sayfa açılacak oraya bu kodu yaz

 

[engin52]

örnek dosyayı kendine uyarla

merhaba...

bir örnek dosya gönderiyorum onu kendine uyarla

umarım işine yarar.

kolay gelsin.

 

[serserimayin1986]

teşekkür

merhaba...

bir örnek dosya gönderiyorum onu kendine uyarla

umarım işine yarar.

kolay gelsin.

hocam çok teşekkürler gerçekten tam aradığım bir formüldü bu gönderdiğiniz ayrıca örnek çalışma çok işime yaradı ve amacıma ulaştım

size ve emeği geçen herkese müteşekkirim sağolun

 

[luckystrike]

merhaba arkadaşlar,

bu kodu iki farklı sütun için yaptığımda sorun çıkıyor. yaptığımı aşağıda görebilirsiniz.

hem B'ye giriş yapıldığında C'ye tarih atsın, hem de L'ye giriş yaptığımda M'ye tarih atsın istiyorum.
hatta belki bu şekilde 3. sutuna da ihtiyacım olacak.
yardımlarınız için şimdiden teşekkürler.


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Cells(Target.Row, "B") = Now
son:
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [L:L]) Is Nothing Then Exit Sub
Cells(Target.Row, "M") = Now
son:
End Sub

 

[uzmanamele]

merhaba

syn luckystrike, aşağıdaki kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:l]) Is Nothing Then Exit Sub
If Target.Column = 3 Then Cells(Target.Row, "B") = Now
If Target.Column = 12 Then Cells(Target.Row, "M") = Now
End Sub

 

[luckystrike]

merhaba

syn luckystrike, aşağıdaki kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:l]) Is Nothing Then Exit Sub
If Target.Column = 3 Then Cells(Target.Row, "B") = Now
If Target.Column = 12 Then Cells(Target.Row, "M") = Now
End Sub

görmez olur mu. çok çok teşekkürler....

 

[sefis]

Birşeyler yapmaya çalıştım, dosyayı inceliyiniz.
Aşağıdaki kodu ilgili sayfanın kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Cells(Target.Row, "B") = Now
son:
End Sub

sayın ustam kodları vermişsiniz emeklerine saglık ekde vermiş oldugunuz dosyayı indiremedim kodları yazmışsınız ama onu nereye ekleyecem yardımcı olursanız memnun olurum