Frekansa Göre Otomatik Tarih Güncelleme

[rhombeus]

Hayırlı Akşamlar dilerim arkadaşlar,

Ekteki dosya için yardımınıza ihtiyacım var.

Kısaca Özetlemem Gerekirse;

Denetim Planına göre, L sütununda "Başlangıç Tarihi", M sütununda "Süre", N sütununda "Bitiş Tarihi", O sütununda "Denetimin Frekansı", P sütunundada "Sonraki Denetim Tarihi" bölümlerini oluşturmaktadır. Diyelimki herhangi bir faaliyet için denetim tarihi 17.09.2010 olsun ve bu denetim 2 gün (20.09.2010 da bitecek) sürsün. Ve bu denetimin frekansı 3 gün olsun yani bir dahaki denetim dönetimi 20.09.2010 tarihinde yapılacak. Benim istediğim dosyayı açtığımda L sütunundaki değer eğer bugünün tarihiyse otomatik olarak P sütunundaki değeri L sütununa alsın ve bu şekilde sürekli kendini güncellesin. Umarım anlatabilmişimdir.

Teşekküler,

Saygılarımla

 

[mersilen]

selam
L25 hücresine
=EĞER(MİN(L26:L148)=BUGÜN();P25;MİN(L26:L148))
yapıştırıp dener misin?

 

[rhombeus]

sn. mersilen

Tam anlatamamış olabilirim. Ekteki dosyada:

L27= 18.09.2010
M27=2
N27= otomatik olarak 20.09.2010 yani bitiş tarihi
027= (Frekans)= 10 gün
P27=(Sonraki Denetim Tarihi) otomatik olarak 28.09.2010 oluyor.

Ve şuan dosyayı açtığımda bir tuş ile veya otomatik olarak eğer başlangıç tarihi (L27) bugünse, L27' ye P27 deki değeri yazsın istiyorum.

Umarım bu örnek daha açıklayıcı olmuştur

 

[rhombeus]

Hocalarım yokmu yol gösterecek?

 

[rhombeus]

Sayın hocalarım,

Konuyu 1. sayfaya taşımak ve şansımı son bir kez denemek için yazıyorum
Acaba sorunum ile ilgili anlatımımda eksiklik mi var?

 

[mersilen]

selam
tam olarak ne yapmaya çalıştığını anlayamadım,
L27 yanına bir sütun eklemen işini kolaylaşrırabilir mi?

L27= 18.09.2010
M27=(L27) bugünse, M27' ye R27 deki değeri yaz
N27=2
O27= otomatik olarak 20.09.2010 yani bitiş tarihi
P27= (Frekans)= 10 gün
R27=(Sonraki Denetim Tarihi) otomatik olarak 28.09.2010 oluyor.

Ve şuan dosyayı açtığımda bir tuş ile veya otomatik olarak eğer başlangıç tarihi (L27) bugünse, L27' ye P27 deki değeri yazsın istiyorum.


M27 ye =eğer(L27=bugün(); R27;L27) işini görmez mi?

 

[rhombeus]

mersilen arkadaşım,
=eğer(L27=bugün(); R27;L27) için teşekkürler fakat R27=Q27 olacak sanırım.

İlgin İçin teşekkürler. Yapmaya çalıştığım başlığımda yazdığım gibi otomatik olarak tarihin güncellenmesi. senin yazdığın fonk. yapmanın benim için bir anlamı yok. Çünkü kendini güncellemiyor. Sadece tek bir iterasyon yapabiliyorum senin verdiğin öneri ile. Sonraki denetim frekansı sende farkedersen aynı kalıyor. Son kez özet olarak geçiyorum.

Yapmak istediğim tek şey, tabloda denetimin başlangıç ve bitiş tarihi ve frekansa göre sonraki denetim tarihi var. Başlangıç tarihi bugün olan tarihi sonraki denetim tarihi ile değiştirerek bir döngü yaratmak istiyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu çalışmanızın THISWORKBOOK bölümüne uygulayın. Dosyanızı kaydedip kapatın. Dosyanızı yeniden açtığınızda tüm tarih bilgileri güncellenecektir.

Option Explicit
 
Private Sub Workbook_Open()
    Dim X As Long
 
    Sheets("Sayfa1").Select
 
    For X = 26 To Range("L65536").End(3).Row
        If Cells(X, "L") = Date Then
            Cells(X, "L") = Cells(X, "P")
        End If
    Next
 
    MsgBox "Frekanslara göre başlangıç tarihleri güncellenmiştir !", vbInformation
End Sub

 

[rhombeus]

Korhan Bey çok teşekkürler ellerinize sağlık, istediğim mantık buydu.

Fakat sadece 27. satırdaki veriyi güncelliyor. Yani L sütunundaki tüm verileri güncellemiyor. Bu konudada yardımcı olabilirseniz çok sevnirim.

 

[rhombeus]

Korhan Bey tamamdır,

For X = 26 To Range("L65536").End(3).Row

yaptım düzeldi. Allah razı olsun teşekkürler..