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

Вход

Регистрация

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

 

= Мир MS Excel/При созд правила формат ячеек перестал срабатыв макр копиров - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При созд правила формат ячеек перестал срабатыв макр копиров (Макросы/Sub)
При созд правила формат ячеек перестал срабатыв макр копиров
Leonchik Дата: Среда, 28.10.2015, 12:56 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте! Подскажите пожалуйста, написан макрос для копирования данных с одного листа на другой. Я создаю правило для выделения ячеек выходных дней, перестает сразу правильно срабатывать макрос. Может что-то можно придумать или прописать, чтобы данные копировались ? Прилагаю 2 файла, где макрос работает и второй файл - где уже не срабатывает!
К сообщению приложен файл: 3363996.rar (37.9 Kb) · 2423165.rar (43.5 Kb)
 
Ответить
СообщениеЗдравствуйте! Подскажите пожалуйста, написан макрос для копирования данных с одного листа на другой. Я создаю правило для выделения ячеек выходных дней, перестает сразу правильно срабатывать макрос. Может что-то можно придумать или прописать, чтобы данные копировались ? Прилагаю 2 файла, где макрос работает и второй файл - где уже не срабатывает!
Автор - Leonchik
Дата добавления - 28.10.2015 в 12:56
Manyasha Дата: Среда, 28.10.2015, 13:12 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Leonchik, у меня работают оба файла...
Только в 1-м файле "Макрос работает.xls" строчка Option Explicit должна быть самой верхней, а не по середине модуля.

Что конкретно у Вас не копируется или какая ошибка вылазит?

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеLeonchik, у меня работают оба файла...
Только в 1-м файле "Макрос работает.xls" строчка Option Explicit должна быть самой верхней, а не по середине модуля.

Что конкретно у Вас не копируется или какая ошибка вылазит?
Автор - Manyasha
Дата добавления - 28.10.2015 в 13:12
Leonchik Дата: Среда, 28.10.2015, 13:18 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Manyasha, В файле, где макрос не работает он копирует только ФИО и ТАБ.номер, а строки с Я и 8 пустые
 
Ответить
СообщениеManyasha, В файле, где макрос не работает он копирует только ФИО и ТАБ.номер, а строки с Я и 8 пустые
Автор - Leonchik
Дата добавления - 28.10.2015 в 13:18
Leonchik Дата: Среда, 28.10.2015, 13:26 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Leonchik, Точнее на Лист3 в графах Наименование, Код - данные копируются. А вот ВидВремени1 и Часы1 и т.д. перестали заполняться данными.
 
Ответить
СообщениеLeonchik, Точнее на Лист3 в графах Наименование, Код - данные копируются. А вот ВидВремени1 и Часы1 и т.д. перестали заполняться данными.
Автор - Leonchik
Дата добавления - 28.10.2015 в 13:26
Leonchik Дата: Среда, 28.10.2015, 13:29 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Manyasha, Правда, макрос написан на 2003 офисе, но думаю, что серьезных расхождений нет.
 
Ответить
СообщениеManyasha, Правда, макрос написан на 2003 офисе, но думаю, что серьезных расхождений нет.
Автор - Leonchik
Дата добавления - 28.10.2015 в 13:29
Manyasha Дата: Среда, 28.10.2015, 14:29 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Leonchik, в макросе ToReport диапазон М заполните так:
[vba]
Код
M = .[a1].Resize(.Cells(.Rows.Count, 37).End(xlUp).Row, 36).Value2' вместо .Value
[/vba]
Сейчас у Вас из 4-й строки запоминаются, даты и [vba]
Код
IsNumeric(M(4, C)) = IsNumeric("01.10.2015")=False
[/vba]

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Среда, 28.10.2015, 14:31
 
Ответить
СообщениеLeonchik, в макросе ToReport диапазон М заполните так:
[vba]
Код
M = .[a1].Resize(.Cells(.Rows.Count, 37).End(xlUp).Row, 36).Value2' вместо .Value
[/vba]
Сейчас у Вас из 4-й строки запоминаются, даты и [vba]
Код
IsNumeric(M(4, C)) = IsNumeric("01.10.2015")=False
[/vba]
Автор - Manyasha
Дата добавления - 28.10.2015 в 14:29
Leonchik Дата: Четверг, 29.10.2015, 04:57 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Manyasha, Спасибо Вам огромное за помощь!!!! Очень Вам признательна!!
 
Ответить
СообщениеManyasha, Спасибо Вам огромное за помощь!!!! Очень Вам признательна!!
Автор - Leonchik
Дата добавления - 29.10.2015 в 04:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При созд правила формат ячеек перестал срабатыв макр копиров (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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