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

metince54

Altın Üye
Katılım
9 Aralık 2009
Mesajlar
134
Beğeniler
5
Excel Vers. ve Dili
Office 2016 TR 64 Bit
#1
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,342
Beğeniler
957
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#2
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
508
Beğeniler
1
Excel Vers. ve Dili
Microsoft Office 2013-2016-2019 tr
#5
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
508
Beğeniler
1
Excel Vers. ve Dili
Microsoft Office 2013-2016-2019 tr
#7
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
508
Beğeniler
1
Excel Vers. ve Dili
Microsoft Office 2013-2016-2019 tr
#8
Şimdiden teşekkürler.
 

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
5,342
Beğeniler
957
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#8
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
508
Beğeniler
1
Excel Vers. ve Dili
Microsoft Office 2013-2016-2019 tr
#9
Teşekkürler emeğinize sağlık.
 

metince54

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