Вывод в ячейки значения без формул

[seergy]

Добрый день.
Ситуация такая.
Есть табличка которая заполняется формулами (впр, сцепить, если, то " " и др..) Как сделать макрос, чтобы копировались на другой лист только цифры и текстовые значения без формул, а при определённых других(новых) условиях расчёта добовлялись новые значения расчёта ниже. А старый отчёт расчёта (табличка) открывался в ворде как таблица ворд, а не вложенная таблица эксел.
С уважением...

[VictorM]

Есть такое хороше дело:Правка>Специальная вставка>Значения.
и попробуйте включить макрорекордер.

[aks_sv]

Добрый день.
Ситуация такая.
Есть табличка которая заполняется формулами (впр, сцепить, если, то " " и др..) Как сделать макрос, чтобы копировались на другой лист только цифры и текстовые значения без формул, а при определённых других(новых) условиях расчёта добовлялись новые значения расчёта ниже. А старый отчёт расчёта (табличка) открывался в ворде как таблица ворд, а не вложенная таблица эксел.
С уважением...

В редакторе VBA создаем модуль, в него пишем функцию

Код: Выделить всё

Function Вставка()
Range("A9:E9").Value = Worksheets("Лист1").Range("A9:E9").Value
End Function

В Лист2 в редакторе VBA вставляем

Код: Выделить всё

Private Sub Worksheet_Activate()
Вставка
End Sub

Теперь при открытии листа "Лист2" будут перенесены данные с "Лист1"

[aks_sv]

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

Ответил только на первую часть вопроса, вторую не понял.

[seergy]

Ответил только на первую часть вопроса, вторую не понял.

Уважаемый coder есть макрос который экспортирует выделенный диапозон в ворд но как файл эксель в ворде, который можно открыть и отредактировать, напр формулы. задачы в том чтобы в ворд вставлял например текст в формате RTF. Я не програмест но много понимаю когда есть пример, даже теории знаю постолько поскольку
С уважением seergy///

[seergy]

В редакторе VBA создаем модуль, в него пишем функцию

Код: Выделить всё

Function Вставка()
Range("A9:E9").Value = Worksheets("Лист1").Range("A9:E9").Value
End Function

В Лист2 в редакторе VBA вставляем

Код: Выделить всё

Private Sub Worksheet_Activate()
Вставка
End Sub

Теперь при открытии листа "Лист2" будут перенесены данные с "Лист1"

не работает....

[VictorM]

не работает....

да нет, работает.
Может Вы выложите (для полного понимания вопроса) файл с готовым примером, хотя бы сделанным вручную, и Вашим макросом. А то, например

а при определённых других(новых) условиях расчёта добовлялись новые значения расчёта ниже. А старый отчёт расчёта (табличка) открывался в ворде как таблица ворд, а не вложенная таблица эксел.

как то смутновато понимается

[aks_sv]

seergy,

не работает....

Откройте Лист1, а затем Лист2

А вторую часть вопроса так и не понял ;((
Может пример с макросом и конечным результатом выложите?

[seergy]

seergy,


Откройте Лист1, а затем Лист2

А вторую часть вопроса так и не понял ;((
Может пример с макросом и конечным результатом выложите?

См.файл с макросом...
С уважением....

[seergy]

Да нужно чтобы сохранялся формат и шир. высота столбцов. и копировал в объед ячейки с выравниванием