создание ведомости(отчета) в VBA

[VictorM]

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

Виктор, у меня сработало, без проблем.
Вот, взял из кода:

ActiveWorkbook.Sheets("Ведомость продаж").Activate

Sheets("Ведомость продаж").Select

Sheets("Ведомость").Select
Sheets("Ведомость").Range("g3").Activate

Согласен. Так

Sheets("Ведомость").Select
Sheets("Ведомость").Range("g3").Activate

будет работать. Я говорил о том, что не будет работать одна строка

Sheets("Ведомость").Range("g3").Activate

без предварительной активации листа, как приведено у ТС

[aigula]

ActiveCell.FormulaR1C1 = "=SUM(RC[-1]:R[196]C[-1])"
а вот в этой формуле нет ошибки? она после той строки, в которой ошибку выдает.

[Hugo121]

Так я взял кусок кода и выкинул лишние строки.
Т.е. у ТС должно работать - даже раскладка нигде не попутана, что я подозревал.

[DiemonStar]

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

а вот в этой формуле нет ошибки? она после той строки, в которой ошибку выдает.

Вам несколько человек твердят: невозможно активировать область неактивного листа. Отсюда и ошибка.

замените эти строки

Sheets("Ведомость").Range("g3").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-1]:R[196]C[-1])"

вот этим

Sheets("Ведомость").[G3].FormulaR1C1 = "=SUM(RC[-1]:R[196]C[-1])"

з.ы. смотрел на Ваш код и хотелось плакать - такое количество GoTo даже моя, привычная к ассемблеру душа, не переносит спокойно...