Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сравнить значение с столбцом и удалить значение
 
#1
28.03.2020 16:50:39
Здравствуйте. Есть две таблицы, когда в таблице продажи добавляется артикул, что бы он сравнивался с артикулами из таблицы остатки и удалял в остатках размер который введён в продажах
 
 
 
#2
28.03.2020 17:08:19
winsan, артикулы уникальны в листе остатки?
так?
Код
Sub dd()
Dim i As Double
Dim myvalue As String
ilastrow = Worksheets("Продажи").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To ilastrow
         myvalue = Worksheets("Продажи").Cells(i, 3)
         Set art = Worksheets("Остатки").Columns(5).Find(myvalue, LookIn:=xlValues)
         If Not art Is Nothing Then
         Worksheets("Остатки").Cells(art.Row, 6) = Worksheets("Остатки").Cells(art.Row, 6) - Worksheets("Продажи").Cells(i, 4)
        End If
    Next i
End Sub
Изменено: Mershik - 28.03.2020 17:16:44
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
28.03.2020 17:27:45
Всё верно, артикулы уникальны. После использования макроса, в размерах меняются значения
 
 
 
#4
28.03.2020 17:28:16
winsan,
Цитата
winsan написал:
статки и удалял в остатках размер который
а что нужно
?
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#5
28.03.2020 17:32:05
Нужно чтобы удалялся в остатках только тот размер который продали, а после использования макроса он удаляется и заменяется на другие значения  
 
 
 
#6
28.03.2020 17:33:01
Ничего не понятно покажите в файле что вот это было вот это стало
так?
Код
Sub dd()
Dim i As Double
Dim myvalue As String
ilastrow = Worksheets("Продажи").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To ilastrow
         myvalue = Worksheets("Продажи").Cells(i, 3)
         Set art = Worksheets("Остатки").Columns(5).Find(myvalue, LookIn:=xlValues)
         If Not art Is Nothing Then
         Worksheets("Остатки").Cells(art.Row, 6) = Replace(Worksheets("Остатки").Cells(art.Row, 6), Worksheets("Продажи").Cells(i, 4).Value, "")
        End If
    Next i
End Sub
Изменено: Mershik - 28.03.2020 17:41:42
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#7
28.03.2020 17:43:13
  рисунки удалены, см. правила форума [МОДЕРАТОР]
 
 
 
#8
28.03.2020 17:47:34
winsan, как макрос работает я знаю, поэтому попросил Вас сделать нормальны пример...в котором показать что было и что должно быть после  
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#9
28.03.2020 17:50:03
Надо, если размер продали, чтобы он удалился с остатков
 
 
 
#10
28.03.2020 17:54:30
Вы смотрели #6!?
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#11
28.03.2020 17:56:24
Цитата
winsan написал:
Надо, если размер продали, чтобы он удалился с остатков
Это и произошло на тех скринах, что Вы приложили. Сделайте пример с цифрами, чтобы понять, что должно произойти.
 
 
 
#12
28.03.2020 18:06:11
Вот так должно получиться
 
 
 
#13
28.03.2020 18:28:57
Смысл понятен.

Ваши данные организованы не совсем правильно. При составлении таблиц всегда необходимо соблюдать принцип "одно значение в ячейке", иначе большинство возможностей экселя теряются.

Я приложил файл с чуть измененной структурой таблицы на листе Остатки. На лист Продажи можете добавлять сколько угодно строк. Все решено формулами и вычисляется мгновенно.

Если Вам надо понять, какие позиции заканчиваются, просто отсортируйте данные по возрастанию по столбцу Остаток. Так же легко можно фильтровать данные по размерам, артикулам и т.д.
 
 
 
#14
28.03.2020 18:31:33
winsan, на всякй случай еще раз спрошу смотрели ли макрос в
Цитата
Mershik написал:
Вы смотрели #6!?
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#15
28.03.2020 19:10:58
Mershik, Я затупил, извините. Все работает, большое Вам спасибо)

ctpexhih, Спасибо, подумаю над изменением таблицы
 
 
 
Страницы: 1
Наверх