hücre değeri değişince değiştirilme zamanı kayıt etmek

[ahmetcin]

merhabalar,
forum kapanmadan önce buna benzer bir soru vardı, fakat kapanıp açıldıktan sonra ilgili soruyu bulamadım. Benim sorum şu şekilde örneğin B sütununda herhangi bir hücrede 123 değeri yazılı ve daha sonra bu 123 değerinin olduğu hücreye klavyeden OK girilince, bu OK olarak yazılma zamanını gün ve saat olarak örneğin C sütununa yazdırmak. Benzer şekilde B2 hücresinin içeriği OK olarak değiştirildiği zamanda da C2 hücresine gene C2 nin değiştirilme zamanını yazdırmak, bunu nasıl yapabiliriz?

 

[BG]

Sayın ahmetcin

yanlış anlamadıysam, daha önce forumdan aldığım, ve arşivlediğim dosya olsa gerek

 

[ahmetcin]

yanlış anlamadıysam, daha önce forumdan aldığım, ve arşivlediğim dosya olsa gerek

evet tam olarak istediğim buydu, ama inceleyince daha doğrusu mantığını öğrenmeye çalıştığım da özellikle 2.sayfa da yazılanların ne anlama geldiğini hiç anlamadım, bunlar hakkında bilgi verebilir misiniz?

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. A sütununa "OK" yazarak deneyiniz.

Uygulanan kodlar;

Sayfa1 kod bölümüne uygulanan kodlar;

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If UCase(Target) = "OK" Then Target.Offset(0, 1) = Now
Son:
End Sub

 

[ahmetcin]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. A sütununa "OK" yazarak deneyiniz.

Uygulanan kodlar;

Sayfa1 kod bölümüne uygulanan kodlar;

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If UCase(Target) = "OK" Then Target.Offset(0, 1) = Now
Son:
End Sub

evet denedim oluyor teşekkür ederim, bir de bunu şu şekilde geliştirebilir miyiz?
A veya B sütunundan herhangi birisine OK yazılınca D sütununa değiştirilme zamanı yazılacak. Göndermiş olduğunuz çalışma sadece A sütunu OK olarak değiştirilince kayıt yapabiliyor.

 

[Korhan Ayhan]

Selamlar,

Bu durumda önerdiğim kodu aşağıdaki şekilde değiştirip denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [A:B]) Is Nothing Then Exit Sub
    If UCase(Target) = "OK" Then Cells(Target.Row, "D") = Now
Son:
End Sub