Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.07.2009, 23:15   #1
Viento
Пользователь
 
Регистрация: 28.12.2008
Сообщений: 53
По умолчанию SOS! Исправьте пожалуйста макрос.

Добрый вечер, уважаемые программисты!
Существует следующая загвозка, в файле "Невыходы" есть макрос "Skill1" который должен из файла "1.xls" перенести данные о состоянии сотрудника в файл "невыходы" к соответсвующим фамилиям.

Суть проблемы:
Файл "1.xls" выгружается спец программой. Дело в том что в "1.xls" есть пустые ячейки между строк, а макрос доходит до пустой ячейки и останавливается. Что делать?

Уважаемые программисты Помогите пожалуйста, если это возможно.
Заранее огромное Вам спасибо!

С Уважением, ЭБК!
Вложения
Тип файла: rar Невыходы.rar (32.0 Кб, 12 просмотров)
Viento вне форума Ответить с цитированием
Старый 26.07.2009, 01:04   #2
pivas
Форумчанин
 
Регистрация: 03.04.2009
Сообщений: 412
По умолчанию

Несколько запутанно у Вас получилось. Посмотрите во вложении, может так будет работать.
Вложения
Тип файла: rar Невыходы.rar (33.3 Кб, 12 просмотров)
pivas вне форума Ответить с цитированием
Старый 26.07.2009, 09:00   #3
Viento
Пользователь
 
Регистрация: 28.12.2008
Сообщений: 53
По умолчанию

Уважаемый pivas, огромное спасибо за оперативный и результативный ответ.
С Уважением, ЭБК!
Viento вне форума Ответить с цитированием
Старый 26.07.2009, 09:28   #4
Viento
Пользователь
 
Регистрация: 28.12.2008
Сообщений: 53
По умолчанию

Уважаемые программисты!

В представленном выше результат решения моего вопроса, был указан в качестве примера только файл "1.xls"= 1 дню, все отлично работает для одного дня. проблема состоит в том, что этих файлов 31- (31 день в месяце). Имена файлов соответственно 1.xls, 2.xls, 3.xls .......31.xls.

Вопрос: Возможно прописать в макросе, чтобы после завершения 1 дня (1.xls) он брался за 2 день (2.xls) и т.д. до 31 дня (31.xls)?

С Уважением, ЭБК!
Viento вне форума Ответить с цитированием
Старый 26.07.2009, 11:25   #5
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Цитата:
Сообщение от Viento Посмотреть сообщение
Возможно прописать в макросе, чтобы после завершения 1 дня (1.xls) он брался за 2 день (2.xls) и т.д. до 31 дня (31.xls)?
Конечно, Ваша задача, схожа с моей Здесь выбирите себе, ваш макрос ваще мона упростить до 10 -ка строк, зачем вы делаете код на 31 день, что в цикле нельзя перебирать? У меня тоже 31(день) файлов, и один файл собирательный...

Последний раз редактировалось valerij; 26.07.2009 в 12:18.
valerij вне форума Ответить с цитированием
Старый 26.07.2009, 11:54   #6
Viento
Пользователь
 
Регистрация: 28.12.2008
Сообщений: 53
По умолчанию

К сожалению с вашим вариантом я не разобрался.

Скажите а Вы сможете исправить на моем макросе?
Viento вне форума Ответить с цитированием
Старый 26.07.2009, 12:15   #7
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Цитата:
Сообщение от Viento Посмотреть сообщение
К сожалению с вашим вариантом я не разобрался.
Такой же ответ, мне, на это надо > времени, вам надо к профи!
valerij вне форума Ответить с цитированием
Старый 26.07.2009, 12:30   #8
pivas
Форумчанин
 
Регистрация: 03.04.2009
Сообщений: 412
По умолчанию

Попробуйте такой вариант:
Вложения
Тип файла: rar Невыходы.rar (32.9 Кб, 14 просмотров)
pivas вне форума Ответить с цитированием
Старый 26.07.2009, 12:48   #9
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Цитата:
Сообщение от pivas Посмотреть сообщение
Попробуйте такой вариант:
pivas
А че вы не удалили макрос ЭтаКнига, он же уже не нужен?

Последний раз редактировалось valerij; 26.07.2009 в 13:40.
valerij вне форума Ответить с цитированием
Старый 27.07.2009, 05:43   #10
Viento
Пользователь
 
Регистрация: 28.12.2008
Сообщений: 53
По умолчанию

Всем огромное спасибо за участие в помощи решения моего вопроса.
Сегодня буду проверять.

С Уважением, ЭБК!
Viento вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В алфавитном порядке напечатать все согласные буквы, которые не входят ни в одно слово Shain Помощь студентам 16 23.02.2010 09:39
помогите создать макрос (SOS!) Ygrek Microsoft Office Excel 0 05.07.2009 17:42
Си++. Исправьте пожалуйста ошибки megavolt91 Помощь студентам 3 29.05.2009 16:02
Исправьте пожалуйста программу Алексей_xXx Помощь студентам 2 29.05.2009 05:11
Проверьте,пожалуйста,если че исправьте,plz. Wia Помощь студентам 5 08.12.2008 15:30