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

metince54

Altın Üye
Katılım
9 Aralık 2009
Mesajlar
134
Excel Vers. ve Dili
Office 2016 TR 64 Bit
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

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
5,434
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Sayfa kodu olarak kopyalayarak deneyiniz.
Kod:
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
 
Son düzenleme:

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
510
Excel Vers. ve Dili
Microsoft Office 2013-2016-2019 tr
Arkadaşlar örnek bir dosya atar mısınız, ben bir dosya üzerinde çalıştım sonuç vermedi.
 

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
510
Excel Vers. ve Dili
Microsoft Office 2013-2016-2019 tr
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

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
510
Excel Vers. ve Dili
Microsoft Office 2013-2016-2019 tr
Şimdiden teşekkürler.
 

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
5,434
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
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?
Kod:
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

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
510
Excel Vers. ve Dili
Microsoft Office 2013-2016-2019 tr
Teşekkürler emeğinize sağlık.
 

metince54

Altın Üye
Katılım
9 Aralık 2009
Mesajlar
134
Excel Vers. ve Dili
Office 2016 TR 64 Bit
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
 
Üst