Başka hücreye bağlı zaman değişimi ??

[ilavus]

Merhaba,

Öncelikle çok harika bir forum bulduğumu,bu platformu bulanı,düşüneni,yöneteni, taktir ettiğimi belirtmeliyim...

Dün akşam tesadüfen buldum ve hemen kaydoldum.Akşamdan beri de incelemekteyim..

Benim bir sorum var,mevcut başlıklarda rastlayamadım :

A1 hücresi boş iken B1 hücresi de boş olacak, A1 hücresine herhangi bir veri girilince (yazı yada rakam) B1 hücresine o anın tarih ve saati düşecek... Bu A1,A2,A3.... şeklinde devam edecek,karşılarında da B1,B2,B3 e o an saat ve tarih devam edecek... A1 silinince B1 yine boş görünecek...

Gerek excel in yardımında gerekse bu forumda bulamadım çözümü,eğer yardımınız olursa çok sevinirim...

Şimdiden teşekkürler...

 

[veyselemre]

Linki inceleyin.

 

[uzmanamele]

merhaba

syn ilavus, hoşgeldiniz.

sitede arama yaparsanız birkaç örnek bulabilirsiniz.

B sütununda tarih biçimini seçiniz

=EĞER(A1<>"";ŞİMDİ();"")

=EĞER(A1<>"";BUGÜN();"")

 

[ilavus]

veyselemre ;

Verdiğiniz linki görmedim önce,imzanıza bakıyorum ) Allah Allah ne demek şimdi bu diyorum ...

Az evvel Burada da benzer birşey gördüm esasen,ama bu kodu excel de nereye ekleyeceğimi bilmiyorum Acaba sorumu "yeni başlayanlar" bölümüne mi yazsaydım...

Eğer zor değilse,kodu nereye ve nasıl ekleyeceğimi söyleyebilir misiniz...

excel 2007 türkçe kullanıyorum.

Teşekkürler..

 

[ilavus]

syn ilavus, hoşgeldiniz.

sitede arama yaparsanız birkaç örnek bulabilirsiniz.

B sütununda tarih biçimini seçiniz

=EĞER(A1<>"";ŞİMDİ();"")

=EĞER(A1<>"";BUGÜN();"")

Bu kodları denedim daha evvel , evet tek bir hücre için kullanılırsa oluyor,ama işte benim isteğim a1,a2,a3 hücrelerindeki değişikliklerin ayrı ayrı b1,b2,b3 e yazılması...

Bu kodlarla a1 yazılınca b1 şimdi oluyor,5 dk sonra a2 ye birşey yazılınca b2 de şimdi b1 de şimdi oluyor. (

 

[veyselemre]

veyselemre ;

Eğer zor değilse,kodu nereye ve nasıl ekleyeceğimi söyleyebilir misiniz...

excel 2007 türkçe kullanıyorum.

Teşekkürler..

Excel 2007 için aynı şeyler geçerli mi bilmiyorum,

Sayfanın altındaki sayfasekmesinin üzerinde sağ tıklayıp kod görüntüleyi çalıştırın. buraya kodları yapıştırıp, deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
    If Target.Text <> "" Then
        Target.Offset(0, 1).Value = Now
    Else
        Target.Offset(0, 1).Value = ""
    End If
End Sub

 

[ilavus]

veyselemre,

Harika,çok teşekkür ederim,söylediğiniz gibi oluyor,ekleniyor kod...

Bir de eğer fazla olmazsam, bu kodla sadece a hücrelerine kayıtda b hücrelerine saat ve tarih atıyor...

Peki a1,a2,a3 olmasını istersem sadece,yani a4 kaydı ve altı b4 ve altına tarih-saat atmasın ...

Teşekkür ederim..

 

[veyselemre]

Peki a1,a2,a3 olmasını istersem sadece,yani a4 kaydı ve altı b4 ve altına tarih-saat atmasın ...

Aşağıdaki kısmı düzeltin.

    If Intersect(Target, [a1:a3]) Is Nothing Then Exit Sub

 

[ilavus]

Final...

Bir forumda,sanki msn chat yapılıyor,bu kadar hızlı olabilir...

Tekrar tekrar teşekkür ederim...

not:
Ben de şu şekilde düşünmüştüm,olmamıştı :

If Intersect(Target, [a:a3]) Is Nothing Then Exit Sub