Soru Excel Tablosunda Yalnızca Bir Gün Değişiklik Yapma

[Turkbey41]

Merhaba,

Excel dosyasında sadece bugün veri girişi yapılabilsin istiyorum. Dün ve ondan önceki günlerde girilen verilerde değişiklik yapılmasını önlemek istiyorum. Bunu nasıl sağlayabilirim.

Şimdiden çok teşekkür ederim.

 

[tamer42]

Merhaba,

Excel dosyasında sadece bugün veri girişi yapılabilsin istiyorum. Dün ve ondan önceki günlerde girilen verilerde değişiklik yapılmasını önlemek istiyorum. Bunu nasıl sağlayabilirim.

Şimdiden çok teşekkür ederim.

Örnek dosya paylaşamıyor musunuz?

 

[Turkbey41]

Örnek dosya paylaşamıyor musunuz?

Örnek dosya eklenmiştir.

 

[tamer42]

Örnek dosya eklenmiştir.

Örnek dosya ??

 

[Turkbey41]

Örnek dosya ??

Şimdi ekledim

 

[tamer42]

Makro ile mi bir çözüm istiyor dunuz?

 

[Turkbey41]

Makro ile mi bir çözüm istiyor dunuz?

Tamer bey her türlü çözüm olabilir, formülasyon ile bilmediğim için konuyu bu alana açtım.

İlginiz için ayrıca teşekkür ederim.

 

[Turkbey41]

Güncelleme

 

[Korhan Ayhan]

Aşağıdaki kodu dosyanızda ThisWorkbook bölümüne uygulayınız. Dosyanızı makro içerebilen excel dosyası biçiminde kayıt edip kapatınız.

Dosyanızı açtığınızda kod devreye girecektir. Geçmiş günlere ait satırları korumaya alacaktır.

Option Explicit

Private Sub Workbook_Open()
    Dim Rng As Range
    With Sheets("Sayfa1")
        .Unprotect "+++"
        .Range("A2:K" & .Rows.Count).Locked = False
        For Each Rng In .Range("A2:A" & .Cells(.Rows.Count, 1).End(3).Row)
            If Rng.Value < Date Then
                Rng.Resize(, 11).Locked = True
            End If
        Next
        .Protect "+++"
    End With
    ThisWorkbook.Save
End Sub

 

[Turkbey41]

Aşağıdaki kodu dosyanızda ThisWorkbook bölümüne uygulayınız. Dosyanızı makro içerebilen excel dosyası biçiminde kayıt edip kapatınız.

Dosyanızı açtığınızda kod devreye girecektir. Geçmiş günlere ait satırları korumaya alacaktır.

Option Explicit

Private Sub Workbook_Open()
    Dim Rng As Range
    With Sheets("Sayfa1")
        .Unprotect "+++"
        .Range("A2:K" & .Rows.Count).Locked = False
        For Each Rng In .Range("A2:A" & .Cells(.Rows.Count, 1).End(3).Row)
            If Rng.Value < Date Then
                Rng.Resize(, 11).Locked = True
            End If
        Next
        .Protect "+++"
    End With
    ThisWorkbook.Save
End Sub

Korhan bey çok teşekkür ederim.

Fakat gün bazında bir sınırlamadan ziyade tek sefer veri girişine izin veriyor ve sonrasında sınırlıyor. Bunun yerine hücrelerden birinde bugünün tarihi olsa ve A sütununda yalnızca bugünle aynı olan satırda veri girişine izin verse bu mümkün müdür?

 

[Korhan Ayhan]

Merhaba,

Benim önerim sadece fikri vermek açısından bir paylaşımdı.

Önemli olan bu işlemin hangi aşamada olacağıdır. Bunu belirledikten sonra ilerlemek daha kolay olacaktır.

Örnek dosyanıza göre bir işlemin tamamlandığını excele anlatabileceğimiz anahtarı/kriteri belirtirseniz çözüm yolunda ilerleyebiliriz.