Если ВСЕ ячейки U84, U86, U88, U90, U92 заполнены( любым символом ) , то открыть диалог выбора файла для открытия.
Код
Application.GetOpenFilename
В этом примере он открывает диалог все 5-ь раз, если условия соблюдены.. Как обозначить, что открыть диалог только при соблюдении всего условия ? ( т.е. заполнены все ячейки ) А если хоть одна из пяти пустая - выполнить
Код
rCell.Interior.ColorIndex = 3
Спасибо.
Код
Sub StandartProverka()
Dim rCell As Range
For Each rCell In Range("U84, U86, U88, U90, U92")
If rCell = "" Then
rCell.Interior.ColorIndex = 3
Else
Application.GetOpenFilename
End If
Next
End Sub
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.