Добавить данные на лист Статистика

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить данные на лист Статистика (Необходимо данные с одного листа добавить на другой лист в к)

sk3pif

Дата: Понедельник, 14.07.2014, 12:08 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

2003 (11.6355.6360) SP1

Здравствуйте.
Помогите решить следующую проблему.
Есть данные (результаты расчетов, изменяются ежедневно), необходимо вести статистику, - добавить эти данные на другой лист (Статистика) в конец существующих (новая строка). Возможен вариант - добавить в другую книгу.
Вот пример файла - необходимо выделенные данные с листа "имеется" добавить на лист "статистика" в конец (в данном случае - 8я строка)

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

К сообщению приложен файл: 2799990.xls (42.5 Kb)

Ответить

pechkin

Дата: Понедельник, 14.07.2014, 18:01 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 329

Репутация: 49 ±

Замечаний: 0% ±

2003

Этот Макрос мне подсказали на этом форуме - может и Вам пригодится!

К сообщению приложен файл: 2799990-1.xls (48.0 Kb)

Ответить

sk3pif

Дата: Понедельник, 14.07.2014, 20:07 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

2003 (11.6355.6360) SP1

pechkin, Спасибо за решение, и за оперативность.
Пригодится!
Правда, вопросы остались.Так что прошу прощения за дотошность.
1. Не сохраняет заливку цветом. Не критично, но если не сложно - что нужно добавить, чтобы сохранить заливку цветом.
(при обычной вставке, я использовал
[vba]

Код

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("I8").Select
Application.CutCopyMode = False

[/vba]
или
[vba]

Код

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("I11").Select

[/vba]
)
2. Если у меня открыто несколько книг, в которых есть лист "Статистика", макрос вставит данные в "Статистика" только этой книги, в которой активен лист "Имеется", или во все книги, где имеется лист "Статистика"?
Дело в том, что у меня несколько книг "близнецов", т.е., названия книг - разные, а названия листов - везде одинаковые, т.е., лист "Статистика" имеется в 8 или 10 книгах в одном каталоге.

Ответить

_Boroda_

Дата: Понедельник, 14.07.2014, 21:31 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Я бы немного на так делал. Прежде всего, нужно сделать проверку на задвоение. Да и массив на таком объеме не знаю, зачем нужен.

К сообщению приложен файл: 2799990_2.xls (54.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

sk3pif

Дата: Вторник, 15.07.2014, 01:01 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

2003 (11.6355.6360) SP1

Караул!. Что-то случилось с кодировкой.
Раньше я копировал макрос и вставлял в блокнот или в Ексель, то русский текст отображался правильно. А теперь - кракозябры.
Íàõîäèì ïîñëåäíþþ çàïîëíåííóþ ÿ÷åéêó - вот так в блокноте
Находим последнюю заполненную ячейку - вот так в макросе
Пробовал определить кодировку до использования макроса - Windows (кириллица), после - Windows (западноевропейская).
Что теперь делать?