Veri girişi yapıldığında yandaki hücreye tarih yazdırmak

[cuuf2]

Belli bir hücreye 100 yazıldığında yanındaki hücreye 100 sayısının girildiği günün tarihini atmasını istiyorum yalnız atılan tarih ertesi gün değişmiycek.
formülde eğer konusunda problem yaşamıyorum, bugün ve şimdi formüllerini de uyguladım ama bu formüllerde ertesi gün tarih değişiyor..

 

[mehmett]

Bütün hücreler için mi geçerli olacak, yoksa belli bir hücre aralığında mı?

Hangi hücre aralğında olacağını belirtirseniz, yardım gelir sanırım.

 

[cuuf2]

Bütün hücreler için mi geçerli olacak, yoksa belli bir hücre aralığında mı?

Hangi hücre aralğında olacağını belirtirseniz, yardım gelir sanırım.

iki tane yan yana hücre düşünün sağdaki hücreye 100 yazılınca soldaki hücreye günün tarihini atıcak ama atılan tarih ertesi gün değişmiycek.

 

[Korhan Ayhan]

Selamlar,

Bu işlemi makro ile yapabilirsiniz. Aşağıdaki kodu işlemi yapacağınız sayfanın kod bölümüne uygulayıp denermisiniz.

A sütununa veri girdikçe B sütununa tarih bilgisini yazar. Veriyi silerseniz B sütunundaki tarih bilgiside silinir.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target <> "" Then Target.Offset(0, 1) = Now
    If Target = "" Then Target.Offset(0, 1) = ""
End Sub

 

[cuuf2]

Selamlar,

Bu işlemi makro ile yapabilirsiniz. Aşağıdaki kodu işlemi yapacağınız sayfanın kod bölümüne uygulayıp denermisiniz.

A sütununa veri girdikçe B sütununa tarih bilgisini yazar. Veriyi silerseniz B sütunundaki tarih bilgiside silinir.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target <> "" Then Target.Offset(0, 1) = Now
    If Target = "" Then Target.Offset(0, 1) = ""
End Sub

arkadaşım teşekkür ederim ama ben bu söylediğini yapmayı bilmiyorum. bu işlemi formülle gerçekleştiremezmiyiz. ayrıca bildiğim kadarıyla makro yazdığım zaman benim bi tuşa basmam gerekiyor ben bu işlemi otomatik yapsın istiyorum

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

A sütununa veri girip deneyiniz.

Not: Soru başlığınızı aramalarda kolaylık sağlaması açısından yeniden düzenledim.

 

[cuuf2]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

A sütununa veri girip deneyiniz.

Not: Soru başlığınızı aramalarda kolaylık sağlaması açısından yeniden düzenledim.

arkadaşım süpersin yaaaa. tam istediğim gibi. bunu bana nasıl yaptığını gösterebilir misin? yukarıda msn adresim var burdan adresi ekleyip bana tarif edersen çok memnun olurum.

 

[cuuf2]

ben msnime ekledim seni kabul edebilir misi?

 

[Korhan Ayhan]

Selamlar,

Çözüm kod ile yapılmışıtr. Alt+F11 tuşlarına basarsanız kod editörü açılır oradaki kodları inceleyebilirsniz.

 

[cuuf2]

Selamlar,

Çözüm kod ile yapılmışıtr. Alt+F11 tuşlarına basarsanız kod editörü açılır oradaki kodları inceleyebilirsniz.

arkadaşım ben bu olayı çözemedim. siteyede baktım ama nasıl uygulayacağımı gösteren bi yer bulamadım. bu kodu nasıl uygulayacağımı gösteren biyer yok mu yada sen gösterebilir misin?

 

[Skorpiyon]

Sayın cuuf2,

Sayın Cost_Control'ün belirtiği gibi Alt+F11 veya dosyanızdaki Sayfa1'in üzerine sağ tuş yapıp "Kodu Görüntüle" derseniz yazılan kodları görürsünüz.

Aynı uygulamayı başka dosyalarınızda da çalıştırmak isterseniz, yukarıdaki işlemi yaptıktan sonra karşınıza çıkan kodları kopyalayıp yeni açtığınız bir excel çalışma kitabına aynı yol ile kopyalayabilirsiniz.

Saygılar...

 

[cuuf2]

Sayın cuuf2,

Sayın Cost_Control'ün belirtiği gibi Alt+F11 veya dosyanızdaki Sayfa1'in üzerine sağ tuş yapıp "Kodu Görüntüle" derseniz yazılan kodları görürsünüz.

Aynı uygulamayı başka dosyalarınızda da çalıştırmak isterseniz, yukarıdaki işlemi yaptıktan sonra karşınıza çıkan kodları kopyalayıp yeni açtığınız bir excel çalışma kitabına aynı yol ile kopyalayabilirsiniz.

Saygılar...

TAMAMDIR BU İŞ. YAPTIM OLDU. ARKADAŞIM KUSURA BAKMA SENİ BAYA Bİ YORDUM AMA SENDE DE BÜYÜK SABIR VARMIŞ ÇOK ÇOK TEŞEKKÜR ETTİM. NE KADAR İŞİME YARADIĞINI BİLEMEZSİN..