تفضل يا أخي وحبيبي أستاذ ياسر العزيزهذا الكود
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
For T = 2 To 6
If Cells(T, 2) = "" Then Cells(T, 3) = "": Exit Sub
If Cells(T, 2) > "" Then
Cells(T, 3).Value = Cells(T, 2).Value + 30
End If
Next
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub