Как создать условие для кнопок?

[segail]

Как создать условие для кнопок?
Например:
Клик по кнопе если лист Excel чистый, то выполняется какое либо действие. Если лист Excel заполнен данными (шрифт, границы или заливка) то действие не выполняется.(действие я пропишу сам)

Private Sub CommandButton1_Click()
Код условия
Код действия
End Sub

И наоборот
Если лист заполнен данными, то при клике по кнопке действие выполняется, если данных нет то действие не выполнимо.

Private Sub CommandButton3_Click()
Код условия
Код действия
End Sub

Или условие прописывается в кнопке?

[doober]

Private Sub CommandButton3_Click()

If IsEmpty(Worksheets(1).UsedRange) Then

MsgBox ("Лист чистый")

Else

MsgBox ("Лист заполнен данными")
End If
End Sub
Где
MsgBox ("Лист чистый") ставишь код выполнения при чистом листе


MsgBox ("Лист заполнен данными") ставишь код выполнения при заполненом листе

[segail]

Благодарю.
Откуда этот знак появился сверху?
Ответ правильный отличный!!!

[segail]

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

Private Sub CommandButton3_Click()

If IsEmpty(Worksheets(1).UsedRange) Then

MsgBox ("Лист чистый")

Else

MsgBox ("Лист заполнен данными")
End If
End Sub
Где
MsgBox ("Лист чистый") ставишь код выполнения при чистом листе


MsgBox ("Лист заполнен данными") ставишь код выполнения при заполненом листе

Не предусмотрел кнопку CommandButton5 которая постоянно находится на листе. Выходит что лист у меня, постоянно заполнен данными. Как теперь выполнить условие, о котором говорилось выше, с учетом данной кнопке.

[doober]

У меня создалось впечатление,что даже не проверил.Читай книгу,ссылку на которую дал в твоей теме Cообщение