код рабочий, только немного не тот результат [vba]
Код
Sub SumPlan()
Dim sum9607 As Integer Dim a As Integer, b As Integer
Dim pa9607 As Range Dim ppa9607 As Range Dim pl9607 As Range Dim p9607 As Range
Set pa9607 = Worksheets("2").Range("b2", "b9") For Each ppa9607 In pa9607
Set pl9607 = Worksheets("2").Range("a2", "a9") For Each p9607 In pl9607
If ppa9607 = 2 Then
sum9607 = sum9607 + p9607
Else
sum9607 = sum9607
End If Next p9607 Next ppa9607
Dim fr9607 As Range Set fr9607 = Worksheets("2").Range("d2") fr9607.Value = sum9607
End Sub
[/vba]
проблема в том что макрос суммирует весь столбец "А2", "А9", каждую строчку подряд при условии что в столбце "В2", "В9" цикл находит переменную "2", в данном случае сумма столбца "А" =21, переменная 2 повторяеться в столбце "В" 3 раза - итог 63 а не 11 как надо. а мне нужно суммировать тольку ту ячейку столбца "А" если в столбце "В" переменная равна 2-м.
помогите, очень на вас надеюсь
Доброго времени суток.
помогите мне осилить этот макрос
код рабочий, только немного не тот результат [vba]
Код
Sub SumPlan()
Dim sum9607 As Integer Dim a As Integer, b As Integer
Dim pa9607 As Range Dim ppa9607 As Range Dim pl9607 As Range Dim p9607 As Range
Set pa9607 = Worksheets("2").Range("b2", "b9") For Each ppa9607 In pa9607
Set pl9607 = Worksheets("2").Range("a2", "a9") For Each p9607 In pl9607
If ppa9607 = 2 Then
sum9607 = sum9607 + p9607
Else
sum9607 = sum9607
End If Next p9607 Next ppa9607
Dim fr9607 As Range Set fr9607 = Worksheets("2").Range("d2") fr9607.Value = sum9607
End Sub
[/vba]
проблема в том что макрос суммирует весь столбец "А2", "А9", каждую строчку подряд при условии что в столбце "В2", "В9" цикл находит переменную "2", в данном случае сумма столбца "А" =21, переменная 2 повторяеться в столбце "В" 3 раза - итог 63 а не 11 как надо. а мне нужно суммировать тольку ту ячейку столбца "А" если в столбце "В" переменная равна 2-м.