Comments on: Count Rows with Data in a Macro

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)

By: john

john — Thu, 10 Sep 2009 17:17:05 +0000

I don’t believe so, I’ve used it with 2003 I’m pretty sure. Can you post what you have coded?

By: john

john — Thu, 10 Sep 2009 16:10:58 +0000

I can’t get this to work in Excel 2003. Is there a slightly different syntax? Or other function that will do the same thing?

By: john

john — Thu, 19 Feb 2009 13:49:18 +0000

Thanks Kaustubh. I’m glad your finding the site useful.