Counting all the records in activesheet

[usr123]

Hello,

I am trying to count all the records in the active worksheet and exporting it to the database(sql.).

Please Login or Register  to view this content.

In 'lastRow' i should be getting total number of records in the worksheet,but i m getting only half.
Could anyone suggest what i should be using instead?

[JeanRage]

Hi,

LastRow = Cells(Cells.Rows.Count,"A").End(xlUp).Row

HTH

[Domski]

You can use something like this which will return the last row in column A:

Please Login or Register  to view this content.

Assuming your data starts in row 1 with headings and there is an entry in every row that -1 would give you the number of records.

Dom

[usr123]

Thanks for ur replly, but i am getting the error:

Run-Tme error @1004': Application defined or object defined error.

[usr123]

I did this:

Dim shtSheetToWork As Worksheet
Set shtSheetToWork = ActiveWorkbook.Worksheets("Data")

LastRow = shtSheetToWork.UsedRange.Rows.Count

It gives more then the used range.

[Domski]

Which one give you the error?

This should work fine:

Please Login or Register  to view this content.

Dom

[usr123]

Thanks for your help.It worked fine. I was selecting used cells, and i think it was selecting empty rows as well coz i must have selected it by mistake.
Thanks you very much for your help.