Добрый день, коллеги!
В загрузке, присланной клиентом, артикулы на товары одного кода ТНВЭД перечислены в одной ячейке через запятую. Если подгружать такую загрузку через автозаполнитель, то в 31 графе появляется длиннющая портянка перечесленных через запятую артикулов. А надо, естественно, чтоб дополнения были разбиты по этим артикулам.
Есть ли способ как-то заставить автозаполнитель "кушать" артикулы, автоматически разбивая их для дополнения, либо заставить Альту самостоятельно разбивать такие перечни артикулов при загрузке через Инвойс.
Вопрос очень важный, вручную дробить эти завалы в Экселе не хватает времени.
Заранее спасибо
-
-
Обсуждения на сайте Альта-Софт
-
Распределение артикулов в графе 31
Модераторы: Renat, Gala, alta_olg, expert, Lemur
-
- Новый участник
- Сообщения: 3
- На форуме: c 25 мар 2011
Сказал: 0 ед.
Получил: 0 ед.
Получил: 0 ед.
- Iskin
- Эксперт
- Сообщения: 9891
- На форуме: c 08 июл 2008
- Откуда: АО "КАМА"
Сказал: 138 ед.
Получил: 2471 ед.
Получил: 2471 ед.
Re: Распределение артикулов в графе 31
Ексель вам в помощь. Тут конечно функцией не решить, но можно так например:
Код:
Sub Badjal()
Dim x, y(), i&
x = Split([a1], ",")
ReDim y(0 To UBound(x), 1 To 1)
For i = 0 To UBound(x)
y(i, 1) = x(i)
Next
[a2].Resize(i).Value = y
End Sub
Позовите, мало-мальского эксперта, он подскажет как это в жизнь воплатить.
Код:
Sub Badjal()
Dim x, y(), i&
x = Split([a1], ",")
ReDim y(0 To UBound(x), 1 To 1)
For i = 0 To UBound(x)
y(i, 1) = x(i)
Next
[a2].Resize(i).Value = y
End Sub
Позовите, мало-мальского эксперта, он подскажет как это в жизнь воплатить.
Думайте глобально, действуйте локально!
- Iskin
- Эксперт
- Сообщения: 9891
- На форуме: c 08 июл 2008
- Откуда: АО "КАМА"
Сказал: 138 ед.
Получил: 2471 ед.
Получил: 2471 ед.
Re: Распределение артикулов в графе 31
Есть вариант по проще. Скопировать, специальная вставка-транспонировать. Если вся строка в одной ячейке, перед копированием - текст по столбцам.
Думайте глобально, действуйте локально!