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

Вход

Регистрация

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

 

= Мир MS Excel/Исправить макрос, вроде бы сбился в связи с добавкой листов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Исправить макрос, вроде бы сбился в связи с добавкой листов (Макросы/Sub)
Исправить макрос, вроде бы сбился в связи с добавкой листов
lebensvoll Дата: Суббота, 20.02.2016, 12:57 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
Добрый день форумчане!!! МУЗСЧИНЫ С НАСТУПАЮЩИМ НАС ПРАЗДНИКОМ!!! Прошу вас помочь разобраться с макросом (((( он рабочий все нормально работает. Но я лишь добавил листы (выделенные желтым цветом ярлычки) и почему то в данные листы данные при активации макроса не переносятся. Данная тема была
My WebPage
в данной теме мне объясняли что нужно было сделать:
Цитата
Добавьте здесь названия добавленных листов.

[vba]
Код
Sub Macro()
    
    Application.ScreenUpdating = False
    Call ttt1(Sheets("В15"))
    Call ttt1(Sheets("В25"))
    Call ttt1(Sheets("М75"))
    Call ttt1(Sheets("В22,5"))
    Call ttt1(Sheets("В15"))
    Call ttt1(Sheets("М150"))
    Application.ScreenUpdating = True
    MsgBox "готово!", vbInformation

End Sub
[/vba]
Но я что то не могу найти и понять где я должен дополнить данные листы (((( ПОМОГИТЕ!!!!
Пришлось удалить не которые листы (((( прошу вас учесть что классы бетонной и растворной смеси (а также вкладки листов дат будут от 1 до 31) а классы будут от В5 до М350 (выделенные на листе корректировка столбец Q3:23) больше листов ни каких дополнятся не будет.
К сообщению приложен файл: ____3_.zip(98Kb)


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеДобрый день форумчане!!! МУЗСЧИНЫ С НАСТУПАЮЩИМ НАС ПРАЗДНИКОМ!!! Прошу вас помочь разобраться с макросом (((( он рабочий все нормально работает. Но я лишь добавил листы (выделенные желтым цветом ярлычки) и почему то в данные листы данные при активации макроса не переносятся. Данная тема была
My WebPage
в данной теме мне объясняли что нужно было сделать:
Цитата
Добавьте здесь названия добавленных листов.

[vba]
Код
Sub Macro()
    
    Application.ScreenUpdating = False
    Call ttt1(Sheets("В15"))
    Call ttt1(Sheets("В25"))
    Call ttt1(Sheets("М75"))
    Call ttt1(Sheets("В22,5"))
    Call ttt1(Sheets("В15"))
    Call ttt1(Sheets("М150"))
    Application.ScreenUpdating = True
    MsgBox "готово!", vbInformation

End Sub
[/vba]
Но я что то не могу найти и понять где я должен дополнить данные листы (((( ПОМОГИТЕ!!!!
Пришлось удалить не которые листы (((( прошу вас учесть что классы бетонной и растворной смеси (а также вкладки листов дат будут от 1 до 31) а классы будут от В5 до М350 (выделенные на листе корректировка столбец Q3:23) больше листов ни каких дополнятся не будет.

Автор - lebensvoll
Дата добавления - 20.02.2016 в 12:57
_Boroda_ Дата: Суббота, 20.02.2016, 13:11 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9346
Репутация: 3922 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А вот так?
[vba]
Код
Sub Macro()
    
    Application.ScreenUpdating = False
'    Call ttt1(Sheets("В5"))
'    Call ttt1(Sheets("В7,5"))
    Call ttt1(Sheets("В10"))
'    Call ttt1(Sheets("В12,5"))
'    Call ttt1(Sheets("В15"))
'    Call ttt1(Sheets("В20"))
    Call ttt1(Sheets("В22,5"))
    Call ttt1(Sheets("В25"))
    Call ttt1(Sheets("В30"))
    Call ttt1(Sheets("В35"))
    Call ttt1(Sheets("В40"))
    Call ttt1(Sheets("В45"))
    Call ttt1(Sheets("М75"))
'    Call ttt1(Sheets("М100"))
'    Call ttt1(Sheets("М150"))
'    Call ttt1(Sheets("М200"))
'    Call ttt1(Sheets("М250"))
'    Call ttt1(Sheets("М300"))
    Application.ScreenUpdating = True
    MsgBox "готово!", vbInformation

End Sub
[/vba]
К сообщению приложен файл: ____3__1.xlsb(96Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА вот так?
[vba]
Код
Sub Macro()
    
    Application.ScreenUpdating = False
'    Call ttt1(Sheets("В5"))
'    Call ttt1(Sheets("В7,5"))
    Call ttt1(Sheets("В10"))
'    Call ttt1(Sheets("В12,5"))
'    Call ttt1(Sheets("В15"))
'    Call ttt1(Sheets("В20"))
    Call ttt1(Sheets("В22,5"))
    Call ttt1(Sheets("В25"))
    Call ttt1(Sheets("В30"))
    Call ttt1(Sheets("В35"))
    Call ttt1(Sheets("В40"))
    Call ttt1(Sheets("В45"))
    Call ttt1(Sheets("М75"))
'    Call ttt1(Sheets("М100"))
'    Call ttt1(Sheets("М150"))
'    Call ttt1(Sheets("М200"))
'    Call ttt1(Sheets("М250"))
'    Call ttt1(Sheets("М300"))
    Application.ScreenUpdating = True
    MsgBox "готово!", vbInformation

End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 20.02.2016 в 13:11
lebensvoll Дата: Суббота, 20.02.2016, 13:12 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
:'( Я нашел где вносится данное прописание макроса, :'( :'( :'( но, при добавлении классов В35; В40; В45; (((((( в ответ ЕРОР :'( :'( :'( :'(


Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщение:'( Я нашел где вносится данное прописание макроса, :'( :'( :'( но, при добавлении классов В35; В40; В45; (((((( в ответ ЕРОР :'( :'( :'( :'(

Автор - lebensvoll
Дата добавления - 20.02.2016 в 13:12
lebensvoll Дата: Суббота, 20.02.2016, 13:15 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
_Boroda_, а почему же у меня это у самого не получилось я также добавил :( :( :'( :'( :'( . Да все работает правильно СПС!!! hands hands hands


Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщение_Boroda_, а почему же у меня это у самого не получилось я также добавил :( :( :'( :'( :'( . Да все работает правильно СПС!!! hands hands hands

Автор - lebensvoll
Дата добавления - 20.02.2016 в 13:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Исправить макрос, вроде бы сбился в связи с добавкой листов (Макросы/Sub)
Страница 1 из 11
Поиск:

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