Sub format_this()

Sheets("test").Activate

Dim c As Range


For Each c In Range("B5:B24")
    If c = "1M-3M" Or c = "Объем" Then
    c.Interior.Color = vbBlue
    End If
    
    Next c


End Sub

Sub zero_format()

If Range("B6").Value = 0 Then
Range("C6").Select
    Selection.Style = "Comma"
Else
    Range("C6").Select
    Selection.Style = "Percent"
    Selection.NumberFormat = "0.00%"

End If

If Range("B8").Value = 0 Then
Range("C8").Select
    Selection.Style = "Comma"
Else
    Range("C8").Select
    Selection.Style = "Percent"
    Selection.NumberFormat = "0.00%"

End If

End Sub

Private Sub CommandButton1_Click()
If ComboBox1.Value = "Без_изменений" Then Application.Run "предыдущий_расчет"
If ComboBox1.Value = "Снижение" Then Application.Run "menos"

Sub menos()

Range("HO9").Value = Range("HO8").Value - TextBox.Value

End Sub

Sub test()
FilePath = "O:\Exchequer\Sotrudniki\Demin\123.xls"
ThisWorkbook.SaveCopyAs (FilePath)
End Sub

Sub pivottable1()
Sheets("PivotTable").PivotTables("PivotTable1").PivotCache.Refresh
Sheets("PivotTable").PivotTables("PivotTable1").PivotFields("DATE_PROLONGATION").ClearAllFilters
Dim StDate As Date: StDate = [N2]
Dim EndDate As Date: EndDate = [P2]
Dim dt As Date
With ActiveSheet.PivotTables("PivotTable1").PivotFields("DATE_PROLONGATION")
For i = 1 To .PivotItems.Count
    dt = Format(.PivotItems(i), "mm.dd.yyyy")
    If dt < StDate Or dt > EndDate Then .PivotItems(i).Visible = False Else .PivotItems(i).Visible = True
Next
End With
End Sub

Sub autofilter()
Dim StDate As Long: StDate = [H2]
Dim EndDate As Long: EndDate = [I2]
           Range("B1" & Rows.Count).autofilter DATE_PROLONGATION, ">=" & [H2].Value2, xlAnd, "<=" & [I2].Value2
End Sub