Здравствуйте!
Не могу сообразить как реализовать в макросе функцию если по условию.
Действующий код:
Помогите пожалуйста поправить код. Заранее спасибо!
Не могу сообразить как реализовать в макросе функцию если по условию.
Действующий код:
Код |
---|
BazaSheet = "Формирование остатков" If (ProtocolSklad.Worksheets(BazaSheet).Cells(48, 5)) Then 'Копируем остатки ProtocolSklad.Worksheets(BazaShee).Cells(40, 4) = BazaBook.Worksheets(BazaSheet).Cells(1, 2) ProtocolSklad.Worksheets(BazaShee).Cells(40, 6) = BazaBook.Worksheets(BazaSheet).Cells(2, 2) End If |
А вот как должно выглядеть в идеале:
Код |
---|
If (ProtocolSklad.Worksheets(BazaSheet).Cells(48, 5)) Then 'Копируем остатки ProtocolSklad.Worksheets(BazaShee).Cells(40, 4) = BazaBook.Worksheets(BazaSheet).Cells(1, 2) ' Оставить как есть эту строку выполняет корректно! А уже после, нужна функция условия: Если ячейка B48 =1, то копирует данные с ProtocolSklad.Worksheets(BazaShee).Cells(40, 6) = BazaBook.Worksheets(BazaSheet).Cells(2, 2) А если ячейка B48 =2, то ProtocolSklad.Worksheets(BazaShee).Cells(40, 6) = BazaBook.Worksheets(BazaSheet).Cells(3, 2) End If |