I'm really want to find out how to put this metacode in Excell
' CounterDay represents the columnnr where the calculation has to
happen. Starts on row 31 untill row 365
' CounterV is the counter to count the number of V's he finds (it
stops counting when CounterN has reached 30
' CounterN Is Increased by 1 when the cell A(DAY-1-CounterV) is equal
to the Value "V"
CounterDay = 31
IF A(CounterDay-1-CounterV) = V
Then CounterV = CounterV+1
Else CounterN = CounterN+1
End If CounterN = 30
Sum=B(CounterDay-1):B(CounterDay-CounterN)
Put Sum in Cell C CounterDay
CounterDay + 1
End If CounterDay=365
Bob Phillips - 22 Jan 2007 17:41 GMT
For i = 31 To 365
If Cells(i,"A").Value = "V" then
CounterN = CounterN + 1
If CounterN = 30 Then
Exit For
End If
End If
Next i

Signature
---
HTH
Bob
(change the xxxx to gmail if mailing direct)
> I'm really want to find out how to put this metacode in Excell
>
[quoted text clipped - 17 lines]
>
> End If CounterDay=365