Çözüldü Onay tarihi sabitleme

[arslanbey]

Merhabalar ,
Excel programında onay tarihini sabitlemek istiyorum.
Örneğin ben tamamlanan görevi dünün tarihini ekleme yaptımsa dünün tarihi sabit kalmasını istiyorum.
şuanda ise bilgisayarın tarihi neyse onu alıyor.

 

[kralım]

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

 

[arslanbey]

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

 

[SNNAY]

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

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

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[arslanbey]

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

 

[SNNAY]

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

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.

 

[arslanbey]

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?

 

[userx]

Sayın arslanbey
Kontrol eder misiniz?

 

[SNNAY]

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?

Deneyiniz

 

[arslanbey]

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