Выручка

[ilfat441]

Добрый вечер не могу Найти какой процент от общей выручки за сентябрь 2009г составляет выручка от продажи продуктов Сернурского молочного завода?
Sub task1()
Dim rng As Range
Dim summa1, s1, s2, summa2, summa3, pr As Integer
Set rng = ActiveWorkbook.Sheets("Ëèñò1").Rang e("A3:D2503")
l = rng.Rows.Count
For i = 1 To l
If rng.Cells(i, 1) >= #2/20/2009# And rng.Cells(i, 1) <= #2/23/2009# Then
If Right(rng.Cells(i, 2), 13) = "Êàçàíñêîãî 5" Then
s1 = s1 + rng.Cells(i, 4)
End If
End If
Next
summa1 = s1 * Cells(8, 11).Value

For i = 1 To l
If rng.Cells(i, 1) >= #9/1/2009# And rng.Cells(i, 1) < #9/30/2009# Then
If Right(rng.Cells(i, 2), 13) = "Êàçàíñêîå 5,0" Then
s2 = s2 + rng.Cells(i, 4)
End If
End If
Next
summa2 = s2 * Cells(9, 11).Value
summa3 = s2 * Cells(7, 11).Value
pr = (summa3 - summa2) / summa2 * 100

[doober]

summa1 где потерялась
А зачем циклы ганять,

summa2 = s2 * Cells(9, 11).Value
 summa3 = s2 * Cells(7, 11).Value
 pr = (summa3 - summa2) / summa2 * 100

это эквивалентно

 pr = (Cells(7, 11).Value - Cells(9, 11).Value) / Cells(9, 11).Value* 100