Автоматическое копирование значений ячеек

[vater]

Здравствуйте.
Проблема заключается в том, что ручное копирование значения, или, просто, прописывание значений слишком долгое занятие, да и есть шанс ошибки. Хочется узнать, есть ли возможность копировать значения из, например, ячеек А1:В3 (там ведется расчет) в (А10:В12) + 1, то есть чтобы при нажатии на кнопку или "расширении формулы" из фиксированных ячеек, значения копировались в ячейки на 1 ниже предыдущей?
Надеюсь в приложенной книге достаточно описания.

[IKor]

Не очень понятно что и куда вы хотите переносить...
На первый взгляд, Вам подходит очевидная формула для ячейки F102: =ОКРУГЛ(J4*100;0)

Однако, судя по всему Вы хотите возвращать значения не в одну, а в ряд ячеек в зависимости от некоторого условия ("нажатия на кнопку" ). В этом случае можно рекомендовать использовать единую формулу для всего ряда результатов расчетов, которая будет возвращать либо расчетные, либо пустые значения в зависимости от некоторого условия...

P.S. Уточните, пожалуйста, что для Вас исходные данные и какой результат Вы хотите получить - нарисуйте руками.

[Poltava]

Полагаю как то так но уточнить задание конечно хотелось бы

[vater]

Полагаю как то так но уточнить задание конечно хотелось бы

Да, именно так.
Извините, я полагаю вы сделали это через встроенный язык программирования?

Код Выделить Развернуть

Option Explicit
Option Private Module
Sub ÇàïèñàòüÇíà÷åíèÿ()
Dim LastRow As Long
LastRow = Range("F" & Rows.Count).End(xlUp).Row
Cells(LastRow + 1, 6).Value = WorksheetFunction.Round(Range("J3").Value * 100, 0)
Cells(LastRow + 1, 7).Value = WorksheetFunction.Round(Range("J4").Value * 100, 0)
Cells(LastRow + 1, 8).Value = WorksheetFunction.Round(Range("J5").Value * 100, 0)
End Sub


или я не там смотрю?

[ShAM]

Вы зрите прямо в корень. Язык программирования Visual Basic for Applications - сокращенно VBA.