=ЕСЛИ(МИН(C2:C3)<ТДАТА();"";1)

Sub analiz()

If Range("C4") = 1 Then
Application.EnableEvents = False
 Call smotrim
 Application.EnableEvents = True
 Range("C2") = 0
 End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

'If Target.Cells.Count > 1 Then Exit Sub
'If IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("P1:P100000")) Is Nothing Then

EE = ActiveCell.Row - 1

If IsEmpty(Cells(EE, 17)) = True Then

R = Cells(EE, 9) & " " & Cells(EE, 10) & " " & Cells(EE, 12) & "х" & Cells(EE, 13) & " - " & Cells(EE, 14) & "х" & Cells(EE, 15) & " марка-" & Cells(EE, 20)
R = LCase(R)
Cells(EE, 53) = R

Dim FoundValue As Range

     With Worksheets("База АоРПИ")
     TT = Cells(EE, 53)
      
       Set FoundValue = .Columns(53).Find(TT, , xlValues, xlWhole)
       If FoundValue Is Nothing Then Exit Sub
       
         .Range(.Cells(FoundValue.Row, 9), .Cells(FoundValue.Row, 22)).Copy Cells(EE, 17)
   
     End With

Else: Exit Sub
End If
End If

End Sub

.Rows(i).Copy
ThisWorkbook.Sheets("Сварка").Cells(x, 1).PasteSpecial xlPasteValues

Sub stroki2()
    Dim Linia As String, RD As String, i As Long, kol_vo As Long, kol_vo2 As Long, x As Long, r As Long, t As Long
    If Not Range("AB24, AB26") Is Nothing Then
     x = 2
      r = 2
       
        Linia = ThisWorkbook.Sheets("АООК").Range("AB26")
        RD = ThisWorkbook.Sheets("АООК").Range("AB24")
        
        With Workbooks("Накопительная ТК.xlsm").Sheets("Сварка")
            kol_vo = .Cells(Rows.Count, 2).End(xlUp).Row
            For i = 1 To kol_vo
                If .Cells(i, 4) = Linia Then
                    If .Cells(i, 2) = RD Then
                    
                        x = x + 1

                   Rows(i).Copy ThisWorkbook.Sheets("Сварка").Cells(x, 1)
                     
                        
                    End If
                End If
            Next
        End With

    End If
    
    Application.EnableEvents = True 'а тут не помешает
End Sub