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

Вход

Регистрация

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

 

= Мир MS Excel/Срабатывают не все макросы - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Срабатывают не все макросы
CHEVRYACHOK Дата: Пятница, 18.07.2014, 15:31 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 109
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте! Помогите разобраться, почему-то срабатывают не все макросы. В чем может быть проблема?
К сообщению приложен файл: --.xlsm (36.5 Kb)
 
Ответить
СообщениеЗдравствуйте! Помогите разобраться, почему-то срабатывают не все макросы. В чем может быть проблема?

Автор - CHEVRYACHOK
Дата добавления - 18.07.2014 в 15:31
CHEVRYACHOK Дата: Пятница, 18.07.2014, 15:51 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 109
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Если выбрать , например слесарь-ремонтник, то после него маляр и многие другие не копируются (заголовок в ячейку), хотя фильтр срабатывает. Срабатывают всегда Монтажник и Изолировщик
 
Ответить
СообщениеЕсли выбрать , например слесарь-ремонтник, то после него маляр и многие другие не копируются (заголовок в ячейку), хотя фильтр срабатывает. Срабатывают всегда Монтажник и Изолировщик

Автор - CHEVRYACHOK
Дата добавления - 18.07.2014 в 15:51
_Boroda_ Дата: Пятница, 18.07.2014, 16:04 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16957
Репутация: 6631 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Перепишите все макросы
Для слесаря -ремонтника
Цитата
Sub Слесарьремонтник()
Sheets("Лист1").Range("C9").Copy Range("B19")
ActiveSheet.Range("$C$22:$D$209").AutoFilter Field:=2, Criteria1:="слесарь"
End Sub
Для других специальностей поменяйте то, что я выделил красным, на соответствующие значения. С9 - это ячейка в Лист1, в которой написано "по программе№13 для слесаря-ремонтника"


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПерепишите все макросы
Для слесаря -ремонтника
Цитата
Sub Слесарьремонтник()
Sheets("Лист1").Range("C9").Copy Range("B19")
ActiveSheet.Range("$C$22:$D$209").AutoFilter Field:=2, Criteria1:="слесарь"
End Sub
Для других специальностей поменяйте то, что я выделил красным, на соответствующие значения. С9 - это ячейка в Лист1, в которой написано "по программе№13 для слесаря-ремонтника"

Автор - _Boroda_
Дата добавления - 18.07.2014 в 16:04
CHEVRYACHOK Дата: Суббота, 19.07.2014, 07:10 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 109
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, доброе утро! Спасибо большое! Разобрался :)


Сообщение отредактировал CHEVRYACHOK - Суббота, 19.07.2014, 08:11
 
Ответить
Сообщение_Boroda_, доброе утро! Спасибо большое! Разобрался :)

Автор - CHEVRYACHOK
Дата добавления - 19.07.2014 в 07:10
  • Страница 1 из 1
  • 1
Поиск:

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