помогите пожалуста наити ошибку раньше все работало до сегодняшнего дня, выпалает ошибка 13, вот это выделено желтым цветом (dati = CDate(str))
Sub Реестр()
Dim str As String, dat1 As Date, dat2 As Date, dati As Date
n = Range("Лист_2!A1")
Range("Реестр!A11:M1010").ClearContents 'очистить все в этом диапазоне
str = CStr(Range("Реестр!F4"))
If str = "" Then
MsgBox ("Не определена дата начала периода")
Exit Sub
End If
dat1 = CDate(str)
str = CStr(Range("Реестр!I4"))
If str = "" Then
MsgBox ("Не определена дата конца периода")
Exit Sub
End If
dat2 = CDate(str)
ir = 0
For i = 1 To n
For j = 1 To 160
str = CStr(Range("АКП!G10").Offset(i, (j - 1) * 3))
If str = "" Then GoTo 2
dati = CDate(str)
If dati < dat1 Or dati > dat2 Then GoTo 2 'дата вне диапазона
Range("Реестр!H10").Offset(ir, 0).Select
ir = ir + 1
Range("Реестр!A10").Offset(ir, 0).Value = Range("Лист_2!A10").Offset(i, 0)
Range("Реестр!B10").Offset(ir, 0).Value = Range("Лист_2!B10").Offset(i, 0)
Range("Реестр!E10").Offset(ir, 0).Value = dati
si = Range("АКП!H10").Offset(i, (j - 1) * 3)
si_op = Range("Лист_2!S10").Offset(i, 0)
d_s = si - si_op
Range("Реестр!H10").Offset(ir, 0).Value = d_s
Range("Реестр!F10").Offset(ir, 0).Value = si 'Range("Лист1!H10").Offset(i, (j - 1) * 3)
Range("Реестр!G10").Offset(ir, 0).Value = si_op 'Range("Лист_2!P10").Offset(i, 0)
Range("Реестр!D10").Offset(ir, 0).Value = "АКП"
Range("Реестр!C10").Offset(ir, 0).Value = Range("Лист_2!C10").Offset(i, 0)
Range("Реестр!I10").Offset(ir, 0).Value = Range("Лист_2!R10").Offset(i, 0)
Range("Реестр!J10").Offset(ir, 0).Value = Range("Лист_2!H10").Offset(i, 0)
Range("Реестр!K10").Offset(ir, 0).Value = Range("Лист_2!I10").Offset(i, 0)
Range("Реестр!L10").Offset(ir, 0).Value = Range("АКП!I10").Offset(i, (j - 1) * 3)
If si_op > si Then
Range("Реестр!M10").Offset(ir, 0).Value = "замена или переплата"
End If
2: Next j
1: Next i
Range("Реестр!H11").Select
End Sub
