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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 28.11.2008, 08:26   #1
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию Скопировать данные в новую книгу, согласно критерию

Сам вопрос, находится в прикрепленном файле, потому как трудно описать вопрос без наглядного примера.
Вложения
Тип файла: rar pack ! 1_1.rar (22.1 Кб, 27 просмотров)
Думайте глобально - действуйте локально!
Iskin вне форума
Старый 28.11.2008, 10:23   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

См. вложение
Вложения
Тип файла: rar pack ! 1_1.rar (27.6 Кб, 32 просмотров)
EducatedFool вне форума
Старый 28.11.2008, 11:11   #3
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию

посмотрел вложение. Файл переименовывается. Но это не все. Надо, что бы в новом файле:
1. были только значения листа "итог" (в данном примере, формулы тоже скопировались)
2. Надо, что бы в новую книгу (pack ! 1_1_?) скопировались только строки значения которых по колонке E:E , совпадали с значением яч G1. и сама шапка таблицы. Т.е. если делать вручную, то в яч G1 забиваю например цифру 5, фильтрую по колонке Е:Е с критерием 5. Потом копирую лист, открываю новую книгу и вставляю туда значения....
3. Название файла pack ! 1_1 остается без изменений, переименовывается только новый файл в pack ! 1_1_5 (по умолчанию), но у пользователя, должен быть выбор переименования файла на свое усмотрение.
Думайте глобально - действуйте локально!
Iskin вне форума
Старый 28.11.2008, 12:09   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Может, такой вариант устроит?
Вложения
Тип файла: rar pack ! 2_1.rar (32.0 Кб, 43 просмотров)
EducatedFool вне форума
Старый 28.11.2008, 12:43   #5
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию

то что нужно! только вот окно выходит, когда созданный файл открываешь...
Изображения
Тип файла: jpg 11.jpg (11.9 Кб, 135 просмотров)
Думайте глобально - действуйте локально!
Iskin вне форума
Старый 28.11.2008, 12:58   #6
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

У меня такое окно не появляется...

Попоробуйте заменить строку .SaveAs newFN

на строку .SaveAs newFN, xlWorkbookNormal
EducatedFool вне форума
Старый 28.11.2008, 13:02   #7
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию

Цитата:
Сообщение от Iskin Посмотреть сообщение
то что нужно! только вот окно выходит, когда созданный файл открываешь...
Этот глюк появляется в 2007 екселе, в 2003 все нормально
Думайте глобально - действуйте локально!
Iskin вне форума
Старый 28.11.2008, 13:26   #8
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию

заменил строки, все работает отлично!!! в очередной раз рахмат!
Думайте глобально - действуйте локально!
Iskin вне форума
Старый 28.11.2008, 14:19   #9
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию

Извините меня чайника, но теперь когда, я пытаюсь вшить модуль в настоящий файл и не могу найти где и что мне поменять. Т.к. в примере колонка для критерия была "Е", а на самом деле колонка "ВВ". С колонкой G1 все понятно.
Думайте глобально - действуйте локально!
Iskin вне форума
Старый 28.11.2008, 14:35   #10
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Замените кусок кода на следующий:

Код:
    With Workbooks.Add
        Set sh = .Worksheets(1): sh.Name = Me.Name

        Me.UsedRange.Copy
        sh.Range("a1").PasteSpecial xlPasteColumnWidths
        sh.Range("a1").PasteSpecial xlPasteValuesAndNumberFormats
        sh.Range("a1").PasteSpecial xlPasteFormats

        ' удаляем лишние строки
        With sh
            ' в этих трёх строках можете изменять буквы столбцов
            ЯчейкаСНомером = "G1"
            СтолбецПоКоторомуОпределяемПоследнююЗаполненнуюСтроку = "A"
            СтолбецСНомеромИзделия = "E"

            ' а дальше уже ничего изменять не надо
            Nomer = .Range(ЯчейкаСНомером): c1 = СтолбецПоКоторомуОпределяемПоследнююЗаполненнуюСтроку: c2 = СтолбецСНомеромИзделия
            For Each cell In .Range(.Range(c1 & "3"), .Range(c1 & "65000").End(xlUp))
                If .Range(c2 & cell.Row).Value <> Nomer Then cell.EntireRow.RowHeight = 0
            Next
        End With
        .SaveAs newFN, xlWorkbookNormal
        .Close
    End With
EducatedFool вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенести в новую книгу отмеченые строки Rom1k06 Microsoft Office Excel 11 31.07.2008 12:22
Помогите плз. Необходимо взять данные из файлов по критерию. Rom1k06 Microsoft Office Excel 5 30.07.2008 12:57
Excel-перенос иформации с одного листа в другой согласно условия ЛюдмилаЗ Microsoft Office Excel 2 28.05.2008 12:38
Поиск в *.txt по критерию fudzy79 Помощь студентам 5 04.02.2008 09:14
макрос VBA EXCEL - деление ряда чисел по заданному критерию Обыватель Microsoft Office Excel 10 30.01.2008 14:36