otomatikkayıt

Elimde çalışma sayfamın kod bölümünde kullanmış olduğum bir kod var ufak bir değişiklik yapmam gerek yardımcı olabilirseniz sevnirim. Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("HR7:HR30")) Is Nothing Then Exit Sub If Target.Value <>...