списание товара с возможностью выбора склада для отгрузки

Автор onna, 29.12.2011, 16:12

« назад - далее »

onna

Есть таблица, в ней каждый продукт ведётся отдельно. Привожу во вложении кусок.

Необходимо, чтобы  при очередной отгрузке, когда я ввожу в графу Packs количество отгруженного товара, менялось не только общее количество данной позиции, но и в первую очередь количество на отдельно взятом складе, с которого произошла отгрузка.
Как это возможно организовать в данной таблице?

Wasilic

#1
Как вариант.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

ShAM

Wasilic, прошу прощения, но, по моему, вместо строки
If Cells(1, 1) + 4 >= Target Then
должно быть
If Cells(S, K) >= Target Then

onna

Цитата: Wasilic от 29.12.2011, 18:52
Как вариант.

Спасибо огромное. Если не сложно, подскажите, пожалуйста, как я могу аналогичное сделать самостоятельно?
Это же не просто формула ЕСЛИ?
Вообще это макрос? я не могу отобразить его как формулы ведь?


Wasilic

Цитата: ShAM от 30.12.2011, 08:55
должно быть
If Cells(S, K) >= Target Then
Ну конечно же. Скопировал а поменять забыл.
Сначала решение написал а потом условие дописывал.
Спасибо. Я тоже исправлю.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Wasilic

Цитата: onna от 30.12.2011, 09:35
подскажите, пожалуйста, как я могу аналогичное сделать самостоятельно?
Вообще это макрос? я не могу отобразить его как формулы ведь?
Да, это макрос. Чтобы сделать что-то аналогичное, надо, в некоторой мере, знать VBA. Не знаю как Вам подсказать.
Выложите свой файл-оригинал, постараюсь привязать макрос.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

onna

Цитата: Wasilic от 30.12.2011, 11:24
Цитата: onna от 30.12.2011, 09:35
подскажите, пожалуйста, как я могу аналогичное сделать самостоятельно?
Вообще это макрос? я не могу отобразить его как формулы ведь?
Да, это макрос. Чтобы сделать что-то аналогичное, надо, в некоторой мере, знать VBA. Не знаю как Вам подсказать.
Выложите свой файл-оригинал, постараюсь привязать макрос.


Не представляете, как благодарна Вам. Я думала, это экселем всё можно решить. буду учить VBA
Файл во вложении

ShAM

ЦитироватьФайл во вложении
Что же Вы запароленный файл выкладываете?

Wasilic

Людмила, кажется, что же там такого конфедециального? Пустой лист.
Поменяйте в этих строках макроса на выделенное синим.

If Not Application.Intersect(Range("K3:K153"), Target) Is Nothing And Target > 0 Then

K = Cells(1, 11) + 14
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

onna

Цитата: Wasilic от 30.12.2011, 14:19
Людмила, кажется, что же там такого конфедециального? Пустой лист.
Поменяйте в этих строках макроса на выделенное синим.

If Not Application.Intersect(Range("K3:K153"), Target) Is Nothing And Target > 0 Then

K = Cells(1, 11) + 14

Пустой, да не совсем.. Ура, получилось!
Нижайший Вам поклон!

ShAM

Если не поздно, то добавлю и свои 5 коп. :)
Еще в этой строке:
Cells(S, 11) = 0

onna

Цитата: ShAM от 30.12.2011, 14:57
Если не поздно, то добавлю и свои 5 коп. :)
Еще в этой строке:
Cells(S, 11) = 0


никогда не поздно) исправила) правда если с буквенными ячейками всё более или менее понятно, то с цифрами совсем не понимаю, что это...))

Wasilic

#12
Цитата: ShAM от 30.12.2011, 14:57
Если не поздно, то добавлю и свои 5 коп. :)
Еще в этой строке:
Cells(S, 11) = 0
Еще раз спасибо!
Чёй то я совсем не внимательный стал.

Цитата: onna от 30.12.2011, 15:25
если с буквенными ячейками всё более или менее понятно, то с цифрами совсем не понимаю, что это...))
Ну это просто, Cells(1, 1)  =  Ячейка(строка 1, колонка 1)  тоесть  А1
ну или Range("A1").
Читайте здесь:
http://vtit.kuzstu.ru/books/shelf/book3/doc/chapter3.html


Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.