Veriye Göre Güncel Tarih Ekleme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

bychilavert

Kullanıcı
Katılım
18 Tem 2018
Mesajlar
216
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

Çözüm
Selamlar,
Yanlış anlamıyorsam
"Plaka yazılı olan bir satırda, B kolonundaki km değerini değiştirdiğinizde ya da yeni değer girdiğinizde, Tarih kolonuna Bugün tarihi yazılsın"
şeklinde isteniyor...

B2:B10000 aralığında hücrelerde değişiklik yapıldığında tetiklenen Makro ile olacaktır....
Sayfanın kod bölümüne

km değeri yazan hücreyi silip BOŞ olduğunda da bugün tarihi yazılacaksa,

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

km değeri yazan hücreyi silip BOŞ olduğunda Eski Tarih de silinsin şeklinde olacaksa,

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
Tarihe göre sırala Oylamaya göre sırala
Selamlar,
Yanlış anlamıyorsam
"Plaka yazılı olan bir satırda, B kolonundaki km değerini değiştirdiğinizde ya da yeni değer girdiğinizde, Tarih kolonuna Bugün tarihi yazılsın"
şeklinde isteniyor...

B2:B10000 aralığında hücrelerde değişiklik yapıldığında tetiklenen Makro ile olacaktır....
Sayfanın kod bölümüne

km değeri yazan hücreyi silip BOŞ olduğunda da bugün tarihi yazılacaksa,

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

km değeri yazan hücreyi silip BOŞ olduğunda Eski Tarih de silinsin şeklinde olacaksa,

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(10 satır)

Eklenen dokumanda, km değeri yazan hücreyi silip BOŞ olduğunda Eski Tarih de silinsin şeklindeki kod mevcuttur... İncelersiniz..
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Çözüm
Merhaba Yardımınız için Teşekkür Ederim. If Intersect(Target, Range("B2:B10000")) bu alanı değiştirmek istediğimde tarih atmıyor. Mesela E14 hücresine yazdığım zaman F14 hücresine nasıl yazdırabilirim?
 
Oyla 0 Olumsuz oyla
Selamlar,
Öncelikle, Ben teşekkür ediyorum....

Sorunuza gelince
E14 hücresine değer yazdığınızda / sildiğinizde yani değişiklik yaptığınızda F14 hücresine Tarih yazdırmak isterseniz
If Intersect(Target, Range("B2:B10000")) kod parçasındaki Range("B2:B10000") kısmını Range("E14") şeklinde yazın....

Ve alt satırlarda düzenleme ihtiyacı gerekebilir... Şöyle ki,
Verilen 1.koda bakarsanız...

If Target.Offset(0, -1) <> "" Then Target.Offset(0, 1) = CDate(Format(Date, "dd.mm.yyyy"))

kısmında, önce solundaki hücrenin DOLU olmasına bakar (Target.Offset(0, -1) <> "") ve Eğer doluysa Sağındaki hücreye tarih formatında SAYI olarak Bugün tarihini yazar....

Sizin duruma bakarsak, E14 için, önce D14 e bakar... D14 doluysa F14 e Bugün tarihini yazar. D14 BOŞ ise, işlem yapmaz, yani F14 Boş kalır.


Eğer D14 kontrolu olmasa, yani D14 BOŞ / Dolu herhangi bir şey olursa, o durumda, solundaki hücrenin DOLU olması koşulunu kaldırarak, kod

Target.Offset(0, 1) = CDate(Format(Date, "dd.mm.yyyy"))

şeklinde olacaktır....

Selamlarımla....
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt