Суммирование одинаковых позиций с разных листов (Microsoft Office Excel)

Posted by obzor under Basic, VBA, Софт

Хочу попробовать создать файл — простейший аналог R-keeper.
Суть: на вкладке «Приход» вводятся продукты; при нажатии на кнопку, на вкладке «Склад» суммируются имеющиеся значения с позициями, указанными в «Приходе».
Аналогично должно вычитаться на вкладке «Расход»
Подскажите, как можно решить это макросом?

Aleksandr H.

Sub rk()
    Dim r As Long
    Dim Sklad, Prihod, Rashod
    Set Sklad = Sheets("Склад")
    Set Prihod = Sheets("Приход")
    Set Rashod = Sheets("Расход")
    r = 5
    Do While Sklad.Cells(r, 3) <> ""
        Sklad.Cells(r, 5) = Sklad.Cells(r, 5) +
            Application.SumIf(Prihod.Range("c5:c500"), Sklad.Cells(r, 3), Prihod.Range("D5:D500")) -
            Application.SumIf(Rashod.Range("c5:c500"), Sklad.Cells(r, 3), Rashod.Range("D5:D500"))
        Sklad.Cells(r, 8).Clear
        If Sklad.Cells(r, 5) = 0 Then
            Sklad.Cells(r, 8 ) = "Пустой Склад"
        ElseIf Sklad.Cells(r, 5) < 0 Then
            Sklad.Cells(r, 8 ) = "Продал в МИНУС"
        End If
        r = r + 1
    Loop
End Sub

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel