Копирование формул - Microsoft Office Excel

PIKA4Y · 21.12.2009, 14:41

Собственно, есть макрос, копирующий все в т.н. базу данных (другой лист).
Нужно чтоб копировалась формула, а не ее значение

Возможно так сделать?

Зарание спс!

EducatedFool · 21.12.2009, 15:06

Замените это:

Код:

    r = bazaDannih.Cells(Rows.Count, 3).End(xlUp).Row + 1
    
    bazaDannih.Cells(r, 2).Value = sotrudnik
    bazaDannih.Cells(r, 3).Value = vchera
    bazaDannih.Cells(r, 4).Value = segodnya
    bazaDannih.Cells(r, 5).Value = vsego

на это:

Код:

  vvod.Range("B3:E3").Copy bazaDannih.Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 4)

Пример файла:

The_Prist · 21.12.2009, 15:08

Или так._____________

PIKA4Y · 21.12.2009, 16:05

Всем СПАСИБО!

21.12.2009, 15:06	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Замените это: Код: `r = bazaDannih.Cells(Rows.Count, 3).End(xlUp).Row + 1 bazaDannih.Cells(r, 2).Value = sotrudnik bazaDannih.Cells(r, 3).Value = vchera bazaDannih.Cells(r, 4).Value = segodnya bazaDannih.Cells(r, 5).Value = vsego` на это: Код: `vvod.Range("B3:E3").Copy bazaDannih.Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 4)` Пример файла: __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Копирование и вставка формул из одной книги в другую	KNatalia	Microsoft Office Excel	5	10.06.2010 13:15
Строка формул	tesla.87	Microsoft Office Excel	3	13.12.2009 16:43
Применение формул	swips	Microsoft Office Excel	2	30.06.2009 14:23
Вывод формул	Влажимир	Общие вопросы Delphi	7	10.03.2008 16:21

21.12.2009, 16:05	#4
PIKA4Y Регистрация: 29.07.2008 Сообщений: 6	Всем СПАСИБО!