![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 01.03.2010
Сообщений: 6
|
![]()
Добрый Вечер.
Обращаюсь за помощью в решение задачки. Есть много листов с различным названием, необходимо скопировать на итоговый лист данные по условию. более наглядно на листе итоги. Необходимо скопировать именно значения с листов, а не формулы. Заранее Благодарен!!!!! P.S. Если чего не так сделал не пинайте. Исправлюсь. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Посмотрите вложение. Запустите макрос "Main".
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 01.03.2010
Сообщений: 6
|
![]()
Чесно Очень Благодарен!!!!!!
ВАМ большущее Спасибо!!! Да всё гениальное просто. |
![]() |
![]() |
![]() |
#4 |
Регистрация: 01.03.2010
Сообщений: 6
|
![]()
А как мне вот здесь поправить код чтобы с листов копировались только значения. Извите код ващще корявый, но пока так задача- различные столбцы скопировать. Вообщем как и в первой задачке нужны значения.
Заранее огромное сасибо. |
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Посмотрите вложение. Что не понятно - спрашивайте.
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 22.05.2009
Сообщений: 85
|
![]()
Прошу прощения что влезаю.
Как сделать (для первого примера) чтобы итог был для "1", а потом, допустим через пять строк в этом же столбце для "2". |
![]() |
![]() |
![]() |
#7 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
To hamlook: См. вложение.
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 22.05.2009
Сообщений: 85
|
![]()
Вот Громадное Спасибо!!! Давно хотел свою програмку окультурить.
Еще вопросик... то же самое, только в конкретных ячейках, например "1" в А1, "2" в А10 |
![]() |
![]() |
![]() |
#9 |
Регистрация: 01.03.2010
Сообщений: 6
|
![]() |
![]() |
![]() |
![]() |
#10 |
Регистрация: 01.03.2010
Сообщений: 6
|
![]()
Всё работает чётко!!! Но буду наглеть (шутка), как здесь можно прикрутить перенос формата ячеек. Блин надо было сразу конечно всё описать, но думал что и так сойдёт. Если даже не ответишь, сё равно сПАСИБО! пробывал заменить
.Range(.Cells(i, 2), .Cells(i, 10)).Copy: Cells(j, 1).PasteSpecial Paste:=xlPasteValues на .Range(.Cells(i, 2), .Cells(i, 10)).Copy: Cells(j, 1).PasteSpecial Paste:=xlPasteAll плохо получается форматы копирует и опять формулы вставляет. Пока ступор. Последний раз редактировалось bukjob; 03.03.2010 в 01:59. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача на копирование ячеек из разных листов на один. | hozpraktik | Microsoft Office Excel | 8 | 28.05.2010 10:00 |
Итоговый запрос на С++ | D[I]K | Общие вопросы C/C++ | 1 | 20.09.2009 20:37 |
Автоматизированное копирование данных выборки автофильтра на другой лист при помощи кнопки | outstrip | Microsoft Office Excel | 0 | 12.08.2009 11:28 |
Копировать данные из разных ячеек по нескольким листам в один лист | Dorvir | Microsoft Office Excel | 2 | 11.06.2008 10:10 |
Копирование при помощи лист бокс | Beam | Общие вопросы Delphi | 6 | 13.02.2008 16:44 |