Hücreye değer girince makronun çalışması

[hadessa]

Merhaba arkadaşlar;
Aşağıdaki makroya göre, “B3-B100” deki hücrelere tarih girildiğinde “J3-J100” deki hücrelere yazıyla günü veriyor. Fakat makro, belgeyi kapatıp tekrar açınca devreye giriyor. Bana gereken, hücreye tarih girince makronun çalışması ve günü hemen vermesi. Makrodaki gerekli değişiklik hakkında yardımcı olabilir misiniz? Teşekkürler.
Not: Excel formülü veya hücre biçimlendirme çözümlerini biliyorum fakat mutlaka makro kullanmam gerekiyor.

Sub Autpen()
For i = 3 To 100
Cells(i, "j") = Format(Cells(i, "b"), "dddd")
Next
End Sub

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [b3:b100]) Is Nothing Then Exit Sub
    If VBA.IsDate(Target) Then Cells(Target.Row, 3) = Format(Target, "dddd")
End Sub

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız B3:B100 arasına tarih girdiğinizde J sütununa günü yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3:B100")) Is Nothing Then Exit Sub
If Target = "" Then Target.Offset(0, 8) = ""
If IsDate(Target) = True Then
    Target.Offset(0, 8) = Format(Target, "dddd")
End If
End Sub

 

[hadessa]

Yardımlarınız için çok teşekkür ederim.