Comments on: Count Rows with Data in a Macro

By: Philip Pointer

Philip Pointer — Tue, 12 Jul 2011 15:10:26 +0000

Works perfectly. Thanks so much!

By: Steve S

Steve S — Mon, 18 Apr 2011 15:05:01 +0000

Was able to answer my own question, using concatenate feature…

Range(“D34:D” & RowCount)

By: Steve S

Steve S — Fri, 15 Apr 2011 22:41:06 +0000

John – I found this page via a Google search and your “RowCount” code was EXACTLY what I was looking for and worked perfectly.

Question: I now want to use ‘RowCount’ to call out the length of an auto-fill function. For example, when I recorded the macro, I only autofilled from D34 to D41, but now I want to modify the macro to be D34 to D’RowCount’ so that no matter how many rows my different files have, it will always fill down to the last row.

Can you tell me how to do this?

Thanks!

By: ribs

ribs — Fri, 30 Apr 2010 17:37:34 +0000

Thanks John, it turns out what I needed to work with were the Pane, FreezePane, Split, and SplitRows properties

By: john

john — Thu, 29 Apr 2010 17:27:02 +0000

Hi Ribs – you could try =COUNTA(A1:C1). Let me know if that’s not what you’re looking for.

By: ribs

ribs — Thu, 29 Apr 2010 16:05:30 +0000

I’m trying to import spreadsheets that contain a number of fixed heading rows, the number of fixed headings varies from spreadsheet to spreadsheet. How do I determine how many fixed heading rows there are on a spreadsheet? I’ve tried using myRange.CurrentRegion.ListHeaderRows but that always returns 0

By: john

john — Sat, 13 Feb 2010 14:57:38 +0000

Hi Claire, check out this page (http://www.contextures.com/xlFunctions04.html)… there is a note at the bottom of the counta section that might apply to you. Hopefully that helps. If that is the case, maybe a countif formula would work better for you.

By: claire

claire — Sat, 13 Feb 2010 11:34:51 +0000

I am using counta to count cells that have text in but it is counting the blank cells as well.

I have data in 5 of the 34 cells and the rest are blank so my sum is
=counta(b2:al2) but the answer is 34.
What am I doing wrong.

Thanks
Claire

By: john

john — Thu, 10 Sep 2009 19:48:14 +0000

Hmmm… I’m still not sure why that didn’t work. I did the following in 2003 and it worked fine:

Sub counta()
Sheets(“sheet1″).Select
RowCount = Application.WorksheetFunction.counta(Range(“A:A”))
MsgBox (RowCount)
End Sub

You could also try something like the following which will select rows 2 through the end of the data in Column A:

Sub selectData()
RowCount = Range(“A65536″).End(xlUp).Row
Range(“A2:A” & RowCount).Select
End Sub

Good job finding a solution that worked for you though.

By: john

john — Thu, 10 Sep 2009 17:56:39 +0000

I got it working. The function didn’t seem to like calling out the columns, so I created variables to work around it. Here’s what I ended up using. I’m a bit of a novice and am learning as I go, so I’m sure there’s a more elegant solution…

Set MyRange = Sheets(“Oracle”).Range(“A:A”)
LastRow = Application.WorksheetFunction.CountA(MyRange)
Klast = “K” & LastRow
Krange = “K2:” & Klast
Range(“K2″).Select
Selection.AutoFill Destination:=Range(Krange)