Макрос на копирование страниц на отдельный лист

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

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

VanBlack

Дата: Четверг, 17.10.2013, 03:37 | Сообщение № 1

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

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

Сообщений: 24

Репутация: -28 ±

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

Excel 2007

Здравствуйте! Очень нужно написать макрос, но я в них ничего не понимаю. Помогите пожалуйста. Очень нужно добавить кнопку с макросом, при нажатии на которую первые страницы (диапазон A1:M39) всех листов, имена которых содержат скобки, копировались бы по порядку на лист "Протокол поединков". Файл приложить не получилось, т.к. весит 250КБ..., но условия и так понятны. Сможете помочь, - напишите что от меня для этого нужно (в личку или на п/я vanblack@inbox.ru ).

Сообщение отредактировал VanBlack - Четверг, 17.10.2013, 14:28

Ответить

RAN

Дата: Четверг, 17.10.2013, 07:34 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Высылайте файл в почту. Вечером сделаю.

Быть или не быть, вот в чем загвоздка!

Ответить

VanBlack

Дата: Четверг, 17.10.2013, 14:30 | Сообщение № 3

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

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

Сообщений: 24

Репутация: -28 ±

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

Excel 2007

Поправил текст

Цитата VanBlack, 17.10.2013 в 03:37, в сообщении № 1

первые страницы (диапазон A1:M39) всех листов, имена которых содержат скобки

Т.е. не в содержании листа должны присутствовать скобки, а в имени.

Сообщение отредактировал VanBlack - Четверг, 17.10.2013, 14:38

Ответить

Саня

Дата: Четверг, 17.10.2013, 14:42 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

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

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

XL 2016

напиши твои условия взаимодействия (предоплата, постоплата, ипотека) и бюджет

Ответить

RAN

Дата: Четверг, 17.10.2013, 14:51 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Отправил результат работы макроса.

Быть или не быть, вот в чем загвоздка!

Ответить

RAN

Дата: Суббота, 19.10.2013, 20:21 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Увы, похоже кинул.
Жаль времени, потраченного на @!

А где наша не пропадала!?

PS Макрос- в топку!

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Суббота, 19.10.2013, 20:23

Ответить

VanBlack

Дата: Понедельник, 28.10.2013, 03:54 | Сообщение № 7

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

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

Сообщений: 24

Репутация: -28 ±

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

Excel 2007

Извините, никого не хотел кидать, но так получилось, что ответ нашёлся раньше чем мы окончательно договорились. И кидалово - это когда после заключения договора одна из сторон отказывается от своих обязательств. У нас же всё было на стадии обсуждения... Так что не надо. Просто есть ещё люди, готовые просто помочь... На мой взгляд, дороговато вы запросили за такую работу...
[vba]

Код

Sub Протокол_поединков()
Dim Sh As Worksheet, i As Long
i = 1
Sheets("Протокол поединков").Cells.Clear
For Each Sh In ThisWorkbook.Sheets
If InStr(1, Sh.Name, "(") > 0 Then
Sh.[A1:M39].Copy Sheets("Протокол поединков").Cells(i, 1)
i = i + 39
End If
Next Sh
End Sub

[/vba]

Ответить

Макрос на копирование страниц на отдельный лист

Страница 1 из 1
1