Sub sdf()
      Dim strFolder$
r:  With Application.FileDialog(msoFileDialogFolderPicker)
          If .Show Then
              strFolder$ = .SelectedItems(1)
          ElseIf MsgBox("Ничего не выбрано. Повторить?", 36, "Ну так как?") = 6 Then
              GoTo r
          Else: Exit Sub
          End If
      End With
      Dim strFile$
      With CreateObject("DSOFile.OleDocumentProperties")
          strFile = Dir$(strFolder & "\*.xls*")
          Do While Len(strFile)
              .Open strFolder & "\" & strFile, , 2
              With .SummaryProperties
                  .Author = "Новый автор"
                  .lastsavedby = "Новый автор"
              End With
              .Save: .Close
              strFile = Dir$
          Loop
      End With
End Sub

    Dim StrSql As String
       Dim rs As ADODB.Recordset

Private Sub cmbFunc_AfterUpdate()
       g_Func = Trim(cmbFunc)
End Sub
Private Sub cmbFunc_Change()
       g_Func = Trim(cmbFunc)
End Sub

Private Sub cmbGRNDate1_AfterUpdate()
        cmbGRNDate1.Value = form_date(cmbGRNDate1.Value)
        g_GRNDate1 = Trim(cmbGRNDate1.Value)
End Sub

Private Sub cmbGRNDate2_AfterUpdate()
        cmbGRNDate2.Value = form_date(cmbGRNDate2.Value)
        g_GRNDate2 = Trim(cmbGRNDate2.Value)
End Sub

Private Sub cmbManfac_AfterUpdate()
       g_Manfac = Trim(cmbManfac)
End Sub

Private Sub txtDateFrom_AfterUpdate()
       txtDateFrom.Value = form_date(txtDateFrom.Value)
       g_DateFrom = form_date(txtDateFrom.Value)
End Sub

Private Sub txtDateTo_AfterUpdate()
       txtDateTo.Value = form_date(txtDateTo.Value)
       g_DateTo = form_date(txtDateTo.Value)
End Sub

Private Sub cmbCancel_Click()
       g_Cancel = True
       Unload Me
End Sub

Private Sub cmbOk_Click()
       Save_params
       Unload Me
End Sub

Private Sub cmbTabN_AfterUpdate()
       g_TabN = cmbTabN.Value
End Sub

Public Sub UserForm_Activate()
       If cmbManfac.ListCount <= 0 Then
           If Not rs Is Nothing Then If rs.State Then rs.Close
           cmbManfac.AddItem "*"
           StrSql = " SELECT DISTINCT usotr.usotr_manfac " & _
                    " FROM zeie:maxmast.usotr usotr"
           Set rs = dbdll.rec(client, Forward, StrSql)
           With cmbManfac
              .List = Application.Transpose(rs.GetRows)
              .AddItem "*", 0
              .Value = g_Manfac
           End With
       End If
        '-------------
       cmbFunc.List = Array("*", "pu10", "pu10", "pu10", "pu12", "nv00", "oe", "nv17", "nv13", _
                            "nv17", "pv12", "nv15", "oe", "nv00", "nv10", "pv12", "nv12", 0)
       '------------
       g_Func = cmbFunc.Value
End Sub
Private Sub cmbTabN_Change()
       FilterFio Array(array("usotr_manfac", g_Manfac))
       Application.SendKeys "{right}"
End Sub
Private Sub cmbTabN_Change()
       Application.SendKeys "{right}"
End Sub
Private Sub FilterFio(criteria As Variant)
       StrSql = " SELECT distinct usotr.usotr_manfac,usotr.usotr_tabnum, " & _
                            "trim(" & IIf(criteria(1) = "*", "usotr.usotr_manfac&' - '&", "") & _
                            "usotr.usotr_tabnum&' - '&usotr.usotr_fio) as F1" & _
                            " FROM zeie:maxmast.usotr usotr order by usotr.usotr_manfac,usotr.usotr_tabnum"
       Set rs = dbdll.rec(client, Forward, StrSql)
       rs.Filter = IIf(criteria(1) = "*", 0, criteria(0) & " like '" & criteria(1) & "'")
       With cmbTabN
           .List = Application.Transpose(rs.GetRows(-1, 0, 2))
           .AddItem "*", 0
           .Listindex = 0
       End With
       rs.Close
End Sub

=ЕСЛИОШИБКА(ПРОСМОТР(;-1/(Таблица10[[#Заголовки];[склад]]:C1=C2)/(Таблица10[[#Заголовки];[товар]]:D1=D2);Таблица10[[#Заголовки];[остаток]]:H1);ЕСЛИОШИБКА(ПРОСМОТР(;-1/(Таблица1[склад]=C2)/(Таблица1[товар]=D2);Таблица1[кол-во]);))

=ЕСЛИОШИБКА(ПРОСМОТР(ИНДЕКС(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));ПОИСКПОЗ(НАИМЕНЬШИЙ(МУМНОЖ(Ч(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));СТРОКА(Т);Т[2]+СТРОКА(Т)%%%)>=ТРАНСП(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));СТРОКА(Т);Т[2]+СТРОКА(Т)%%%)));СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17)))^0);СТРОКА(A1));МУМНОЖ(Ч(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));СТРОКА(Т);Т[2]+СТРОКА(Т)%%%)>=ТРАНСП(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));СТРОКА(Т);Т[2]+СТРОКА(Т)%%%)));СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17)))^0);));СТРОКА(Т);Т[1]);"")

Sub Insert_Rows2()
     Dim lLastRow As Long, li As Long, i As Range ' переменные
     Application.ScreenUpdating = 0 'заморозим экран от изменений
     lLastRow = Cells(Rows.Count, 1).End(xlUp).Row 'переменной присваивается последняя строка
     For li = lLastRow To 3 Step -1 'ПЕРЕБИРАЕМ С последней до первой строки с шагом -1
     With ActiveSheet.UsedRange.Rows(li).Resize(2)
     .Insert 'добавляем 2 строки до нужной нам
         With .Offset(-2)
             .Value = .Offset(2).Resize(1).Value
             .Columns(6) = 0: Intersect(.Cells, [H:H,J:L]) = Empty
             .Cells(1, 1) = .Cells(1, 1) - 10: .Cells(2, 1) = .Cells(1, 1) + 5
             .Columns(2) = Application.Substitute(.Columns(2), "св", Application.Transpose(Array("мз", "об")))
         End With
     End With
     ' если заменить Resize(2) на Resize(1) то будет вставляться только одна строка
     Next li
     Application.ScreenUpdating = 1 'разморозили экран и он обновился
End Sub

ActiveSheet.Range("$A$1:$U$3473").AutoFilter 18, "<=" & Application.EoMonth(Date, -2)

Private Sub Worksheet_Change(ByVal Target As Range)
     With [criteria[#All]]
         If Not Intersect(Target, .Resize(.Rows.Count + 1)) Is Nothing Then _
             [Таблица2[#All]].AdvancedFilter 1, .Rows(1).Resize(Application.CountA(.Columns(1))), 0
     End With
End Sub

=СМЕЩ(AA;ПРОСМОТР(СТРОКА(A1)-1;CC;СТРОКА(AA)-1)-1;СТРОКА(A5)-ПРОСМОТР(СТРОКА(A1)-1;CC);1)

=ПРОСМОТР(СТРОКА(A1)-1;CC;AA)

Private Type POINTAPI
           x As Long
           y As Long
End Type
Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const KEY_PRESSED = &H8000
Private Const KEY_RELEASED = &H1
Private Const VK_LButton = &H1

Sub clickpos()
       Dim i%, curpos As POINTAPI
       GetAsyncKeyState VK_LButton
       Do
           If (GetAsyncKeyState(VK_LButton) And KEY_RELEASED) Then
               GetCursorPos curpos
               [A1].Offset(i) = curpos.x
               [A1].Offset(i, 1) = curpos.y
               i = i + 1
           End If
           Sleep 30
           DoEvents
       Loop Until i = 3
End Sub

Sub F()
      With Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
          .NumberFormat = "general"
          .Replace " ", Empty, xlPart
          .Replace "*-", Empty, xlPart
          .Formula = .Value
      End With
End Sub

Sub upd()
     Dim arr() As Variant
     With Range("C3:C" & Cells(Rows.Count, "C").End(xlUp).Row)
         arr = .Value
         With Intersect(.EntireRow, [I:I])
             .NumberFormat = "general"
             .Formula = arr
             .Replace " ", Empty, xlPart
             .Replace "*-", Empty, xlPart
         End With
     End With
End Sub

=МАКС(ЕСЛИОШИБКА(--ПСТР(A1;СТРОКА($1:$99);СТОЛБЕЦ($A:$L));))