Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iii As Integer
For iii = 2 To 100
With ActiveSheet
Application.EnableEvents = False
    If Cells(iii, "I").Value <> "" And Cells(iii, "J").Value <> "" And Cells(iii, "K").Value <> "" Then
    End If
    If Cells(iii, "I").Value <> "" And Cells(iii, "J").Value = "" And Cells(iii, "K").Value <> "" Then
    Cells(iii, "J").Value = Cells(iii, "I").Value + Cells(iii, "K").Value
    MsgBox "Предельный срок годности установлен!", vbOKOnly + vbInformation, "Срок Годности"
        ElseIf Cells(iii, "I").Value <> "" And Cells(iii, "J").Value <> "" And Cells(iii, "K").Value = "" Then
        Cells(iii, "K").Value = Cells(iii, "J").Value - Cells(iii, "I").Value
        MsgBox "Количество дней хранения установлено!", vbOKOnly + vbExclamation, "Дней Хранения"
        Else
     Application.EnableEvents = True
    End If
End With
Next

End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("Приемка с технологом").Activate
    If Not Intersect(Target, Range("A:A,I:I,J:J")) Is Nothing Then
    Application.EnableEvents = False
        andcalendar.Show
        If andcalendar.Value = 0 Then
        ActiveCell = ""
        End If
        If andcalendar.Value > 0 Then
        Target = Format(andcalendar.Value, "dd/mm/yy")
End If
End If
    Application.EnableEvents = True

End Sub