[حل شده] ثبت یک عدد خاص در یک سلول به شرط پر شدن سلول دیگر

[fokker]

سلام خدمت تمامی اساتید عزیز
یک سوال داشتم
می خوام ببینم چگونه می شود که اگر در یک سلول خاص هر عددی ثبت شود در سلولی دیگر به صورت اتوماتیک مثلا عدد 24 ثبت شود
فرض کنید در سلول b2 یک عدد نوشته شود سپس در سلول d2 عدد 24 اتومات درج گردد

[generalsamad]

با سلام
فایل ضمیمه را مشاهده کنید

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("B:B")) Is Nothing Then
        On Error Resume Next
        If Target <> "" Then
            tr = Target.Row
            Range("D" & tr) = 24
        End If
    End If
End Sub