условие на равенство дат

[аналитика]

Еще раз попробую - номер ошибки какой?
у меня нет ошибок (офис 2010) и ничего не происходит...

запаролированную книжецу прикрепил ты, молодец!
формулу в A6 "=ДАТА(R1;1;1)" я бы заменил на "=ДАТА(R1;1;строка()-5)"

[segail]

запаролированную книжецу прикрепил ты, молодец!

Просто забыл 1111
Разкомментировайте

'...
'dt2 = CDate(Sheets("Отчет").Cells(i, 1).Value)
    If dt <> dt1 Then
    'If dt = dt2 Then
    '    .TextBox3.Value = Sheets("Отчет").Cells(i, 24).Value
    '    .TextBox3.Value = Sheets("Отчет").Cells(i, 25).Value
    '    If .TextBox3.Value = "" Then .ComboBox2.Value = "" Else _
    '    .ComboBox2.Value = Sheets("Отчет").Cells(i, 20).Value
    'End If
'...

Откройте календарь и измените дату

[doober]

Вопросы есть?Я думаю все понятно

[аналитика]

правильно тебе подсказывают...
некоторые замечания:
Dim dt, dt1, dt2 As Date - только последняя переменная Date, первые две Variant
зачем в цикле делать то, что от счетчика цикла не зависит (я думаю, что так медленно загружается?) переменные dt, dt1 вынеси перед циклом.
этот кусок:

        If Sheets("Отчет").[N1].Value = "Дтл" Then .ComboBox1.RowSource = "=V_ГСМ!$H$17:$H$20" 'Дтл
        If Sheets("Отчет").[N1].Value = "АИ_76" Then .ComboBox1.RowSource = "=V_ГСМ!$H$22:$H$25" 'АИ-76
        If Sheets("Отчет").[N1].Value = "АИ_80" Then .ComboBox1.RowSource = "=V_ГСМ!$H$27:$H$27" 'АИ-80
        If Sheets("Отчет").[N1].Value = "АИ_92" Then .ComboBox1.RowSource = "=V_ГСМ!$H$29:$H$30" 'АИ-92
        If Sheets("Отчет").[N1].Value = "АИ_95" Then .ComboBox1.RowSource = "=V_ГСМ!$H$32:$H$33" 'АИ-95

замени на конструкцию Select Case и из цикла долой тоже

да и дальше тоже самое, разбираться в логике алгоритма нет сил...

смотрю форму с календарем - парень ты отчаянный, строго...
может тебе его заменить на встроенный календарь?

[segail]

правильно тебе подсказывают...
некоторые замечания:
Dim dt, dt1, dt2 As Date - только последняя переменная Date, первые две Variant

Ну а если без переменных, все равно ошибка…

[doober]

так и будет ,когда вместо даты название месяца-например январь

PS.Лень искать вашу тему начала года.где я вам говорил о датах в отчете.Вот оно и аукается

[segail]

Сообщение от doober

так и будет ,когда вместо даты название месяца-например январь

PS.Лень искать вашу тему начала года.где я вам говорил о датах в отчете.Вот оно и аукается

Я так понимаю, сбой происходит из-за месяцев, которые проставлены в столбце 1?

[R Dmitry]

да скорее всего
поставьте проверку на дату в ячейке и если не дата то next
if IsDate(Sheets("Отчет").Cells(i, 1).Value)=false then
next i
else
поехали как раньше

[segail]

Сообщение от R Dmitry

да скорее всего
поставьте проверку на дату в ячейке и если не дата то next

Ну а если игнорировать условие равенства дат,

If CDate(.TextBox_Дата.Value) = CDate(Sheets("Отчет").Cells(i, 1).Value) Then

и создать условие на равенство текстов?

If .TextBox_Дата.Text = Sheets("Отчет").Cells(i, 1). Text Then

[R Dmitry]

Сообщение от segail

Ну а если игнорировать условие равенства дат,

If CDate(.TextBox_Дата.Value) = CDate(Sheets("Отчет").Cells(i, 1).Value) Then

и создать условие на равенство текстов?

If .TextBox_Дата.Text = Sheets("Отчет").Cells(i, 1). Text Then

можно и текст но учтите что в VBA дата отображается по разному поэтому надо полное соответствие и еще не забудьте что пользователи могут в текст бокс дату вносить по разному, я не заглядывал в ваш файл, но данные лучше заполнять через календарь (не знаю у вас так или нет)