Çözüldü Onay tarihi sabitleme

Alıntıdır

Excel'de geliştirici sekmesini aç (Eğer yoksa Dosya > Seçenekler > Şeridi Özelleştir kısmından "Geliştirici" sekmesini aktif et).
VBA düzenleyicisini aç (ALT + F11 tuşlarına bas).
Sayfa (Sheet) kodlarını aç: Sol taraftaki Project Explorer penceresinde Sheet1 (veya ilgili sayfanın adı) üzerine çift tıkla.
Aşağıdaki VBA kodunu ekle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim kontrolAraligi As Range
Dim hucre As Range

' K3:K10 aralığını izle
Set kontrolAraligi = Me.Range("K3:K10")

' Değişen hücreler kontrol aralığındaysa işlem yap
If Not Intersect(Target, kontrolAraligi) Is Nothing Then
Application.EnableEvents = False ' Döngüye girmeyi önler

For Each hucre In Target
If hucre.Value = "DOĞRU" And IsEmpty(Me.Cells(hucre.Row, 10).Value) Then
Me.Cells(hucre.Row, 10).Value = Date ' J sütununa bugünün tarihini yaz
ElseIf hucre.Value = "YANLIŞ" Then
Me.Cells(hucre.Row, 10).ClearContents ' YANLIŞ seçilirse tarihi temizle
End If
Next hucre

Application.EnableEvents = True ' Olayları tekrar aç
End If
End Sub


Bu Makro Ne Yapıyor?
K3:K10 aralığında değişiklik olduğunda otomatik çalışır
Eğer bir hücreye "DOĞRU" girilirse, yanındaki J sütununa o günkü tarihi sabit olarak yazar
"YANLIŞ" seçilirse, o satırdaki tarihi temizler
Manuel olarak girilen tarihler değişmez, sadece ilk kez DOĞRU olduğunda tarih atanır

Üzgünüm ama kod çalışmadı.

arslanbey' Alıntı:

Üzgünüm ama kod çalışmadı.

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

Deneyiniz; DOĞRU yerine D yazmanız yeterli YANLIŞ yerine Y yazmanız yeterli

HTML:

Hocam Emeğinize sağlık ama D ve Y harflerini kullanmayıp "tik" işaretlemeyi yapsak olmaz mı?

arslanbey' Alıntı:

Hocam Emeğinize sağlık ama D ve Y harflerini kullanmayıp "tik" işaretlemeyi yapsak olmaz mı?

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

Her defasında yeni onay kutusu eklenip adres verilmesi gerekeceği için zahmetli olacaktır. Onun yerine tik işareti görünümlü font kullanırsak daha pratik olacaktır. Ayrıca kodlarda bulunan HARFLERİ dilediğinizle değiştirip ne yazılmışsa onaylanmasını sağlayabilirsiniz.

Gerçekten ilginizden dolayı teşekkür ederim şöyle bişey yapsak olur mu?
DURUM yanı "C" hücresine tamamlandı seçildiğinde "j " hücresine o ğünün tarihi yazdırsak olur mu?

Sayın arslanbey
Kontrol eder misiniz?

Çok teşekkür ederim çözümlenmiştir.