Hücrelere bağlı makro için yardım

[reflargon]

Merhaba

bir sütündaki hücreleri değiştirdiğimde aynı satırın başka bir sütündaki değerinin, değişikliğin yapıldığı tarihi atamasını sağlamaya çalışıyorum. Denemelerim başarısız oldu. Yardımcı olursanız sevinirim.

ekteki resim ne demek istediğimi anlatır belki. Deneme yanılma yazmaya çalıştığım kod aşağıdaki gibi : (
Teşekkürler..

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 10000
If Intersect(Target, Range("b & i")) Is Nothing Then Exit Sub Else
Next
Range("E & i").Select
ActiveCell.FormulaR1C1 = "=bugun()"
Range("E & i").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("E & i").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub

 

[dEdE]

Merhaba,
Bunu dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
Range("E" & Target.Row).Value = Format(Date, "dd.mm.yyyy")
End Sub

 

[reflargon]

Gerçekten çok teşekkür ederim.. : ) : )
tam istediğim gibi.

 

[dEdE]

Rica ederim.
Güle güle kullanın.

 

[reflargon]

Bununla ilgili bir sorunum daha vardı. Ertesi güne kalan işlerin tarihlerini manuel düzeltmek istediğimde buna müsade etmiyor maalesef. Bunun için bir çözüm var mı acaba?

 

[dEdE]

Merhaba,
Üstadlar çözüm bulurlar mutlaka ama aklıma gelen en hızlı çözüm;bilgisayarın tarihini değiştirmek oldu. Çünkü kod yazacağı tarihi sistem tarihinden alıyor.

 

[ziya]

Merhaba,
Geçii olarak tarih kodunu 1 eksitiniz.
Range("E" & Target.Row).Value = Format(Date - 1, "dd.mm.yyyy")

 

[reflargon]

Merhaba

yukarıdaki sorunun çözümü aşağıdaki şekilde giderilmektedir..

Kolay gelsin..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, [a:a]) Is Nothing Then Exit Sub
ActiveCell.Value = Format(Date, "dd.mm.yyyy")
End Sub