Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.FormatConditions.Delete
With Target
.FormatConditions.Add Type:=xlExpression, Formula1:=True
.FormatConditions(1).Interior.Color = RGB(209, 241, 218)
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.FormatConditions.Delete
With Target
.FormatConditions.Add Type:=xlExpression, Formula1:=True
.FormatConditions(1).Interior.Color = RGB(209, 241, 218)
End With
End Sub

Private Sub ToggleButton1_Click()
Select Case ToggleButton1
Case False 'когда он не активен
Range("i1").Select
Application.EnableEvents = True
Case True 'когда активен
Range("i1").Select
Application.EnableEvents = False
End Select
With Me.ToggleButton1
        If .Value - True Then
            .Caption = "On"
        Else
            .Caption = "Off"
        End If
    End With
End Sub

Private Sub ToggleButton1_Click()
Select Case ToggleButton1
Case False 'когда он не активен
Range("i1").Select
Application.EnableEvents = True
Case True 'когда активен
Range("i1").Select
Application.EnableEvents = False
End Select
With Me.ToggleButton1
        If .Value - True Then
            .Caption = "On"
        Else
            .Caption = "Off"
        End If
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.FormatConditions.Delete
With Target
.FormatConditions.Add Type:=xlExpression, Formula1:=True
.FormatConditions(1).Interior.Color = RGB(209, 241, 218)
End With
End Sub

Private Sub ToggleButton1_Click()
Select Case ToggleButton1
Case False 'когда он не активен
Range("i1").Select
Application.EnableEvents = True
Case True 'когда активен
Range("i1").Select
Application.EnableEvents = False
End Select
With Me.ToggleButton1
        If .Value - True Then
            .Caption = "On"
        Else
            .Caption = "Off"
        End If
    End With
End Sub

Private Sub CommandButton1_Click()
UserForm1.TextBox1 = ActiveCell.Value
UserForm1.Show
End Sub

Private Sub tgbZero_Click()
Application.ScreenUpdating = False  ' отключаем обновление экрана во время выполнения макроса
i = 2 'номер строки, с которой начнется обработка
    While i <= UsedRange.Rows.Count ' проверяем каждую строчку пока не встретимся с пустым значением т.е. концом списка
        If tgbZero Then ' при нажатом положении кнопка tgbZero принимает значениее True
            Sheets("Складские запасы").tgbZero.Caption = "Отобразить все строки"  'меняем надпись на кнопке, чтобы было понятно, что произойдет в следующий раз
            If Cells(i, 3).Value = 0 And Not IsEmpty(Cells(i, 3)) Then   ' прячем или показываем строки с нулевым значением
                Rows(i).Hidden = True       ' зависимости от значения в ячейке столбца "Кол"
            Else                            ' и в зависимости от положения кнопки
                Rows(i).Hidden = False
            End If
        Else
            Sheets("Складские запасы").tgbZero.Caption = "Скрыть нулевые строки"
            Rows(i).Hidden = False          ' режим отображения всех строк в том числе и с нулем
        End If
        i = i + 1
    Wend
Application.ScreenUpdating = False  ' включаем обновление экрана во время выполнения макроса
End Sub

Private Sub ToggleButton1_Click()
Select Case ToggleButton1
Case False 'когда он не активен
Application.EnableEvents = True
Case True 'когда активен
Application.EnableEvents = False
End Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target
.FormatConditions.Add Type:=xlExpression, Formula1:=True
.FormatConditions(1).Interior.Color = RGB(252, 252, 77)
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target
.FormatConditions.Add Type:=xlExpression, Formula1:=True
.FormatConditions(1).Interior.Color = RGB(252, 252, 77)
End With
End Sub

Private Sub CommandButton2_Click()
Dim iLastRow As Integer
With Sheets("Отгрузки")
ActiveCell.Copy
iLastRow = .Cells(Rows.Count, 1).End(xlUp).Offset(0, 2).PasteSpecial
ActiveCell.Select
SendKeys ("{Enter}")
End With
End Sub

Private Sub CommandButton1_Click()
Calendar.ShowCalendar
End Sub

Private Sub CommandButton2_Click()
Dim iLastRow As Integer
With Sheets("Отгрузки")
  iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
   .Cells(iLastRow, 1) = CDate(TextBox1.Text)
   .Cells(iLastRow, 2) = Me.TextBox2.Text
   .Cells(iLastRow, 3) = Me.TextBox3.Text
   .Cells(iLastRow, 4) = Me.TextBox4.Text
   .Cells(iLastRow, 5) = Me.ComboBox1.Text
   .Cells(iLastRow, 6) = Me.TextBox6.Text
End With
Unload UserForm2
End Sub

Private Sub CommandButton3_Click()
Unload UserForm2
End Sub