Simple code to find the empty cells in a range and cells with number

S

Subodh

I want to find out how many cells in a given range are empty
Also, since my range can only have numbers in them, it should
also check that the non empty cells do not contain text (only
numbers)
Help to do this in the simplest code possible.
 
R

Rick Rothstein

You should be able to make use of these...

NumberOfEmptyCells = WorksheetFunction.CountBlank(Selection)

NumberOfTextCells = WorksheetFunction.CountIf(Selection, "*")

You can substitute and actual range for the Selection range which I used in
my examples; for instance....

NumberOfEmptyCells = WorksheetFunction.CountBlank(Range("A1:H9"))

NumberOfTextCells = WorksheetFunction.CountIf(Range("A1:H9"), "*")
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Range headings 0
Word macro that can call cells out of Excel for a find and replace 0
Macro to find/replace cells containing a number and letter 2
Code to add comments to selected cells within a selected range 30
How to count the numbers in a Word document? 0
Naming non-contigent cells with vba 5
Baffled with assignment of range to array why won't it work??? Anyhelp appreciated 4
Populating a range of empty cells with usernames 4

Top