Hücreye veri girildiğinde veri giriş tarihini yazdırma

[zeczec]

Ekteki örnekte aşağıdaki kodu kullanarak E;F sütunlarına ok değeri girildiğinde I sütununa veri giriş tarihinin yazılmasını sağlıyorum ancak yanlışlıkla ok lenen bir sütunda "OK" değeri silindiğinde yazdırılan tarihinde silinmesini istiyorum acaba nasıl yapabilirim?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E3:F65536]) Is Nothing Then Exit Sub
For X = 3 To [F65536].End(3).Row
If Cells(X, "I") = "0" Or Cells(X, "I") = "" Then If Cells(X, "F") = "OK" Then Cells(X, "I") = Now()
Next X
For Y = 3 To [E65536].End(3).Row
If Cells(Y, "I") = "0" Or Cells(Y, "I") = "" Then If Cells(Y, "E") = "OK" Then Cells(Y, "I") = Now()
Next Y
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E3:F65536]) Is Nothing Then Exit Sub
If Target.Column = 5 Then
    Atla = 4
Else
    Atla = 3
End If
If Target > "" Then
    Target.Offset(0, Atla) = Now
Else
    Target.Offset(0, Atla) = ""
End If
End Sub

 

[toybuklu]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E3:F65536]) Is Nothing Then Exit Sub
If Target.Column = 5 Then
    Atla = 4
Else
    Atla = 3
End If
If Target > "" Then
    Target.Offset(0, Atla) = Now
Else
    Target.Offset(0, Atla) = ""
End If
End Sub

ya arkadaşlar bu konu çok önemli benim için ben B hücresine veri girilince A hücresine tarih atmasını istiyorum ama B hücresi silinince tarihde silinmeli.. yalnız bu verdiğiniz kodları denedim. elle sayısal yada harf olarak veri girerseniz oluyor.. bende b hücresinide besleyen formuller olduğundan oradaki değerleri algılamayıp tarih atmıyor acil yardım lütfennnn...

 

[toybuklu]

Hücreye veri girildiğinde yan hücreye veri giriş tarihini yazdırma

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E3:F65536]) Is Nothing Then Exit Sub
If Target.Column = 5 Then
    Atla = 4
Else
    Atla = 3
End If
If Target > "" Then
    Target.Offset(0, Atla) = Now
Else
    Target.Offset(0, Atla) = ""
End If
End Sub

ya arkadaşlar bu konu çok önemli benim için ben B hücresine veri girilince A hücresine tarih atmasını istiyorum ama B hücresi silinince tarihde silinmeli.. yalnız bu verdiğiniz kodları denedim. elle sayısal yada harf olarak veri girerseniz oluyor.. bende b hücresinide besleyen formuller olduğundan oradaki değerleri algılamayıp tarih atmıyor acil yardım lütfennnn...ÇOK ACİLLLLL

 

[İhsan Tank]

ya arkadaşlar bu konu çok önemli benim için ben B hücresine veri girilince A hücresine tarih atmasını istiyorum ama B hücresi silinince tarihde silinmeli.. yalnız bu verdiğiniz kodları denedim. elle sayısal yada harf olarak veri girerseniz oluyor.. bende b hücresinide besleyen formuller olduğundan oradaki değerleri algılamayıp tarih atmıyor acil yardım lütfennnn...ÇOK ACİLLLLL

Merhaba
kodlarınızı

Private Sub Worksheet_Calculate()

End Sub

bu aralığa yazın.
1 - Bir daha aynı konuda iki farklı konu açmayınız.
2 - Sizin için acil olması önemlidir ama bizim için ise bu mesajların geçe burakılma sebebidir. ACİLLL yazılması
3 - Bir daha büyük harf yazmayın. Form kurallarına uyun.
4 - ya ne demektir_? Sizle biz ahbap falan mıyız da bu şekilde hitap ediyorsunuz_?

 

[toybuklu]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b18:b35]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, 1).ClearContents
Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
Target.Offset(0, 1).Value = Date
End Sub

Çok özür dilerim hocam kusuara bakma.. ancak hep hata alıyorum.. bana kodları komple hazxırlayıp burada paylaşabilirmisiniz. hiç bir yerde bu konu hakkında bilgi bulamadım. amacım şudur ; C hücresinde formullerle toplam alınıyor ve buradaki değer otomatik olarak B hücresine yazılıyor işde burada B hücresine veri geldiğinde A hücresine tarih atmasını istiyorum ayrıca veri silindiğinde tarhinde silinmesini istiyorum. Şöyle bir kod buldum ancak bunda veri silinince tarih silinmiyor ve formulle beslendiğinden tarih atmıyor klavye ile herhangi birşey yazdığımda tarih atıyor.. şimdiden yardımlarınız ve çalışmalarınızı için teşekkür ederim..

 

[İhsan Tank]

Çok özür dilerim hocam kusuara bakma.. ancak hep hata alıyorum.. bana kodları komple hazxırlayıp burada paylaşabilirmisiniz. hiç bir yerde bu konu hakkında bilgi bulamadım. amacım şudur ; C hücresinde formullerle toplam alınıyor ve buradaki değer otomatik olarak B hücresine yazılıyor işde burada B hücresine veri geldiğinde A hücresine tarih atmasını istiyorum ayrıca veri silindiğinde tarhinde silinmesini istiyorum. Şöyle bir kod buldum ancak bunda veri silinince tarih silinmiyor ve formulle beslendiğinden tarih atmıyor klavye ile herhangi birşey yazdığımda tarih atıyor.. şimdiden yardımlarınız ve çalışmalarınızı için teşekkür ederim..

Şu meşhur dosyanızı ekleyin bakalım bir neler istiyorsunuz neye göre bu işlemi istiyorsunuz ezbere iş yapmaya çalışıyoruz

 

[toybuklu]

merhaba hocam ek tabloda EKM11 Sheetindeki kişilere mesai saati girildiğinde kime mesai saati ve tarih yazıldığında kişinin mesai bildirim formuna saati yazacak mesai bildirim formunda mesai başlangıç bitiş satlerini otomatik yazacak tarihi yazacak ana toplu tabloda girdiğim tarih ve saat bilgisiyle form otomatik beslenecek.. yada bu formu ne şekilde ana tablodan besleyebiliriz. başka ne şekilde uygulama yapılabilir. ay sonunda kişilerin mesai bildirim formları print alınıp onaylanacak.. kolayca bu formu nasıl doldurabilirim tek tek uğraşmadan lütfen bana yardımcı olun sadece ilk 35 kişinin formu için 35 sheet açtım sicil bazında yardımlarınız için teşekkurler

dosya 1,5 mb yükleyemiyorum buraya hata veriyor hocam.. benim amatör siteme ftp yaptım .. burdan indirebilirsiniz şimdiden teşekkurler..

www./toybuk.somee.com/mesai_cizelgesi_GENEL.xls

 

[kolkuh]

Bu işlem makro olmadan formüllerle yazılabilir mi?