Vba и Excel, калькуляция

[eugene222]

Добрый день, дорогие форумчане!

Подскажите пожалуйста в чем заключается ошибка в макросе?
Суть такова:
Мы имеем 2 таблицы и при создании 3-ей таблицы используем калькуляцию.

Sub Calculation()
Sheets(3).Activate
Range("A:E").Clear

ActiveSheet.Cells(1, 1) = "Код детали"
ActiveSheet.Cells(1, 2) = "Наименование детали"
ActiveSheet.Cells(1, 3) = "Остаток после прихода"
ActiveSheet.Cells(1, 4) = "Дата последнего движения"
ActiveSheet.Cells(1, 5) = "Единицы измерения"
i = 2

k = 2

Do While Sheets(1).Cells(k, 1) <> ""
ActiveSheet.Cells(i, 1) = Sheets(1).Cells(k, 1)
ActiveSheet.Cells(i, 2) = Sheets(1).Cells(k, 2)
ActiveSheet.Cells(i, 4) = Sheets(1).Cells(k, 4)
ActiveSheet.Cells(i, 5) = Sheets(1).Cells(k, 5)

b = Sheets(1).Cells(k, 3)
j = 2

a = 0

Do While Sheets(2).Cells(j, 1) <> ""
ActiveSheet.Cells(i, 3) = Sheets(2).Cells(k, 2)
If Sheets(2).Cells(j, 1) = ActiveSheet.Cells(i, 1) Then
a = a + Sheets(2).Cells(j, 2)
End If

c = Sheets(2).Cells(j, 3)
If c <= Sheets(2).Cells(j, 3) And ActiveSheet.Cells(i, 1) = Sheets(2).Cells(j, 1) Then
ActiveSheet.Cells(i, 4) = CDate(Sheets(2).Cells(j, 3))
End If
j = j + 1
Loop
ActiveSheet.Cells(i, 2) = a + b
k = k + 1
i = i + 1
Loop
End Sub

В итоговой таблице имеются следующие ошибки:
1. Не суммируются строки с одинаковым Кодом детали
2. В столбце Наименование детали выдает числа, а не названия детали
3. Неправильный расчет столбца Остаток после прихода

Помогите указать где в строках находятся ошибки.
Окажу небольшую материальную помощь при Вашей помощи или совету

Заранее спасибо!)

[Hugo121]

Архив битый.
Вернее это вообще не архив.

[eugene222]

Сообщение от Hugo121

Архив битый.
Вернее это вообще не архив.

Вот ссылочка:
https://cloud.mail.ru/public/4f1f05dea1e6/123.xlsm

[Hugo121]

Да, красиво в Италии... И дорого.
Это всё что я могу сказать про ссылку.

Спецпредложения oтелей в Вильнюсе не смотрел

[IgorGO]

совокупность обьяснений в теме и данных в файле не позволяет понять, что необходимо сделать.
как назло еще и марос написан - текст макроса окончательно сбивает с толку.

[eugene222]

Сообщение от Hugo121

Да, красиво в Италии... И дорого.
Это всё что я могу сказать про ссылку.

Спецпредложения oтелей в Вильнюсе не смотрел

ахах
странно, что не работает
подскажите куда можно залить файл xlsm?

[IgorGO]

сюда.
запакуйте в архив предварительно.

[eugene222]

Сообщение от IgorGO

совокупность объяснений в теме и данных в файле не позволяет понять, что необходимо сделать.
как назло еще и марос написан - текст макроса окончательно сбивает с толку.

Суть такова:
Нажимаем кнопку на первом листе, далее Наличие на начало, заносим данные( к примеру:
Код детали: 1
Наименование детали: винт
Остаток на начало: 10
Дата последнего движения: 11
Единицы измерения: шт
И также еще добавляем позиций и выходим.

Далее нажимаем на Приход в течение декады, заносим данные по приходящему товару, выходим.

После нажатия на Обработку макрос берет данные из 1 и 2 листа для заполнения следующих столбцов:
Код детали
Количество прихода
Дата прихода
Номер приходного документа

А если совпадают коды деталей, то он должен суммировать количество их, то есть брать остаток деталей + последний приход.

[eugene222]

вот, надеюсь работает

[eugene222]

up up up