Ячейка с текстом, ячейка без текста.

[segail]

Подскажите как выполнить код при условие если текст ячейки А10=""

Private Sub CommandButton6_Click()
        If (Range("A10").Text) <> (Sheets("Отчет").Range("N1").Text) Then
        MsgBox "Данный вид топлива не соответствует виду топлива указанного в базе данных.", 64
Else
        If Range("A10").Text = "" Then
' Код
        End If
        End If
End Sub

[doober]

 
Private Sub CommandButton6_Click()
If Range("A10").Text = "" Then

' Код
Else
        If (Range("A10").Text) <> (Sheets("Отчет").Range("N1").Text) Then
        MsgBox "Данный вид топлива не соответствует виду топлива указанного в базе данных.", 64

       

        End If
        End If
End Sub

[segail]

Немного не так сформулировал. В том числе код должен выполняться и при условие если тексты данных ячеек одинаковы.

[SAS888]

А что Вам мешает проверять 2 условия?

Private Sub CommandButton6_Click()
    If IsEmpty([A10]) Or [A10] = Sheets("Отчет").[N1] Then
        'Код
    Else
        MsgBox "Данный вид топлива не соответствует виду топлива указанного в базе данных."
    End If
End Sub

[Teslenko_EA]

Здравствуйте segail.
два условия можно проверять и подобной конструкцией:

Private Sub CommandButton6_Click()
    If IsEmpty([A10]) Then
        'Код
    ElseIf [A10] = Sheets("Отчет").[N1] Then
    Else
        MsgBox "Данный вид топлива не соответствует виду топлива указанного в базе данных."
    End If
End Sub

Евгений.

[segail]

Спасибо Евгений.