[Iska]

при условии что ячейка A1 не заполнена макрос не выполнял свою работу, ( шел переход на End Sub) а пользователю высвечивалось окошко предупреждения о не заполненной ячейки? »

Код:

If Not IsEmpty(Workbooks.Item(…).Worksheets.Item(…).Cells.Item(1, 1).Value) Then
    …
Else
   MsgBox "A1 is empty!"
End If

Если к примеру ячейка A3 пустая то можно ли сделать так, »

Проверяйте аналогично примеру выше.

[camope3]

Iska, Спасибо за совет! С пустыми ячейками разобрался, с всплывающим окошком тоже вот загвоздка з условием если ячейка A1 пустая завершение работы макроса.

If Not IsEmpty(Workbooks.Item(…).Worksheets.Item(…).Cells.Item(1, 1).Value) Then
Else
MsgBox "A1 is empty!"
End Sub
End If
Выкидывает ошибку компиляции, поправте пожалуйста.

[Iska]

Справка по тегам форума

Выкидывает ошибку компиляции, поправте пожалуйста. »

Какую ошибку?

Я предполагал, что Вы немного знакомы с объектной моделью Microsoft Excel. Вместо:

Код:

Workbooks.Item(…).Worksheets.Item(…)

Вы должны были любым способом указать Ваши данные — потребную рабочую книгу и потребный рабочий лист этой книги.

[camope3]

С этим у меня проблем нету книгу и лист я указал естественно (не хотел замусоривать форум своими названиями), а ошибка: Block If без End If что как бы логично, только как это обойти? Повторюсь что все работает кроме этой зацепки.

[camope3]

Проблема решена:

Код:

Sub User() 
If Range("A1") = "" Then 
MsgBox "Не заполнены ключевые данные!!!" 
End If 
If Range("A1") <> "" Then 
If Range("A2") <> "" Then 
Range("A2") = Range("A2") * Range("A1") / 10 
End If 
If Range("A3") <> "" Then
Range("A3") = Range("A3") * Range("A1") / 10 
End If 
End If 
End Sub

Никак не мог догадаться как сделать так, что бы не выполнялась процедура расчета при пустой ячейке А1. Оказалось что нужно было заключить в условие всю процедуру.