Логика при вставке строки - Microsoft Office Excel

Trimbl · 24.04.2010, 12:58

Не могу доработать макрос NewData так что бы при вставке "Новая дата"
в 13 строке в столбцах 5,6,7, при отсутствии данных было пусто т. е сделать по аналогии с 10 строкой.
Вложение прилагается.

Trimbl · 01.05.2010, 01:11

Люди добрые, где вы? 46 просмотров и все на моем уровне?,- никогда не поверю. Уважаемые кудесники Excel-дуже прошу(умоляю),- гляньте одним глазком.

IgorGO · 01.05.2010, 02:00

замените
Cells(i - 2, 5).FormulaR1C1 = "=IF(ISBLANK(R[-1]C),"""",SUM(R[-" & i - .Row - 1 & "]C:R[-1]C))"
на

Код:

Cells(i - 1, 5).FormulaR1C1 = "=IF(ISBLANK(R[-1]C),"""",SUM(R[-" & i - .Row - 1 & "]C:R[-1]C))"

Trimbl · 01.05.2010, 08:37

Цитата:

Сообщение от IgorGO

замените
Cells(i - 2, 5).FormulaR1C1 = "=IF(ISBLANK(R[-1]C),"""",SUM(R[-" & i - .Row - 1 & "]C:R[-1]C))"
на

Код:

Cells(i - 1, 5).FormulaR1C1 = "=IF(ISBLANK(R[-1]C),"""",SUM(R[-" & i - .Row - 1 & "]C:R[-1]C))"

Шановный IgorGo безмерно благодарен за быстрый ответ тем более, что своей оплошностью отнял Ваше драгоценное время спасибо - земляк

01.05.2010, 02:00	#3
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	замените Cells(i - 2, 5).FormulaR1C1 = "=IF(ISBLANK(R[-1]C),"""",SUM(R[-" & i - .Row - 1 & "]C:R[-1]C))" на Код: `Cells(i - 1, 5).FormulaR1C1 = "=IF(ISBLANK(R[-1]C),"""",SUM(R[-" & i - .Row - 1 & "]C:R[-1]C))"` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
автотекст при вставке....	Окоча Юра	Microsoft Office Word	0	01.03.2010 16:13
Автоматич копирование формулы при вставке строки	Chelentano	Microsoft Office Excel	4	16.07.2009 23:48
Пропала менюшка при вставке... ((	Bu$ter	Microsoft Office Excel	7	23.05.2008 14:39
Изменение ссылок при вставке	Strannik79	Microsoft Office Excel	4	10.09.2007 14:31

01.05.2010, 01:11	#2
Trimbl Форумчанин Регистрация: 11.08.2009 Сообщений: 135	Люди добрые, где вы? 46 просмотров и все на моем уровне?,- никогда не поверю. Уважаемые кудесники Excel-дуже прошу(умоляю),- гляньте одним глазком.