Count number of rows/enties for the same DATE
I need a macro to count number of rows for the same date and displa
the result in the "Date number" Sheet.

It should pick up all the different date in the worksheet and coun
number of entries for that date and display the result

Sample Data:
08/07/2005
08/07/2005
08/07/2005
08/07/2005

10/07/2005
10/07/2005

Output:
08/07/2005 4
10/07/2005 2


Can anyone help me! Thank

--
kevinh
-----------------------------------------------------------------------
kevinhd's Profile: http://www.excelforum.com/member.php...fo&userid=2482
View this thread: http://www.excelforum.com/showthread.php?threadid=38552

Dim i As Long, lastRow As Long, rng As Range
Dim n As Long
Dim str As String
Dim count As Long

count = 0

Sheets("Route 1A (IN)").Select

lastRow = Range("A65536").End(xlUp).Row

Set rng = Range("C4:C" & lastRow) 'Start on row 4

If lastRow = 4 Or lastRow < 4 Then Exit Sub


For i = lastRow To 4 Step -1
n = 4
For n = lastRow To 4 Step -1
If (Range("C" & n) = Range("C" & n + 1)) Then
count = count + 1
Cells(4, 7).Value = count
Else
End If
Next n
Next i

This is what I've got, but doesn't work


--
kevinhd
------------------------------------------------------------------------
kevinhd's Profile: http://www.excelforum.com/member.php...o&userid=24828
View this thread: http://www.excelforum.com/showthread...hreadid=385521

On Fri, 8 Jul 2005 02:26:56 -0500, kevinhd
wrote:


Count number of rows/enties for the same DATE
I need a macro to count number of rows for the same date and display
the result in the "Date number" Sheet.

It should pick up all the different date in the worksheet and count
number of entries for that date and display the result

Sample Data:
08/07/2005
08/07/2005
08/07/2005
08/07/2005

10/07/2005
10/07/2005

Output:
08/07/2005 4
10/07/2005 2


Can anyone help me! Thanks

If the data is sorted as you show, my suggestion would be to record a macro
using the Data/Subtotals wizard and the Count function; then collapse the range
so you see only the counts. Use the GoTo Visible Cells option to select
appropriately; Copy/Paste and then stop the macro recording. Finally, do some
clean-up on the resultant macro.

If you have a lot of data, this should be faster than stepping through one at a
time.
--ron