Есть файл и макрос который не работает.

Пользователь

Сообщений: 26 Регистрация: 01.01.1970

15.02.2015 18:46:54

Макрос раскидывает товар по отдельным значениям размера. То есть была строчка на странице с размерами 1234567 появилось 7 строк на странице енд с соответвующими реквизитами.

Прикрепленные файлы

Бранд (1).xls (41.9 КБ)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#2 15.02.2015 18:49:57 Молодец, макрос. От форума что хочется получить? Вопроса нет. Вы в курсе, что разместили тему в разделе оплачиваемых заказов?

Alexander88 Пользователь Сообщений: 400 Регистрация: 02.09.2014	#3 15.02.2015 18:53:37 Похожая тема

McDos Пользователь Сообщений: 26 Регистрация: 01.01.1970	#4 15.02.2015 19:17:48 ПРошу прощения, "не работает" потерялось в сообщении. Макрос не работает. Да, я в курсе что макрос не работает.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#5 15.02.2015 19:19:14 И хотите заказать работу? Я не беру, понять хочу, где теме место.

McDos Пользователь Сообщений: 26 Регистрация: 01.01.1970	#6 15.02.2015 20:16:09 Да именно, хочу заказать работу.

B.Key Пользователь Сообщений: 633 Регистрация: 26.02.2014	#7 15.02.2015 20:23:44 А что смущает, код работает на 100% согласно заявленных требований, я Вам уже писал что либо приводите исходные данные к одному виду, либо каждый раз заказывайте код под свою задачу.

McDos Пользователь Сообщений: 26 Регистрация: 01.01.1970	#8 15.02.2015 20:46:54 так я не вижу в чем разница. порядок колонок соблюден, формат один и тот же. Что не так?

B.Key Пользователь Сообщений: 633 Регистрация: 26.02.2014	#9 15.02.2015 20:58:33 Отправил в почту, подправленный вариант(бесплатно) Изменено: B.Key - 15.02.2015 21:02:32

Александр Макаров Пользователь Сообщений: 141 Регистрация: 01.01.1970	#10 15.02.2015 20:58:56 Прошу прощения. Просто интересно стало - сколько будет идти препирательсто из-за изменения двух строчек кода? Вот и хорошо, что разобрались. Изменено: Александр Макаров - 15.02.2015 21:04:05

B.Key

Пользователь

Сообщений: 633 Регистрация: 26.02.2014

#11

15.02.2015 21:09:26

Офф топ конечно, но по поводу исправить ошибку старттопик ко мне повторно не обращался.
Обращался с другим вопросом, что не работает код. Структура данных была совсем иная чем в представленном сейчас файле.
--------
В данном случае на самом деле есть моя ошибка, которую я признаю (и исправил), и сейчас оправил автору.
в данном коде неправильно определяет кол-во элементов

Код
x = UBound(a(0)) + 1 + x

вместо

Код
x = UBound(a) + 1 + x

Александр Макаров Пользователь Сообщений: 141 Регистрация: 01.01.1970	#12 15.02.2015 21:20:10 Можно заменить строку "If (IsNumeric© Or c = "/") Then" на "If IsNumeric© Then" (зачем обрабатывать знак "/")