проверка введены ли данные....

[brans]

Уважаемые форумчане и новички!!!!! Я начала писать работу на VBA, сделала форму, через неё данные попадают на лист, нужно проверить есть ли данные в форме и если есть ввести, а если нет вывести сообщение, например: ДАТА НЕ ВВЕДЕНА. я написала к ней код, но он не работает, посмотрите, пожалуйста, что не так. ничего придумать не могу...(((
и ещё...там де на листе ПРОДАМ, есть форма с календарём для введения даты, но она тоже не работает(((( я совсем запуталась, жду помощи...

[VictorM]

ДАТА НЕ ВВЕДЕНА. я написала к ней код, но он не работает

Работает, только переместите его ниже, после то как присваиваете значения своим переменным. (После С = .TextBox8.Text)
А так у Вас проверка происходит раньше, чем им присваиваются значения.
С календарем - чуть позже...

[brans]

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

Работает, только переместите его ниже, после то как присваиваете значения своим переменным. (После С = .TextBox8.Text)
А так у Вас проверка происходит раньше, чем им присваиваются значения.
С календарем - чуть позже...

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

[brans]

ну вот, я сделала так как Вы сказали, только опять ошибка
С = .TextBox8.Text
End With
If Н = "" Then MsgBox "Не введен номер", vbCritical, "Ошибка": Exit Sub
If Д = "" Then MsgBox "Не введена дата ", vbCritical, "Ошибка": Exit Sub
If Ф = "" Then MsgBox "Не введены фамилия имя и отчество ", vbCritical, "Ошибка": Exit Sub
If А = "" Then MsgBox "Не введен адрес ", vbCritical, "Ошибка": Exit Sub
If О = "" Then MsgBox "Не введена общая площадь ", vbCritical, "Ошибка": Exit Sub
If Ж = "" Then MsgBox "Не введена жилая площадь ", vbCritical, "Ошибка": Exit Sub
If Р = "" Then MsgBox "Не введено состояние ремонта", vbCritical, "Ошибка": Exit Sub
If Ц = "" Then MsgBox "Не введена цена ", vbCritical, "Ошибка": Exit Sub
If С = "" Then MsgBox "Не введена дата ", vbCritical, "Ошибка": Exit Sub
Dim cell As Range: Set cell = [a65000].End(xlUp).Offset(1)
With Sheets("Продам")
.Cells(Row, 1).Value = Н


в ошибку выделяет: Dim cell As Range

[VictorM]

Проверку можно после End With, вот так :

With UserForm2
        Н = .TextBox1.Text
        Ф = .TextBox3.Text
        А = .TextBox4.Text
        О = .TextBox5.Text
        Ж = .TextBox6.Text
        Р = .ComboBox1
        Ц = .TextBox7.Text
        С = .TextBox8.Text
    End With
    If Н = "" Then MsgBox "Не введен номер", vbCritical, "Ошибка": Exit Sub
    If Д = "" Then MsgBox "Не введена дата ", vbCritical, "Ошибка": Exit Sub
     If Ф = "" Then MsgBox "Не введены фамилия имя и отчество ", vbCritical, "Ошибка": Exit Sub
     If А = "" Then MsgBox "Не введен адрес ", vbCritical, "Ошибка": Exit Sub
      If О = "" Then MsgBox "Не введена общая площадь ", vbCritical, "Ошибка": Exit Sub
       If Ж = "" Then MsgBox "Не введена жилая площадь ", vbCritical, "Ошибка": Exit Sub
        If Р = "" Then MsgBox "Не введено состояние ремонта", vbCritical, "Ошибка": Exit Sub
         If Ц = "" Then MsgBox "Не введена цена ", vbCritical, "Ошибка": Exit Sub
          If С = "" Then MsgBox "Не введена дата ", vbCritical, "Ошибка": Exit Sub

[VictorM]

Dim cell As Range

оставьте на месте))
Уберите сверху только проверку
У меня все работате, проверил...

[brans]

да-да, всё так как Вы и говорили, с этим я разобралась))) спасибо)))

[VictorM]

Где-то так. Смотрите...

[brans]

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

Где-то так. Смотрите...

как всё здорово!!!! Вы просто гений!!!! СПАСИБО ОГРОМНОЕ!!!!!