Private Sub CommandButton2_Click() 
'èçìåíåíèå äàííûõ â áàçå 
With Application:  .Calculation = xlManual: End With
Dim iNomerDoc As String
Dim iFoundRng As Range
Dim iDate As String
Dim iFoundDate As Range
iNomerDoc = Me.TextBox1.Text
   If Me.TextBox1 = "" Then
       MsgBox "Ââåäèòå È-êîä îáúåêòà!", 48, "Îøèáêà"
      Me.TextBox1.SetFocus
End If
 Set iFoundRng = Range("d:d").Find(What:=iNomerDoc, LookIn:=xlFormulas, LookAt:=xlWhole)
 If Not iFoundRng Is Nothing Then
   iDate = Me.ComboBox1.Value
     If Me.ComboBox1 = "" Then
 MsgBox "Ââåäèòå äàòó çàåçäà!", 48, "Îøèáêà"
   Me.ComboBox1.SetFocus
     End If
   Set iFoundDate = Range("1:1").Find(What:=CDate(iDate), LookIn:=xlFormulas, LookAt:=xlWhole)
     iFoundRng.Offset(0, iFoundDate.Column - 4) = Me.TextBox3
  Else
   MsgBox "È-êîä îáúåêòà ¹" & iNomerDoc & " â áàçå íå íàéäåí!" & Chr(10) & "Ïðîâåðüòå ïðàâèëüíîñòü ââîäà È-êîäà îáúåêòà!", 48, "Îøèáêà"
 Me.TextBox1.SetFocus
   End If
With Application:  .Calculation = xlAutomatic: End With
End Sub