hücreye girilen kelimeye göre zaman yazdırma

[metince54]

merhaba. elimde bir dosya var. yapıldı yapılmadı veri dogrulama ile giriş yapılıyor. yapıldı yazıldığında o günün tarihini attırmak istiyorum. formulu bugun kullanmayı dusundum ama yarın olduğunda güncellenceğinden olmadıç şimdiden teşekkür ederim. formül yazacak arkadaşlar için yapıldı yapılmadı bulunduğu h3 den başlıyor tarihide ı sutunune istiyorum. şimdiden emeği geçen herkese teşekkür ederim.

 

[çıtır]

Sayfa kodu olarak kopyalayarak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, [H2:H400]) Is Nothing Then Exit Sub
    If Target.Value = "Yapıldı" Then
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
Else
Target.Offset(0, 1) = ""
End If
End Sub

 

[metince54]

teşekkürler

 

[çıtır]

teşekkürler

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[yyhy]

Arkadaşlar örnek bir dosya atar mısınız, ben bir dosya üzerinde çalıştım sonuç vermedi.

 

[çıtır]

Örnek dosya.

 

[yyhy]

Sayın çıtır teşekkürler güzel bir çalışma olmuş, acaba macroda bir değişiklik yaparak H sütununa ne yazılırsa yazılsın I sütununa tarih formatı olarak aa.yyyy ss:dd:nn olarak eklettirebilir miyiz?

 

[yyhy]

Şimdiden teşekkürler.

 

[çıtır]

Sayın çıtır teşekkürler güzel bir çalışma olmuş, acaba macroda bir değişiklik yaparak H sütununa ne yazılırsa yazılsın I sütununa tarih formatı olarak aa.yyyy ss:dd:nn olarak eklettirebilir miyiz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, [H2:H400]) Is Nothing Then Exit Sub
    If Target.Value <> "" Then
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy hh:mm:ss")
Else
Target.Offset(0, 1) = ""
End If
End Sub

 

[yyhy]

Teşekkürler emeğinize sağlık.

 

[metince54]

Merhaba. bende daha önceden otomatik tarih verilsin diye komut vardı sizinkinide yapıştırıyorum ama olmuyor. yardımcı olur musunuz. bende g de yapıldı yapılmadı komutu tarih istediğim h sutunudur.


Private Sub CommandButton1_Click()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2:B1048576]) Is Nothing Then Cells(Target.Row, "e") = Format(Now, "dd.mmm.yyyy")

End Sub


Private Sub EKLE_Click()

UserForm2.Show
End Sub