Çözüldü Günlük girilen verilerin belirli bir süre sonra değiştirilmesini engelleme

ahmetozen34' Alıntı:

Merhaba,
Daha önce aşağıdaki konu hakkında düşey tarih ilerleyen bir dosya için arkadaşlar aşağıdaki kodlamayı önermişlerdi, örnek dosyadaki gibi yatay ilerleyen günler için de benzeri bir kodlama var mıdır ?

"Günlük veri girişi yapılan bir excel dosyam var. Yapılan veri girişlerinin örneğin 24 saatten sonra silinmesini veya değiştirilmesini istemiyorum. Pazartesi veri girişi yapıldıysa Salı ve sonrası günlerde Pazartesi girilen veri değiştirilemesin istiyorum .Excelin böyle bir özelliği var mıdır, yardımcı olabilirseniz sevinirim ? Şimdiden teşekkür ederim."

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim son As Long
Dim password As String
Dim userInput As String

son = Range("A1").CurrentRegion.Columns.Count + 1

If Cells(Target.Row, 1) < Date And Target.Column < 5 And Target.Value <> "" Then
userInput = InputBox("Geçmiş veriyi değiştirmek için parolayı giriniz:", "Parola Girişi")

' Parolanızı buraya girin
password = "1234"

If userInput <> password Then
MsgBox "Geçmiş verileri değiştiremezsiniz."
Cells(Target.Row, son).Select
Else
MsgBox "Parola doğru. Veriyi değiştirebilirsiniz."
End If
End If
End Sub

Genişletmek için tıkla...

SNNAY' Alıntı:

Deneyiniz;
Tarih sütunları farklı hücreler ise Set tarihAraligi = Me.Range("D3:CQ3") kısmında D3:CQ3 yazan yeri değiştiriniz.

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Genişletmek için tıkla...

SNNAY' Alıntı:

Ekip sayfasında sadece F5:AJ5 aralığında (Tarihlerin bulunduğu satır) çalışacak diğer sayfada komple çalışacak;

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Genişletmek için tıkla...

ahmetozen34' Alıntı:

Hocam ilgin için teşekkür ederim ancak doğru anlatamamış olabilirim.

Pers sayfası çok başarılı oldu eline sağlık, o sayfa ile ilgili düzenlemeye ihtiyaç yok.
Equip Sayfası için;
F5 ve AJ31 arası Temmuz ayı için, F36 AJ 62 için Ağustos ayı için kelimeler ile doldurulacak tarih ile değil.
Pers sayfasında yaptığın kodlamanın aynısı burda F5 AJ 31 arası için ayrı , F36 AJ62 için ayrı, hatta eylül ayı eklendiğinde F67 AJ 93 arası için de ayrı çalışması yeterli olacaktır. Mesela F 36'daki tarihe bakacak ve eğer güncel tarihimiz 1 Ağustosu geçmiş ise F36 ve F62 arasındaki değerleri değiştirmeyecek, formülün F 62 sonrasını veya F32 öncesini etkilememesi lazım ki ben alta Eylül ayını eklediğimde eylül için de formülü çoğaltayım. Çoğaltabileceğim bir formül olursa çok iyi olur. Çok teşekkür ederim.

Genişletmek için tıkla...

SNNAY' Alıntı:

Deneyiniz;
Sayfaya daha sonra eklenecek tablolar için araliklar = Array("F5:AJ32", "F36:AJ63", "F67:AJ94") ' Buraya yeni aralıklar ekleyebilirsiniz kısmına ekleme yapabilirsiniz örneğin 10. ay için aralık F98:AJ125 gibi

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Genişletmek için tıkla...

SNNAY' Alıntı:

Deneyiniz.

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Genişletmek için tıkla...