Private Sub CommandButton3_Click()

Dim objFSO1 As Object, strFileName$, strFilePath$
Set objFSO1 = CreateObject("Scripting.FileSystemObject")

' ссылка на 1 лист книги
Dim sheet1 As Worksheet
Set sheet1 = ActiveWorkbook.Sheets(1)
' ссылка на 2 лист книги
Dim sheet2 As Worksheet
Set sheet2 = ActiveWorkbook.Sheets(2)
' ссылка на 3 лист книги
Dim sheet3 As Worksheet
Set sheet3 = ActiveWorkbook.Sheets(3)

Dim lastrow1 As Long
Dim c As Range

Application.CutCopyMode = False

  avFiles1 = Sheets("Лист2").TextBox1.Text
  strFileName1 = objFSO1.GetFileName(avFiles1)
   Workbooks.Open Filename:=avFiles1
   Set WS_bank = Application.Workbooks(strFileName1)
   
 '***********************************************************

kodTU = Cells(12, 4).Value

WS_bank.Sheets("page").Range("F2").Select
Selection.AutoFilter
WS_bank.Sheets("page").Range("$A$1:$W$500000").AutoFilter Field:=6, Criteria1:=CStr(kodTU)


Set c = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)

i = 16

LastStr_oktmo = sheet3.Cells(1, 1).CurrentRegion.Rows.Count
LastStr_bank = WS_bank.Sheets("page").AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1

For oktmo_i = 2 To LastStr_oktmo

konec = CStr(sheet3.Cells(oktmo_i, 1).Value)
nachalo = CStr(sheet3.Cells(oktmo_i, 1).Value)

        If (Right(konec, 3) = "000") And (Left(nachalo, 2) = CStr(kodTU)) Then
            kod_MO = Left(sheet3.Cells(oktmo_i, 1).Value,     '(CStr(sheet3.Cells(oktmo_i, 1).Value)) 'вычленяю код МО из справочника ОКТМО
            i = i + 1  ' нашел очередное МО, значит нарастил счетчик строк в итоговой таблице
            sheet1.Cells(i, 1).Value = sheet3.Cells(oktmo_i, 2).Value ' переношу название МО из справочника ОКТМО на 1 лист
        'считаю банкоматы *****************
        kol_bank = 0
          ' For ii = 2 To LastStr_bank
          For Each c In Range("A2", Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlCellTypeVisible)
           With c
            tmp = .Value ' ?????????/???????? ? ??????? ??????
     If InStr(tmp, CStr(kod_MO)) > 0 Then kol_bank = kol_bank + 1
    ' If InStr(WS_bank.Sheets("page").Cells(ii, 11).Value, CStr(kod_MO)) > 0 Then kol_bank = kol_bank + 1
     
     End With
                   ' If InStr(WS_bank.Sheets("page").Cells(ii, 11).Value, CStr(kod_MO)) > 0 Then kol_bank = kol_bank + 1
           Next
        sheet1.Cells(i, 5).Value = kol_bank
        ii = 2
        End If
        
      '  For i = 17 To PosStr_oktmo + 17
 
        Next
        '**********************************
'Sheets("Лист2").Visible = True

'  Включаю обновление экрана
    Application.ScreenUpdating = True

Workbooks(strFileName1).Close False

WS_bank.Sheets("page").Range("$A$1:$W$500000").AutoFilter Field:=6, Criteria1:=CStr(kodTU)