учет поступлений и продаж

[TwistV55]

у меня 4 таблицы на разных листах, 1 - исходные данные (код товара, наименование кол-во на начало) 2 - поступление 3 - продажи нужно с помощью VBA заполнить 4 код товара, наименование, кол-во на конец (с учетом того что продажи и поступления могут быть не однократны)
В vba я более, чем новичок и это я не могу сделать. У меня суммируется только 1 поставка. как учесть много поставок я не могу додуматься. помогите)

[IgorGO]

лист4, "остаток на конец" - я записал формулу.

[TwistV55]

а с помощью vba можно как-нибудь?

[alex77755]

Можно примерно так:

S1 = Лист1.Columns(1).Rows(65000).End(xlUp).Row
S2 = Лист2.Columns(1).Rows(65000).End(xlUp).Row
S3 = Лист3.Columns(1).Rows(65000).End(xlUp).Row

For K1 = 2 To S1
KOD = Лист1.Cells(K1, 1).Value
KOL = Лист2.Cells(K1, 3).Value
    For K2 = 2 To S2 ' пройти по всему списку прихода
    If Лист2.Cells(K2, 1).Value = KOD Then KOL = KOL + Лист2.Cells(K2, 3).Value
    Next K2
    
    For K3 = 2 To S3 ' пройти по всему списку расхода
    If Лист3.Cells(K3, 1).Value = KOD Then KOL = KOL - Лист2.Cells(K3, 3).Value
    Next K3
S4 = Лист4.Columns(1).Rows(65000).End(xlUp).Row
'здесь уже заполняешь лист 4
Лист4.Cells(S4 + 1, 1).Value = KOD
Лист4.Cells(S4 + 1, 2).Value = Лист1.Cells(K1, 2).Value
Лист4.Cells(S4 + 1, 3).Value = KOL
Лист4.Cells(S4 + 1, 5).Value = Лист1.Cells(K1, 5).Value
Next K1

[TwistV55]

можешь скинуть файлом пожалуйста или объяснить куда это писать...

[TwistV55]

ни у кого никаких идей?)