Count Rows In Excel

[97867564534231]

HI,
I have an excel spreadsheet within which I am entering data.
The amount of data entered into the spreadsheet is not fixed and will change on a daily basis. I need to be able to write some code in-order to calculate the total number of rows used on each specific day and show this in a message box.
for example
Mon = 10 rows of data are entered, the message box should say this.
Tue = 1000 rows of data are entered, the message box should say this.
Wed = 90 rows of data are entered, the message box should say this.
etc...

Thanks in advance,

 

[RamziSaab]

This should do what you want...

Assumptions: data is coninuous i.e. no blanks in between data!

you have to tell excel what column you want to check! e.g. 1, 2, 3 etc.

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

Sub test()
Dim strcolumn As Integer
Dim i As Long
Dim z As Long



strcolumn = InputBox("Which column would you like excel to count the rows for?", "Count&quot
For i = 1 To 65653
If Cells(i, strcolumn) = "" Then
MsgBox "There are " & z & " rows in column " & strcolumn
Exit Sub
Else
z = z + 1
End If
Next i

End Sub

 

[xlbo]

Please see the FAQs section in the VBA forum - there are at least 2 FAQs on this topic

Rgds, Geoff
Si hoc legere scis, nimis eruditionis habes
Want the best answers to your questions ? - then read me baby one more time - faq222-2244