Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование нескольких листов в один в этой же книге - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование нескольких листов в один в этой же книге (Макросы Sub)
Копирование нескольких листов в один в этой же книге
Leojse Дата: Воскресенье, 06.10.2013, 20:46 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
Добрый вечер. Снова надеюсь на Вашу помощь.
Есть файл, в котором немалое количество листов. Мне нужно, чтобы, начиная с ячейки А8 и до строки "Всего с НДС" копировались все листы друг за другом вниз на новый лист. На сайте поискал, но мне ничего не подошло. Дело в том, что в этом диапазоне (от А8 до "Всего с НДС") количество необходимых строк для копирования на листах всегда разное, и я не могу задать какой-то определенный интервал для копирования.
К сообщению приложен файл: 0466532.xls (90.0 Kb)
 
Ответить
СообщениеДобрый вечер. Снова надеюсь на Вашу помощь.
Есть файл, в котором немалое количество листов. Мне нужно, чтобы, начиная с ячейки А8 и до строки "Всего с НДС" копировались все листы друг за другом вниз на новый лист. На сайте поискал, но мне ничего не подошло. Дело в том, что в этом диапазоне (от А8 до "Всего с НДС") количество необходимых строк для копирования на листах всегда разное, и я не могу задать какой-то определенный интервал для копирования.
Автор - Leojse
Дата добавления - 06.10.2013 в 20:46
Матрёна Дата: Воскресенье, 06.10.2013, 20:54 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 40 ±
Замечаний: 0% ±

Все листы в этот файл Вы "рукопашите" из кучи других файлов?
 
Ответить
СообщениеВсе листы в этот файл Вы "рукопашите" из кучи других файлов?
Автор - Матрёна
Дата добавления - 06.10.2013 в 20:54
Leojse Дата: Воскресенье, 06.10.2013, 20:56 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
Нет, количество листов не изменяется. Меняется только количество строк в них.
 
Ответить
СообщениеНет, количество листов не изменяется. Меняется только количество строк в них.
Автор - Leojse
Дата добавления - 06.10.2013 в 20:56
Leojse Дата: Воскресенье, 06.10.2013, 20:57 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
Точнее не из других файлов - один раз создал, и данные вносятся в ходе их изменения вручную.
 
Ответить
СообщениеТочнее не из других файлов - один раз создал, и данные вносятся в ходе их изменения вручную.
Автор - Leojse
Дата добавления - 06.10.2013 в 20:57
ikki Дата: Воскресенье, 06.10.2013, 21:10 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
[vba]
Код
Sub t()
       j = 1
       With ThisWorkbook.Worksheets.Add(ThisWorkbook.Worksheets(1))
           For i = 2 To ThisWorkbook.Worksheets.Count
               With ThisWorkbook.Worksheets(i)
                   Set r = .[a:a].Find(what:="ВСЕГО с НДС", lookat:=xlWhole)
                   If Not r Is Nothing Then .Range(.[a8], r).EntireRow.Copy
               End With
               If Not r Is Nothing Then
                   .Range(.Cells(j, 1), .Cells(r.Row + j - 7, 1)).EntireRow.PasteSpecial
                   j = j + r.Row - 7
               End If
           Next
       End With
End Sub
[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Воскресенье, 06.10.2013, 21:28
 
Ответить
Сообщение[vba]
Код
Sub t()
       j = 1
       With ThisWorkbook.Worksheets.Add(ThisWorkbook.Worksheets(1))
           For i = 2 To ThisWorkbook.Worksheets.Count
               With ThisWorkbook.Worksheets(i)
                   Set r = .[a:a].Find(what:="ВСЕГО с НДС", lookat:=xlWhole)
                   If Not r Is Nothing Then .Range(.[a8], r).EntireRow.Copy
               End With
               If Not r Is Nothing Then
                   .Range(.Cells(j, 1), .Cells(r.Row + j - 7, 1)).EntireRow.PasteSpecial
                   j = j + r.Row - 7
               End If
           Next
       End With
End Sub
[/vba]
Автор - ikki
Дата добавления - 06.10.2013 в 21:10
Leojse Дата: Воскресенье, 06.10.2013, 21:20 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
ikki, Спасибо Вам большое за труды!
Но возник вопросик.... С первого и со второго листа не копируются строчки "Всего с НДС", а с третьего листа копируется строчка "Потери", которую копировать не нужно. Можно это как-то поправить?
 
Ответить
Сообщениеikki, Спасибо Вам большое за труды!
Но возник вопросик.... С первого и со второго листа не копируются строчки "Всего с НДС", а с третьего листа копируется строчка "Потери", которую копировать не нужно. Можно это как-то поправить?
Автор - Leojse
Дата добавления - 06.10.2013 в 21:20
ikki Дата: Воскресенье, 06.10.2013, 21:27 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
да. я немножко ошибся. отредактировал код в сообщении №5.

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщениеда. я немножко ошибся. отредактировал код в сообщении №5.
Автор - ikki
Дата добавления - 06.10.2013 в 21:27
Leojse Дата: Воскресенье, 06.10.2013, 21:31 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
Спасибо ВАМ огронейшее!
 
Ответить
СообщениеСпасибо ВАМ огронейшее!
Автор - Leojse
Дата добавления - 06.10.2013 в 21:31
Leojse Дата: Понедельник, 21.10.2013, 12:35 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
Снова возник вопрос.
Хотел макрос вставить в обычный модуль листа личной книги макросов и повесить этот макрос на кнопку. Но так макрос не работает, он работает только, находясь в модуле самого фала. Подскажите, есть ли возможность поправить это, чтобы макрос срабатывал из личной книги макросов?
 
Ответить
СообщениеСнова возник вопрос.
Хотел макрос вставить в обычный модуль листа личной книги макросов и повесить этот макрос на кнопку. Но так макрос не работает, он работает только, находясь в модуле самого фала. Подскажите, есть ли возможность поправить это, чтобы макрос срабатывал из личной книги макросов?
Автор - Leojse
Дата добавления - 21.10.2013 в 12:35
Leojse Дата: Понедельник, 21.10.2013, 12:40 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
Сам разобрался)
 
Ответить
СообщениеСам разобрался)
Автор - Leojse
Дата добавления - 21.10.2013 в 12:40
SkyPro Дата: Понедельник, 21.10.2013, 13:19 | Сообщение № 11
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
ThisWorkbook заменили на ActiveWorkbook ?

skypro1111@gmail.com
 
Ответить
СообщениеThisWorkbook заменили на ActiveWorkbook ?
Автор - SkyPro
Дата добавления - 21.10.2013 в 13:19
Leojse Дата: Понедельник, 21.10.2013, 15:07 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
Да, так и сделал.
 
Ответить
СообщениеДа, так и сделал.
Автор - Leojse
Дата добавления - 21.10.2013 в 15:07
Leojse Дата: Воскресенье, 22.12.2013, 22:58 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
Добрый вечер. Вопрос противоречит теме, но все же спрошу....
Подскажите, а можно ли добавить как бы опцию выбора книг, с которых нужно сделать копирование?


Сообщение отредактировал Leojse - Воскресенье, 22.12.2013, 22:59
 
Ответить
СообщениеДобрый вечер. Вопрос противоречит теме, но все же спрошу....
Подскажите, а можно ли добавить как бы опцию выбора книг, с которых нужно сделать копирование?
Автор - Leojse
Дата добавления - 22.12.2013 в 22:58
Leojse Дата: Воскресенье, 29.12.2013, 17:00 | Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
Подскажите, пожалуйста, а где можно почитать, чтобы добавить возмоножсть выбора файлов в макрос?
 
Ответить
СообщениеПодскажите, пожалуйста, а где можно почитать, чтобы добавить возмоножсть выбора файлов в макрос?
Автор - Leojse
Дата добавления - 29.12.2013 в 17:00
Serge_007 Дата: Воскресенье, 29.12.2013, 17:04 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата Leojse, 22.12.2013 в 22:58, в сообщении № 13
Вопрос противоречит теме
и правилам тоже противоречит
Эта тема закрыта, создавайте свою

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата Leojse, 22.12.2013 в 22:58, в сообщении № 13
Вопрос противоречит теме
и правилам тоже противоречит
Эта тема закрыта, создавайте свою
Автор - Serge_007
Дата добавления - 29.12.2013 в 17:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование нескольких листов в один в этой же книге (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!