Count the values between range and loop

[Raviprasad.k]

Folks,
I have a spreadsheet in which column b has a series of numbers with the heading as "ID". I need a vba code which will count the values between each heading. The data i have on my spreadsheet is till row 2525 with different ranges between heading "ID".

I have attached the help spreadsheet with the example.

Appreciate your help.
Ravi

[StephenR]

Try this:

Please Login or Register  to view this content.

[Raviprasad.k]

Works great! Much appreciate your quick response.

[Raviprasad.k]

Works great! Much appreciate your quick response.


Need 1 more help on the same template.

Column D will have some number against each EMP ID, what i am looking for is the result in Column E, where in it divides the number against the count within the range. And, if column B is blank it should return me 0 and so on.

Pls refer the Help2 file for more information.

Thank you in advance.

[StephenR]

Maybe this?

Please Login or Register  to view this content.

[Raviprasad.k]

Works fine, Thank you Stephen!

[Raviprasad.k]

I have one more challenge in the same spreadsheet.

What i require is Column D (Money) should get calculated based on the column C (Count) and Column F (Type) input.

With the below code the column C & E is being calculated. Need your help in getting the Column D output. Pls refer the Help 3 spreadsheet for your reference. Thank you!

************************


Sub x()

Dim rFind As Range, sAddr As String, n As Long

With Sheet1.Columns(2)
Set rFind = .Find(What:="ID", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
If Not rFind Is Nothing Then
sAddr = rFind.Address
Do
n = Range(rFind, rFind.End(xlDown)).Rows.Count - 1
rFind.Offset(, 1) = n
rFind.Offset(1, 3).Resize(n) = rFind.Offset(, 2) / n
Set rFind = .FindNext(rFind)
Loop While rFind.Address <> sAddr
End If
.SpecialCells(xlCellTypeBlanks).Offset(, 3) = 0
End With

End Sub