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

[segail]

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

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

Если вы о формате, то пользователь не сможет поменять формат.
А формат что в ячейках, что в текст боксе один dd.mm.yyyy.

[R Dmitry]

ну тогда сравнение текста тоже подойдет

[doober]

Public Sub dt_dt() '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    'Параметры остатка ==============================================================

Dim i As Integer
For i = 1 To 444
Dim dt, dt1, dt2 As Date
    With Form_SelectDate
        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
            dt = CDate(.TextBox_Дата.Value)
            dt1 = CDate(Sheets("Отчет").[a6].Value)
            
             If IsDate(Sheets("Отчет").Cells(i, 1).Value) Then
            
            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
                    .Label8.Caption = "Фактический остаток на  выбранную дату": .Label7.Caption = "":
                    .TextBox_m1.Visible = False: .TextBox_L.Visible = False:
                    .TextBox_m1.Value = "": .TextBox_L.Value = ""
            Else
                .Label8.Caption = "Конечный остаток " & Sheets("Отчет").[R1] - 1 & " г. на " & DateSerial(Sheets("Отчет").[R1], 1, 1):
                .Label7.Caption = "                          - л.":
                .TextBox_m1.Visible = True: .TextBox_L.Visible = True
                .TextBox3.Value = Sheets("Отчет").[x6].Value
                .TextBox4.Value = Sheets("Отчет").[y6].Value
                If Sheets("Отчет").[x5] < 0 Then .TextBox_L = _
                Abs(Sheets("Отчет").[x5].Value) Else .TextBox_L = Sheets("Отчет").[x5].Value
                If Sheets("Отчет").[x5] < 0 Then .TextBox_m1 = "-"
            
                If .TextBox3.Value = "" Then .ComboBox2.Value = "" Else _
                .ComboBox2.Value = Sheets("Отчет").[t5].Value
            End If
                If .TextBox3.Value = "" Then .ComboBox1.Value = "" Else _
                .ComboBox1.Value = Sheets("Отчет").[z1].Value
    End With
    
 End If
Next
End Sub

[doober]

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

ну тогда сравнение текста тоже подойдет

при чем здесь текст.В столбце запись такая
Январь
1
2
3
.....
Февраль
1
2
В свое время я предлагал вместо слова январь- хранить дату и поменять формат отображения даты

[segail]

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

при чем здесь текст.В столбце запись такая
Январь
1
2
3
.....
Февраль
1
2
В свое время я предлагал вместо слова январь- хранить дату и поменять формат отображения даты

Честно сказать не помню.
Но текстовые значения месяцев, не несут не какого значение для кодов, это просто информация.

[R Dmitry]

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

при чем здесь текст.В столбце запись такая
Январь
1
2
3
.....
Февраль
1
2
В свое время я предлагал вместо слова январь- хранить дату и поменять формат отображения даты

ну проверить на дату я предлагал, что Вы и реализовали, топик стартер хочет проверить текстом я сказал что можно , главное найти соответствие а дата это, или текст большой разницы нету.
хотя мне с датой удобнее, для дата это всегда дата, текст это текст

[segail]

Сообщение от аналитика

этот кусок:

        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 и из цикла долой тоже

Не сталкивался с этим. Как применить конструкцию Select Case?