Soru Otomatik Tarih Atma Kodu

[officer08]

İyi günler J3 hücresine yazı yazıldığında J7 hücresine otomatik tarih attırmak istiyorum aşağıdaki kodu düzenlemede yardımcı olursanız sevinirim.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("J3")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, 1) = Date
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

 

[Mdemir63]

Selamlar
Deneyiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("J3").Value <> "" Then
Range("J7").Value = Date
Else
Range("J7").Value = ""
End If
End Sub

 

[officer08]

MDemir63 teşekkür ederim oldu ellerine sağlık.

Eğer zahmet olmazsa anlamak için soruyorum. J3 e yazıldığında "KAYITLAR" sayfası K3 e tarih nasıl yazdırırım. Aynı kod üzerinde nasıl bir değişiklik yapılması gerekir

 

[Mdemir63]

Selamlar
Deneyiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Range("J3").Value <> "" Then
    Range("J7").Value = Date
    Sheets("KAYITLAR").Range("K3") = Date
  Else
    Range("J7").Value = ""
    Sheets("KAYITLAR").Range("K3") = ""
  End If
End Sub