Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2010, 02:22   #1
bukjob
 
Регистрация: 01.03.2010
Сообщений: 6
По умолчанию Копирование данных с разных на итоговый лист

Добрый Вечер.
Обращаюсь за помощью в решение задачки.
Есть много листов с различным названием, необходимо скопировать на итоговый лист данные по условию. более наглядно на листе итоги. Необходимо скопировать именно значения с листов, а не формулы.
Заранее Благодарен!!!!!
P.S. Если чего не так сделал не пинайте. Исправлюсь.
Вложения
Тип файла: zip пример.zip (7.3 Кб, 27 просмотров)
bukjob вне форума Ответить с цитированием
Старый 01.03.2010, 09:06   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Посмотрите вложение. Запустите макрос "Main".
Вложения
Тип файла: rar пример_2.rar (10.9 Кб, 75 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 01.03.2010, 13:28   #3
bukjob
 
Регистрация: 01.03.2010
Сообщений: 6
По умолчанию СПАСИБО

Чесно Очень Благодарен!!!!!!
ВАМ большущее Спасибо!!! Да всё гениальное просто.
bukjob вне форума Ответить с цитированием
Старый 02.03.2010, 01:56   #4
bukjob
 
Регистрация: 01.03.2010
Сообщений: 6
По умолчанию Еще вопросик если позволитею

А как мне вот здесь поправить код чтобы с листов копировались только значения. Извите код ващще корявый, но пока так задача- различные столбцы скопировать. Вообщем как и в первой задачке нужны значения.
Заранее огромное сасибо.
Вложения
Тип файла: zip Книга1.zip (30.5 Кб, 14 просмотров)
bukjob вне форума Ответить с цитированием
Старый 02.03.2010, 05:08   #5
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Посмотрите вложение. Что не понятно - спрашивайте.
Вложения
Тип файла: rar Книга1_2.rar (25.0 Кб, 38 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 02.03.2010, 12:25   #6
hamlook
Пользователь
 
Регистрация: 22.05.2009
Сообщений: 85
По умолчанию

Прошу прощения что влезаю.
Как сделать (для первого примера) чтобы итог был для "1", а потом, допустим через пять строк в этом же столбце для "2".
hamlook вне форума Ответить с цитированием
Старый 02.03.2010, 12:35   #7
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

To hamlook: См. вложение.
Вложения
Тип файла: rar 2hamlook.rar (11.3 Кб, 35 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 02.03.2010, 15:16   #8
hamlook
Пользователь
 
Регистрация: 22.05.2009
Сообщений: 85
По умолчанию

Вот Громадное Спасибо!!! Давно хотел свою програмку окультурить.
Еще вопросик... то же самое, только в конкретных ячейках, например "1" в А1, "2" в А10
hamlook вне форума Ответить с цитированием
Старый 02.03.2010, 23:12   #9
bukjob
 
Регистрация: 01.03.2010
Сообщений: 6
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Посмотрите вложение. Что не понятно - спрашивайте.
Просто человеческое спасибо!
bukjob вне форума Ответить с цитированием
Старый 03.03.2010, 01:54   #10
bukjob
 
Регистрация: 01.03.2010
Сообщений: 6
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Посмотрите вложение. Что не понятно - спрашивайте.
Всё работает чётко!!! Но буду наглеть (шутка), как здесь можно прикрутить перенос формата ячеек. Блин надо было сразу конечно всё описать, но думал что и так сойдёт. Если даже не ответишь, сё равно сПАСИБО! пробывал заменить
.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.
bukjob вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на копирование ячеек из разных листов на один. 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