Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro for Counting the number of records in a worksheet
I need to count the number of records in worksheet leaving the empty rows
using VBA code.Is there anyway to do it? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro for Counting the number of records in a worksheet
hi Assuming the data is in column A Sub test() rowcount = Cells(Cells.Rows.Count, "a").End(xlUp).Row MsgBox rowcount End Sub -- jetted ------------------------------------------------------------------------ jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532 View this thread: http://www.excelforum.com/showthread...hreadid=558896 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro for Counting the number of records in a worksheet
If you just want to count cells with values in column A you could do like
this: Sub Test() Dim iLastRow As Long Dim i As Long Range("C3").Value = 0 iLastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To iLastRow If Cells(i, "A").Value < "" Then Range("C3").Value = Range("C3").Value + 1 End If Next i End Sub "jetted" wrote in message ... hi Assuming the data is in column A Sub test() rowcount = Cells(Cells.Rows.Count, "a").End(xlUp).Row MsgBox rowcount End Sub -- jetted ------------------------------------------------------------------------ jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532 View this thread: http://www.excelforum.com/showthread...hreadid=558896 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Counting the number of errors in a worksheet | Excel Worksheet Functions | |||
Help a novice with counting number of records | Excel Discussion (Misc queries) | |||
Macro for counting the number of filtered rows | Excel Programming | |||
Counting the number of times a word appears in a worksheet | Excel Worksheet Functions | |||
use macro to append records to worksheet | Excel Programming |