[ÇÖZÜLDÜ] Hücredeki İsmi silince tarihinde otomatik olarak silinmesi

[ersoyalan]

Merhaba,

Hücredeki İsmi manuel olarak silmek istediğim zaman tarihinde silinmesini istiyorum.Koda nasıl bir ilave etmek gerekir.



Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Value <> "" Then Target.Offset(0, 1).Value = Now
Son:
End Sub


Syg,
E.ALAN

 

[veyselemre]

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target.Value <> "" Then
        Target.Offset(0, 1).Value = Now
    Else
        Target.Offset(0, 1).Value = ""
    End If
Son:
End Sub

 

[ersoyalan]

Hocam kodu denedim fakat olmad&#305;..Rica etsem &#246;rnek bir dosya eklermisiniz.

E.ALAN

 

[ersoyalan]

Hocam merhaba problemi &#231;&#246;zd&#252;m kendi hatamm&#305;&#351;.

Kusura bakmay&#305;n.

 

[veyselemre]

Birle&#351;tirilmi&#351; h&#252;crelerden kaynaklanan biraz sorun olabilir, target.value de&#287;erini target.text lde&#287;i&#351;tirin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target.Text <> "" Then
        Target.Offset(0, 1).Value = Now
    Else
        Target.Offset(0, 1).Value = ""
    End If
End Sub

 

[ersoyalan]

Te&#351;ekk&#252;rederim hocam

&#304;yi &#231;al&#305;&#351;malar.

E.ALAN