Private Sub CommandButton1_Click()

Dim day, mth, year, st, fin As String
Dim str As LongPtr
Dim strs As Range
Dim strs2 As Range
Dim itogoA As String


day = UserForm1.ComboBox1.Text
mth = UserForm1.ComboBox2.Text
year = UserForm1.ComboBox3.Text
st = UserForm1.ComboBox4.Text
fin = UserForm1.ComboBox5.Text
itogoA = day & "." & mth & "." & year
'MsgBox itogoA
'MsgBox itogoB

For str = 26000 To 1 Step -1
        If ((Cells(str, 1) = itogoA) And (Cells(str, 2) = st)) Then Set strs = Range(Cells(str, 1), Cells(str, Columns.Count))
            If strs2 Is Nothing Then Set strs2 = strs Else Set strs2 = Union(strs2, strs)
     Next str
      

strs2.Select
ActiveSheet.Shapes.AddChart2
Unload UserForm1
End Sub

itogoA = day & "." & mth & "." & year
itogoB = st

For i = 1 To n
    cities_revenue(i, 1) = ActiveWorkbook.Worksheets(i).Name ' в массив заносится название листа
    
    row_num = 1 ' счетчик строк  на листе 
    Do Until ActiveWorkbook.Worksheets(i).Left(Cells(row_num, 1), 1) = " "
        row_num = row_num + 1
    Loop
    
Next i

Function Five(amount As Double) As Double
Select Case amount
Case Is > 1000000
    Five = 0.05 * amount
Case Is < 1000000
    Five = 0
End Select
End Function

If amount > 1000000 And status = "Постоянный" Then Five = 0.05 * amount

Sub 123()
Worksheets("Лист1").Unprotect  'открыть лист
Dim rg As Range
Set rg = Range([a5], Cells(Rows.Count, 1)).SpecialCells(2)
rg.Offset(0, 16).FormulaR1C1 = "=VLOOKUP(RC1,'[Сводная_777.xlsm]Ñâîäíûé'!R3C1:R5016C17,17,FALSE)"
Worksheets("Лист1").Protect  'закрыть лист
End Sub

Dim rg As Range
  Set rg = Range([a5], Cells(Rows.Count, 1)).SpecialCells(2)
  rg.Offset(0, 16).FormulaR1C1 = "=VLOOKUP(RC1,'[Сводная_777.xlsm]Сводный'!R3C1:R5016C17,17,FALSE)"

Sub Block()
If Range("Q13").Value = "Согласовано" Then
'MsgBox Range("Q13").Value
Range("C13").Locked = True
End If
End Sub

Set rg = Range([a12], Cells(Rows.Count, 1)).SpecialCells(2)

If Not IsEmpty(Cells(12, 1)) Then

Sub Кнопка3_Щелчок()
If Not IsEmpty(Cells(12, 1)) Then
Range("Q12").Formula = "=VLOOKUP(A12,'[Сводная_777.xlsm]Сводный'!$A$3:$Q$5016,17,FALSE)"
End If
If Not IsEmpty(Cells(13, 1)) Then
Range("Q13").Formula = "=VLOOKUP(A13,'[Сводная_777.xlsm]Сводный'!$A$3:$Q$5016,17,FALSE)"
End If
If Not IsEmpty(Cells(14, 1)) Then
Range("Q14").Formula = "=VLOOKUP(A14,'[Сводная_777.xlsm]Сводный'!$A$3:$Q$5016,17,FALSE)"
End If
End Sub